根據列標題複製特定的列

Question

我想將一組列從一個表複製到另一個表。

我試過這個，但我想複製A：D加上其他列如F，X，V等。任何幫助將是非常有用的

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

Set sourceColumn = Workbooks("book1.xlsm").Sheets(1).Columns("A:D") 
Set targetColumn = Workbooks("book1.xlsm").Sheets(2).Columns("A:D") 

sourceColumn.Copy Destination:=targetColumn 
End Sub 

Answer 1

假設你要複製他們一個接一個（在列「F」 Sheet2中的工作表Sheet1不列「F」等）

Sub CopyColumnToWorkbook() 

Dim sourceColumn As Range 

With Sheets(1) 
    Set sourceColumn = Union(.Columns("A:D"), .Columns("F"), .Columns("X"), .Columns("V")) 
End With 

sourceColumn.Copy Destination:=Sheets(2).Cells(1, 1) 

End Sub 

Answer 2

如您所知，您要複製的特定列可以更直接地完成：

Sheets(1).Range("A:D,F:F,X:X,V:V").Copy Sheets(2).Range("A1")