Excel / VBA按列名称

Question

我需要将每个Excel工作簿标签中的标题列合并为一个。

我有52个标签，每个标签都有不同数量的列，但我需要的6列都有相同的标题。我需要提取每个列并按顺序放置它们，所以52个标签看起来像这样，例如

但如果我想从每个标签中选择“Column1”并按顺序显示

我该怎么做？我已经能够在SO上找到一些例子，但没有一个适合这种情况，到目前为止，我一直无法自己拼凑出一个解决方案。非常感谢任何帮助！

修改的

这就是我目前所拥有的，但这也是打印标题

Sub Combine()

Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate

For J = 2 To Sheets.Count
    Sheets(J).Activate
    Dim rng1 As Range
    Set rng1 = Range(Range("A1:Z1").Find("Customer"), Range("A1:Z1").Find("Customer").End(xlDown))
    rng1.Select
    rng1.CurrentRegion.Select
    'Selection.CurrentRegion.Select
    rng1.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
    rng1.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

Sheets(1).Activate

End Sub