创建新的 sheet，命名为 “总表”，Alt+F11，选定总表，贴入以下代码

Sub main()

For Each sh In Sheets

If sh.Name <> "总表" Then

i = sh.Range("G65536").End(3).Row // G 为有数据的最大列

k = Range("G65536").End(3).Row // G 为有数据的最大列

sh.Range("A2:H" & i).Copy Range("A" & k + 1) // A2:H 为有合并数据范围

End If

Next

End Sub