用于使用活动单元格并将多个单元格复制到不同单元格中的另一个工作表的宏

Question

我正在尝试使用宏将信息从一个工作表复制到另一个工作表。我希望能够在工作表A中选择一个单元格(例如A10)，并将其作为引用复制同一行中的单元格，例如c10，d10和g10，并将该信息粘贴到工作表B中的静态单元格中，例如$A$6，$A$7和$A$8。我已经查看了留言板，但没有发现任何使用活动单元格的东西，以及多个单元格。提前感谢！阿德里安

Answer 1

该任务可以使用类似以下示例的简单语句来完成：

Worksheets("Sheet A").Range("A10").Copy destination:=Worksheets("Sheet B").Range("$A$6:$A$8")

如果您希望能够在工作表(“工作表A")中选择一个单元格并将其复制到目标区域(如上所示)，则可以创建如下所示的Sub：

Sub PasteSelection()
    Selection.Copy Destination:=Worksheets("Sheet B").Range("$A$6:$A$8")
End Sub

并使用例如运行Excel VBA宏的ALT+F8快捷方式调用它。

希望这能有所帮助。