VBA将工作表的某些列复制并粘贴到另一工作表上的特定列

Sub CopyColumns()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set destinationSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源列范围和目标列范围
    Set sourceRange = sourceSheet.Range("A:A, C:C, E:E") ' 需要复制的列范围
    Set destinationRange = destinationSheet.Range("B:B, D:D, F:F") ' 需要粘贴的列范围
    
    ' 复制并粘贴列
    sourceRange.Copy destinationRange
End Sub