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

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，如下所示： / p>

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

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

希望这可能会有所帮助。