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

就是這樣！謝謝！ –

回答