如何提高复制粘贴效率?

Question

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

现在我想从工作表(1)复制15列到工作表(" basic ")。在我要复制的表格(1)上，所有的列都是并排的。问题出现在我想粘贴而不是的Sheet(" basic ")上所有的列是并排的。

有比我更聪明的方法吗?如果没有，我会像下面的代码一样做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

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