VBA excel - 复制行内容低于

我想将行的全部内容复制到下一行，当它满足一些条件时。所以，如果我在第3行是我想，行4将有3行VBA excel - 复制行内容低于

问题的确切内容是该行4已经拥有自己的内容。我怎样才能把它移下来然后复制我想要的内容？

我只试过Entirerow.Copy并粘贴特殊方法，但似乎并不奏效。

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

任何提示？

的可能的复制[EXCEL VBA宏 - 复制和插入复制的单元格（http://stackoverflow.com/questions/21455635/excel-vba-macro- copy-and-insert-copied-cells） –

尝试类似下面的代码：

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

2017-03-16 18:39:54

就是这样！谢谢！ –

回答