excel N页数据汇总，你还在手动复制粘贴？

Excel函数 2021-11-17 13:34:54

实际工作当中我们会碰到按日、按月、按年分类统计，当数据需要汇总一起时，你还在一页一页的老（泪）老（流）实（满）实（面）的复制粘贴吗？？？

~~T_T|||……,如果真是这样，真是心里面一万个草泥马在狂奔吧。

下面小编告诉你一个简单又实际的方法，VBA一键汇总~~~

点击开发工具——Visual Basic，输入以下经文，

Sub combine()

Application.ScreenUpdating =False

For j = 1 ToSheets.Count

If Sheets(j).Name <>ActiveSheet.Name Then

X =Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub

输入后点击F5或者运行-运行子过程或用户窗体。是不是发现~~~世界原来这么简单。