通过搜索选定的多个标题复制整个列的VBA代码

Question

我试图找到一个循环（对不起，不知道这里使用的正确单词），这将帮助我选择整个列并复制该内容在另一个位置 - 也许（Sheet2.A1）单元格

我已经找到“Address1”标题并获取该标题的列代码。但是我现在有一个标题列表，需要在标题行上搜索并将他们的整个列复制到另一个位置。

我正在搜索的标题就像Address1，Address3，Address5（random）。我可以将这些标题放在另一张纸上，以便vba代码可以从那里选择它进行搜索（表3）

下面的代码将搜索并只给我“Address1”

Sub FindAddressColumn() 
Dim rngAddress As Range 
Set rngAddress = Range("A1:Z1").Find("Address1") 
If rngAddress Is Nothing Then 
    MsgBox "Address column was not found." 
    Exit Sub 
End If 
Range(rngAddress, rngAddress.End(xlDown)).Select 
End Sub 

任何帮助或建议将不胜感激。我能够找到仅复制单个列的信息，但现在需要复制多个标题的挑战。请帮助朋友。

Answer 1

只是一个样本....

Sub FindAddressColumn() 
Dim rngAddress As Range, a As String 

For Each a In Array("Address1", "Address2", "Address3", "Address4") 
    Set rngAddress = Nothing 
    Set rngAddress = Range("A1:Z1").Find(a) 
    If Not rngAddress Is Nothing Then 
     'Your Task goes here... 
     Range(rngAddress, rngAddress.End(xlDown)).Select 
    End If 
Next a 

End Sub