单击特定单元格时，如何将一个单元格的信息复制到另一个工作表上的单元格？

Question

我一直在尝试创建一个 VBA 宏，当我单击某个单元格（在 excel 中）时，可以将另一个工作表上的信息复制到指定的单元格中。

例如，如果我单击 Worksheet1 中的 A1，则 worksheet3 上的 B20:C20 将复制到 Worksheet2 的 B20:C20。 谁能帮我创建这个宏？

Answer 1

尝试按照以下示例进行操作：

Private Sub CommandButton1_Click()
    Dim ws As Worksheet, 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