上述代码中,首先选择了当前行,然后将当前行复制,最后将当前行粘贴到下一行。

如果你想要将当前行复制到其他行,可以通过修改代码中的行数来实现,例如:

Sub CopyPasteRow()
    ' 选择当前行
    Rows(ActiveCell.Row).Select
    ' 复制当前行
    Selection.Copy
    ' 将当前行粘贴到第 5 行
    Rows(5).Select
    ActiveSheet.Paste
End Sub

在这个例子中,当前行将被复制并粘贴到第 5 行。

希望这个例子能帮助您理解如何在 VBA 中复制粘贴整行。

    • 332
  •