VBA excel - 复制下面的行内容

Question

我想在符合某些条件的情况下将行的全部内容复制到下一行。因此，如果我在第3行中，我希望第4行具有第3行的确切内容。

问题是第4行已经有了自己的内容。如何将其移动然后复制我想要的内容？

我只尝试了Entirerow.Copy并粘贴了特殊方法，但这似乎并没有起作用。

Worksheets("Sheet 1").Range("A2").EntireRow.Copy
Worksheets("Sheet 1").Range("A3").PasteSpecial

任何提示？

Answer 1

尝试类似下面的代码：

With Worksheets("Sheet 1")
    .Rows(Range("A2").Row).Copy
    .Range("A3").Insert Shift:=xlDown
End With