2011-06-17 208 views

回答

5

假設您有兩個工作簿(源和目標),並且您想將源工作簿中的列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 

很明顯,您可以根據需要更改列。

相關問題