按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
dstSheet.Activate
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
dstSheet.Paste
dstRows = dstRows + srcRows
srcSheet.Delete
Wend
Application.DisplayAlerts = True
End Sub
回到EXCEL窗口，执行“工具-宏-宏”中的“合并工作表”宏就会自动合并工作表了。
Ctrl+f查找每个表相同的表头，点查找全部，Ctrl+ A,选中查找的全部，点右键删除整行
