excel中如何合并多个sheet到一个表？

转自老外的帖子，试过了管用：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

 

运行宏