多个Excel工作表组合成一个单一的片

Question

我发现其用于多个工作表的数据组合成一个主片

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.Replace 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 

然而

在我的工作表中的第一3行是类别标题和范围这VBA脚本来自A-BN。我想修改这段代码或者创建一个新的代码来复制工作表中的数据，以便这些类别标题不会在主表单中重复。我只需要前3行作为标题，其余部分是数据。

这怎么能实现？

Answer 1

有些想要这样？

Sub Combine() 
Dim J As Integer 
On Error Resume Next 
Sheets(1).Select 
Worksheets.Add 
Sheets(1).Name = "Combined" 
Sheets(2).Activate 
Range("A1:C3").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(3, 0).Resize(Selection.Rows.Count - 3).Select 
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) 
Next 
End Sub