Код VBA для копирования и вставки данных с одного листа на другой на основе заголовков столбцов

Question

На листе 1 в ячейках 1 книги A1: E1 есть заголовки столбцов, но нет данных. На листе 1 рабочей книги2 диапазон данных: A1: AC5000. Я хочу выделить столбцы в этой рабочей книге, которые соответствуют заголовкам на рабочей книге1, скопировать и вставить их под заголовками столбцов в рабочей книге1. Может кто-то помочь мне с этим, пожалуйста,

Answer 1

Dim с Как Диапазон Dim Rng Как Range Dim я As Integer

 Dim r As Range 
    With wsCopyFrom1.Range("a1").CurrentRegion 
    For Each r In wsCopyTo1a.Range("a1:g1") 
     Set c = .Rows(1).Find(r.Value, , , xlWhole, , 0) 
      If Not c Is Nothing Then 
       .Columns(c.Column).Copy 
       r.PasteSpecial xlPasteValues 

      End If 
     Next 
     Application.CutCopyMode = False 
    End With 

Это работает