基于表头名称将列从Excel复制到另一个工作表的VBA代码

Sub CopyColumnsByHeader()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim headerCell As Range
    Dim headerName As String
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围，这里假设数据从第1行开始，第1列是表头
    Set sourceRange = sourceSheet.Range("A1").CurrentRegion
    
    ' 遍历源表头
    For Each headerCell In sourceRange.Rows(1).Cells
        headerName = headerCell.Value
        
        ' 根据表头名称查找目标范围
        Set targetRange = targetSheet.Rows(1).Find(headerName)
        
        ' 如果找到了对应的表头名称，则复制整列数据到目标范围
        If Not targetRange Is Nothing Then
            sourceRange.Columns(headerCell.Column).Copy targetRange.EntireColumn
        End If
    Next headerCell
End Sub