使用vba将多列复制并粘贴到另一个工作表中

Sub CopyColumns()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源范围（多列）
    Set sourceRange = sourceSheet.Range("A1:C10") ' 修改为实际的源范围
    
    ' 设置目标范围（粘贴位置）
    Set targetRange = targetSheet.Range("A1") ' 修改为实际的目标范围
    
    ' 复制源范围到目标范围
    sourceRange.Copy targetRange
End Sub