☰

有没有办法自动复制并插入复制的单元格？

tag-icon • tag-icon microsoft-excel vba
有没有办法自动复制并插入复制的单元格？

本质上，我需要自动执行复制行然后插入复制行的简单过程。在 Excel 中，我突出显示行，然后右键单击并点击插入复制的单元格。

我复制的数据始终在行中127:138，我想将其复制到行首143。“插入复制单元格”很重要，因为这会将行向下推，我想这样做是因为我将反复运行此宏，最终得到一个列表。

答案1

尽管您确实需要一个宏来实现这一点，但您忘记了 Excel 有一个内置的宏记录器。

如果您需要执行的操作始终相同，并且不涉及动态，则您实际上不需要了解 VBA 来创建它。

只需在上面的工具栏中找到宏记录按钮，从头到尾执行您想要执行的操作，然后点击停止按钮。

然后，您可以为其分配键盘快捷键，甚至可以创建工具栏按钮并将宏分配给它。（或者从找到录制按钮的宏工具栏启动宏）

答案2

您使用下面编写的 VBA 代码来复制指定的行，并将单元格指针移动到特定行以粘贴复制的行。

Option Explicit

Public Sub CopyRows()

    Dim rngSource   As Range
    Dim rngTarget   As Range

    With Worksheets(1)
        Set rngSource = .Range("A127:A138")
        Set rngTarget = .Range("A143")

        rngSource.Copy

        rngTarget.EntireRow.Insert Shift:=xlDown
        rngTarget.PasteSpecial xlPasteAll
        Application.CutCopyMode = False
    End With

End Sub

注意：在我发布到此处之前，我已经测试过此代码。

希望这对你有帮助。

相关内容