データ間に複数の行を挿入する方法

Question

既存のデータ間に複数の行を追加したいと思います。

私はマクロコードの下で疲れましたが、10行を追加すると、既存の各データの後に10行が追加されます。

私

Sub test() 
Dim j As Long, r As Range 
j = InputBox("type the number of rows to be insered") 

Set r = Range("A2") 
Do 
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert 
Set r = Cells(r.Row + j + 1, 1) 
If r.Offset(1, 0) = "" Then Exit Do 
Loop 

End Sub 

Answer 1

は、この単純なコード、

Sub test() 
Dim i As Long, j As Long 
j = InputBox("type the number of rows to be insered") 
For i = 1 To j 
    Range("A2").EntireRow.Insert 
Next i 
End Sub