多表合并宏代码

《多表合并宏代码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、多表合并宏代码(共1页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--按ALT+F11调出VBA窗口，插入一个模块，然后把下面的代码复制进去SubMacro1()DimdstSheetAsWorksheetDimsrcSheetAsWorksheetDimdstRowsAsLongDimsrcRowsAsLong=FalseSetdstSheet=Sheets(1)dstRows=While>1SetsrcSheet=Sheets(2)srcRows=("1:"&srcRows).Copy("A&q

2、uot;&(dstRows+1)).SelectdstRows=dstRows+srcRowsWend=TrueEndSub回到EXCEL窗口，执行“工具-宏-宏”中的“合并工作表”宏就会自动合并工作表了。Ctrl+f查找每个表相同的表头，点查找全部，Ctrl+A,选中查找的全部，点右键删除整行2