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")

根据列标题复制特定列

2 个答案: