欢迎来到天天文库
浏览记录
ID:9392037
大小:281.00 KB
页数:2页
时间:2018-04-30
《多个工作表合并汇总之vba方法》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
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).RowSheets(m).SelectRang
2、e("a1","z"&n).SelectRange("a"&n).ActivateSelection.CopySheets(1).SelectRange("a"&o+1).SelectActiveSheet.PasteNextEndSub5、全选代码,点击运行图标,如图:6、注意事项:1)汇总好的数据在第一张工作表中;2)“运行”图标每点击一次,就进行一次汇总,切勿点击多次;3)汇总后的数据不能通过“Ctrl+Z”来撤销操作,事先须做好数据备份。
此文档下载收益归作者所有