Копирование отдельных данных столбца ИСПОЛЬЗОВАНИЕ КНОПКИ из Book1 в Book2 на основе соответствия заголовка столбца

Question

В Excel я хотел бы скопировать данные SPECIFIC columns из Book1 в Book2 на основе сопоставления заголовков столбцов. Book1 и Book2 имеют одинаковый заголовок. Мне нужна одиночная кнопка в sheet2 Book1 для выполнения этого макроса копии или VBscript.

Кроме того, в Book2 у меня есть несколько столбцов с данными в строке1. Эти данные должны заполняться автоматически (SAME DATA) во всех строках вниз в зависимости от количества строк данных, скопированных из Book1.

Answer 1

Я пробовал код, указанный на этом сайте. Он работает нормально. Теперь мне нужна вторая часть моего вопроса.

Sub CopyHeaders() 
Dim header As Range, headers As Range 
Set headers = Workbooks("Book1.xlsm").Worksheets("sheet1").Range("A1:Z1") 

For Each header In headers 
    If GetHeaderColumn(header.Value) > 0 Then 
     Range(header.Offset(1, 0), header.End(xlDown)).Copy Destination:=Workbooks("Book2.xlsm").Worksheets("sheet1").Cells(2, GetHeaderColumn(header.Value)) 
    End If 
Next 
End Sub 

Function GetHeaderColumn(header As String) As Integer 
    Dim headers As Range 
    Set headers = Workbooks("Book2.xlsm").Worksheets("sheet1").Range("A1:Z1") 
    GetHeaderColumn = IIf(IsNumeric(Application.Match(header, headers, 0)), Application.Match(header, headers, 0), 0) 
End Function