excel - 根据列标题复制特定列

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

假设您要一个接一个地复制它们（而不是 sheet2 的“F”列中的 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")