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

Office Excel N页数据汇总,你还在手动复制粘贴? 

~~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

Next

Range("B1").Select

Application.ScreenUpdating = True

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

End Sub

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

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注