多个工作表合并汇总之VBA方法.docx

多个工作表合并汇总（VBA方法）傻瓜教程
1、打开要汇总工作表的excel文件；
2、按Alt+F11，打开VBA编辑器，如图；

3、在左上角的“工程”中，选中“ThisWorkbook”，双击打开，如图；

4、复制以下代码在空白处：
Sub合并()
DimmAsInteger
DimnAsInteger
DimoAsInteger
Form=2To30'此处的30需要根据你实际的工作表数填写
n=Sheets(m).[a65536].End(xlUp).Row
o=Sheets(1).[a65536].End(xlUp).Row
Sheets(m).Select
Range("a1","z"&n).Select
Range("a"&n).Activate
Selection.Copy
Sheets(1).Select
Range("a"&o+1).Select
ActiveSheet.Paste
Next
EndSub

5、全选代码，点击运行图标，如图：

6、注意事项：
1）汇总好的数据在第一张工作表中；
2）“运行”图标每点击一次，就进行一次汇总，切勿点击多次；
3）汇总后的数据不能通过“Ctrl+Z”来撤销操作，事先须做好数据备份。