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

头头荣誉出品 多个工作表合并汇总（VBA方法）傻瓜教程 1打开要汇总工作表的 excel文件； 2、按Alt+F11，打开 VBA编辑器，如图； iBlLczujDft V“aal B^ir 临養市搭十五局人人札吉选举陡昭登记丘工睡IKEiJ） IV，心 桔式辺 用宦型 运行⑧ XAQ）外IftlS与? 时口妁 括助QD输脸皿彳匸十四■jQ Sbailfl雹I SLtti?3 li- ] ij. .—J 債粗泄igiliin匪 UI10IH iBlLczujDft V“aal B^ir 临養市搭十五局人人札吉选举陡昭登记丘 工睡 IKEiJ） IV，心 桔式辺 用宦型 运行⑧ XAQ）外IftlS与? 时口妁 括助QD 输脸皿彳匸十四 ■j Q Sbailfl 雹I SLtti? 3 li- ] ij. .—J 債粗泄igiliin匪 UI10IHI_A出讥沁 §￡tu■■氓 Thi iff^Ua^k X 二1.珂1百￥尸*|￡屯61臨。P?lxt Bi tplihYTiL (^LtTaL Pa1k? 3ELtbl4Autrflll? @41“ 3Mbl4￡dcil<-i.i Trat laihl^OuCl Ln.1 ux Filxa Ho.ihliiSi-1 ■< L i an D - -rHEE-iT-Lra Kmi? —tf 取 ud^rdfL肌h B. ? Visibl虫 -1 - i-lSbM4tvJ 专Eictl中W ? ILL111J 110.53 H i ^riaxcift m EK?J 3、在左上角的"工程”中，选中" ThisWorkbook ”，双击打开，如图; 头头荣誉出品 4、复制以下代码在空白处： Sub合并() Dim m As In teger Dim n As In teger Dim o As In teger For m = 2 To 30 '此处的30需要根据你实际的工作表数填写 n = Sheets(m).[a65536].E nd(xlUp).Row o = Sheets(1).[a65536].E nd(xlUp).Row Sheets(m).Select Ran ge("a1", "z" & n).Select Ran ge("a" & n).Activate Selectio n.Copy Sheets(1).Select Ran ge("a" & o + 1).Select ActiveSheet. Paste Next End Sub 5、全选代码，点击运行图标，如图: 6、注意事项： 1） 汇总好的数据在第一张工作表中； 2） “运行”图标每点击一次，就进行一次汇总，切勿点击多次； 3） 汇总后的数据不能通过“ Ctrl+Z ”来撤销操作，事先须做好数据备份。