将列从一个Excel工作表复制到另一个Excel工作表

Question

我想将一个Excel工作表中的特定列复制到另一个工作簿中的另一个Excel工作表。我如何使用宏将某些列复制到不同的Excel表单中？

Answer 1

假设您有两个工作簿（源和目标），并且您想将源工作簿中的列A复制到目标工作簿中的列A中。

Sub CopyColumnToWorkbook() 
    Dim sourceColumn As Range, targetColumn As Range 

    Set sourceColumn = Workbooks("Source").Worksheets("Sheet1").Columns("A") 
    Set targetColumn = Workbooks("Target").Worksheets("Sheet1").Columns("A") 

    sourceColumn.Copy Destination:=targetColumn 
End Sub 

很明显，您可以根据需要更改列。