Question

我想将特定单元格中的数据从一张纸张复制到另一张纸张的特定单元格。

这是我试过的代码

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

如何将数据从一个工作表复制到另一个工作表

2 个答案: