转自老外的帖子，试过了管用：https://www.extendoffice.com/documents/excel/1184-excel-merge-multiple-worksheets-into-one.html
excel中打开宏编辑器，粘贴如下宏代码：
Sub
Combine()
Dim
J
As
Integer
On
Error
Resume
Next
Sheets(1).
Select
Worksheets.Add
Sheets(1).Name =
"Combined"
Sheets(2).Activate
Range(
"A1"
).EntireRow.
Select
Selection.Copy Destination:=Sheets(1).Range(
"A1"
)
For
J = 2
To
Sheets.Count
Sheets(J).Activate
Range(
"A1"
).
Select
Selection.CurrentRegion.
Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).
Select
Selection.Copy Destination:=Sheets(1).Range(
"A65536"
).
End
(xlUp)(2)
Next
End
Sub
运行宏