excel - 如何让复制粘贴更高效？

Question

我使用以下代码在一个工作簿中复制和粘贴。

现在我想将 15 列从 Sheet (1) 复制到 Sheet ("Basics")。在我要复制的 Sheet(1) 上，所有列并排。问题出现在我要粘贴的 Sheet("Basics") 上，并非所有列都是并排的。

有比我更聪明的方法吗？如果不是，我会在下面的代码中做 15 次相同的操作，我强烈认为这不是最有效的方法。

Sub Transfer()

Dim ws As Worksheet
Dim nr_rows As Long

Set ws = ThisWorkbook.Worksheets("1")

With ws
   nr_rows = ws.Range("A2").End(xlDown).Row
   ws.Range("A2:A" & nr_rows).Copy   
ActiveSheet.Paste Destination:=Worksheets("Basics").Range("E10")

End With

End Sub

标签： excelvba

Answer 1

尝试这个：

Sub Transfer()
    Dim ws As Worksheet
    Dim nr_rows As Long

    Set ws = ThisWorkbook.Worksheets("1")

    With ws
         nr_rows = ws.Range("A2").End(xlDown).Row
         Worksheets("Basics").Range("E10") = ws.Range("A2:A" & nr_rows)
    End With
End Sub