使用VBA将列复制并粘贴到新工作表

Sub CopyColumn()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceColumn As Range
    Dim targetColumn As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源列和目标列
    Set sourceColumn = sourceSheet.Range("A:A") ' 将"A:A"替换为实际的源列范围
    Set targetColumn = targetSheet.Range("A:A") ' 将"A:A"替换为实际的目标列范围
    
    ' 复制源列数据到目标列
    sourceColumn.Copy Destination:=targetColumn
End Sub