如何组合excel表格

如何组合excel表格,excel,Excel,我有一个不同表格和相同格式的excel。是否有任何插件可用于将所有工作表合并为“合并”工作表?非常感谢您的帮助您可以使用vba Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Merged" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=

我有一个不同表格和相同格式的excel。是否有任何插件可用于将所有工作表合并为“合并”工作表?非常感谢您的帮助

您可以使用vba

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Merged"
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