多表合并宏代码

来源：吉趣旅游网

按ALT+F11调出VBA窗口，插入一个模块，然后把下面的代码复制进去

Sub Macro1()

Dim dstSheet As Worksheet

Dim srcSheet As Worksheet

Dim dstRows As Long

Dim srcRows As Long

Application.DisplayAlerts = False

Set dstSheet = Sheets(1)

dstRows = dstSheet.Cells.SpecialCells(xlLastCell).Row

While Sheets.Count > 1

Set srcSheet = Sheets(2)

实用文档.

srcRows = srcSheet.Cells.SpecialCells(xlLastCell).Row

srcSheet.Rows(\"1:\" & srcRows).Copy

dstSheet.Range(\"A\" & (dstRows + 1)).Select

dstRows = dstRows + srcRows

Wend

Application.DisplayAlerts = True

End Sub

回到EXCEL窗口，执行“工具-宏-宏〞中的“合并工作表〞宏就会自动合并工作表了。

Ctrl+f查找每个表相同的表头，点查找全部，Ctrl+ A,选中查找的全部，点右键删除整行

实用文档.

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文