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

《多个工作表合并汇总之VBA方法.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、多个工作表合并汇总（VBA方法）傻瓜教程1、打开要汇总工作表的excel文件；2、按Alt+F11，打开VBA编辑器，如图；3、在左上角的“工程”中，选中“ThisWorkbook”，双击打开，如图；4、复制以下代码在空白处：Sub合并()DimmAsIntegerDimnAsIntegerDimoAsIntegerForm=2To30'此处的30需要根据你实际的工作表数填写n=Sheets(m).[a65536].End(xlUp).Rowo=Sheets(1).[a65536].End(xlUp).RowSheet

2、s(m).SelectRange("a1","z"&n).SelectRange("a"&n).ActivateSelection.CopySheets(1).SelectRange("a"&o+1).SelectActiveSheet.PasteNextEndSub5、全选代码，点击运行图标，如图：6、注意事项：1）汇总好的数据在第一张工作表中；2）“运行”图标每点击一次，就进行一次汇总，切勿点击多次；3）汇总后的数据不能通过“Ctrl+Z”来撤销操作，事先须做好数据备份。