文档介绍:按ALT+F11调出VBA窗口,插入一个模块,然后把下面的代码复制进去Sub Macro1()    Dim dstSheet As Worksheet    Dim srcSheet As Worksheet    Dim dstRows As Long    Dim srcRows As Long          = False         Set dstSheet = Sheets(1)    dstRows = (xlLastCell).Row             While  > 1        Set srcSheet = Sheets(2)        srcRows = (xlLastCell).Row                 ("1:" & srcRows).Copy        ("A" & (dstRows + 1)).Select                         dstRows = dstRows + srcRows            Wend          = TrueEnd Sub回到EXCEL窗口,执行“工具-宏-宏”中的“合并工作表”宏就会自动合并工作表了。 Ctrl+f查找每个表相同的表头,点查找全部,Ctrl+A,选中查找的全部,点右键删除整行