我有一个工作簿,其中有许多具有不同名称的工作表,这些工作表需要合并到一个工作表中。我发现这个代码运行得很好,除了我需要它忽略一个名为"COMMAND“的工作表(它用于其他目的)。代码目前将创建一个名为"Combined“的工作表,并将所有工作表合并到它,但我更喜欢它,如果合并工作表不需要每次都创建和删除的话。为了清楚起见,除了名为"COMMAND“的工作表之外,此工作簿中的所有工作表都需要合并到”组合“工作表中。
Private 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
https://stackoverflow.com/questions/54815621
复制相似问题