VBA代码，用于根据列标题将数据从一个工作表复制并粘贴到另一个工作表

Question

在工作簿1上，在工作簿1中，单元格A1：E1具有列标题，但没有数据。在工作簿2的工作表1上，数据范围为A1：AC5000。我想挑选此工作簿中与workbook1上的标题匹配的列，将它们复制并粘贴到workbook1中的列标题下。有人可以帮我这个吗

Answer 1

Dim c As Range 昏暗的范围 Dim i 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

这有效