多个工作表合并汇总之VBA方法(共2页).doc

精选优质文档-倾情为你奉上多个工作表合并汇总（VBA方法）傻瓜教程1、打开要汇总工作表的excel文件；2、按Alt+F11，打开VBA编辑器，如图；3、在左上角的“工程”中，选中“ThisWorkbook”，双击打开，如图；4、复制以下代码在空白处：Sub 合并()Dim m As IntegerDim n As IntegerDim o As IntegerFor m = 2 To 30 '此处的30需要根据你实际的工作表数填写n = Sheets(m).a65536.End(xlUp).Rowo = Sheets(1).a65536.End(xlUp).RowSheets(m).SelectRange("a1", "z" & n).SelectRange("a" & n).ActivateSelection.CopySheets(1).SelectRange("a" & o + 1).SelectActiveSheet.PasteNextEnd Sub5、全选代码，点击运行图标，如图：6、注意事项：1）汇总好的数据在第一张工作表中；2）“运行”图标每点击一次，就进行一次汇总，切勿点击多次；3）汇总后的数据不能通过“Ctrl+Z”来撤销操作，事先须做好数据备份。专心-专注-专业