【一页是不是2面】N页数据汇总，你还在手动复制粘贴？

在实际工作中，我们可以遇到日、月、年的统计数据，在需要一起整理数据的时候，你还能复制和粘贴一页旧(泪)老(流)实(面)吗？(*译者注：译者注：译者注：译者注：译者注：译者注：译者注)？嗯？

~ ~ t _ t | | |.那么，心里真的有1万匹草泥马在飞驰。

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

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

Sub combine()

A =False

For j = 1 ToS

If Sheets(j).Name <>Ac Then

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

Sheets(j).U Cells(X, 1)

End If

Next

Range("B1").Select

A = True

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

End Sub

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

原创声明：文章发布于作者逆风公众号：Excel函数与VBA实例，如有抄袭责任必究。