如何将数据从一张表复制到另一张表

我想从特定单元格的数据复制到另一个表单的特定单元格。

这是我试过的代码

Private Sub CommandButton1_Click() Sheets("KeyInformation").Select Range("A2:Q2").Select Range("A2:Q2").Copy Sheets("Factsheet").Select Range("B9:B25").Select ActiveSheet.Paste Sheets("Factsheet").Select End Sub 

它复制。 我怎么粘贴我想要的地方？

Answer 1

避免使用select。

 Private Sub CommandButton1_Click() Dim ws, ws1 As Worksheet Set ws = Sheets("KeyInformation") Set ws1 = Sheets("Factsheet") ws.Range("A2:Q2").Copy ws1.Range("B9").PasteSpecial Paste:=xlPasteAll, Transpose:=True Application.CutCopyMode = False ws1.Activate End Sub 

Answer 2

如果只想将新工作表中的行复制到同一位置，则必须声明要复制的行的位置：

 Private Sub CommandButton1_Click() Sheets("KeyInformation").Select Range("A2:Q2").Select Range("A2:Q2").Copy Sheets("Factsheet").Select ' Find the last row of data Range("A2:Q2").Select ActiveSheet.Paste Sheets("Factsheet").Select End Sub