如何更改下面的代碼以添加兩行？

Question

如何更改下面的代碼以添加2行？

Sub AddRows() 
    Dim MyRange As Range 
    Dim iCounter As Long 
    Dim LastRow As Long 

    With ThisWorkbook.Worksheets("Numbers") 
     LastRow = .Range("A" & .Rows.Count).End(xlUp).Row 
     Set MyRange = Range("A2:A" & LastRow) 

     For iCounter = MyRange.Rows.Count To 2 Step -1 

      'Insert blank row, 
      MyRange.Rows(iCounter).EntireRow.Insert 

     Next iCounter 
    End With 
End Sub 

Answer 1

如果您正打算插入兩行（見Gary的評論）時，你可以從這個快速變化：

MyRange.Rows(iCounter).EntireRow.Insert 

要

MyRange.Rows(iCounter).Resize(2,1).EntireRow.Insert