【问题标题】:macro to use active cell and copy multiple cells to another sheet in different cells宏使用活动单元格并将多个单元格复制到不同单元格中的另一个工作表
【发布时间】:2016-03-15 02:53:45
【问题描述】:

我正在尝试使用宏将信息从一张表复制到另一张表中。我希望能够在工作表 A 中选择一个单元格(例如 A10),并将其用作同一行中的参考复制单元格,例如 c10、d10 和 g10,然后将该信息粘贴到工作表 B 中的静态单元格中,例如 6 美元、7 美元和 8 美元。 浏览了留言板,但没有发现任何使用活动单元格和多个单元格的内容。 提前致谢! 阿德里安

【问题讨论】:

    标签: excel vba


    【解决方案1】:

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

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

    如果您希望能够在 Worksheets("Sheet A") 中选择一个单元格并将其复制到目标 Range(如上所示),那么您可以创建一个 Sub,如下所示:

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

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

    希望这会有所帮助。

    【讨论】:

    • 感谢您的快速回复!我希望自动选择单元格(基于活动单元格),并防止每次复制某些单元格时进入范围。每次我将连续复制相同的单元格(列),并且每条新记录的工作表 A 都会更改该行,并且它总是会填充工作表 B 中的相同单元格,我用它来创建 pdf 发票,并在每次宏完成时保存,以便我可以通过电子邮件发送出去。
    • 我建议您澄清您的问题并添加 VBA 代码:您可以使用宏记录器,然后我们将能够提供帮助。谢谢和问候,
    • Application.CutCopyMode = False Selection.Copy Sheets("Invoice").Select Range("A6").Select ActiveSheet.Paste Sheets("Form response 1").Select Range("D10" ).Select Application.CutCopyMode = False Selection.Copy Sheets("Invoice").Select Range("B6").Select ActiveSheet.Paste End Sub
    • 已为您提供了与原始问题中的单元格范围相关的答案。您可以将其应用于任何其他单元格范围。
    • 为了澄清问题,我有一张包含客户数据的表格。我想选择一行(对应于客户),然后运行一个宏,该宏采用例如 A6 形式的值并填充工作表 2(发票)、b11(这是名字),并且 tehn 自动获取单元格中的值c6 在工作表 1 中,并将其复制到工作表 2、c12 中,依此类推。希望这会有所帮助
    猜你喜欢
    • 2020-10-26
    • 2012-08-04
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2017-01-09
    • 2014-11-10
    • 1970-01-01
    相关资源
    最近更新 更多