試してませんでした。
Sub sample()
Dim i, j As Integer
i = 2
j = 3
Range(Cells(21 + i, 1), Cells(21 + i + j, 1)).EntireRow.Insert
End Sub
実行したところ、23~26行目に行が4行挿入されました。
通報 ...
試してませんでした。
Sub sample()
Dim i, j As Integer
i = 2
j = 3
Range(Cells(21 + i, 1), Cells(21 + i + j, 1)).EntireRow.Insert
End Sub
実行したところ、23~26行目に行が4行挿入されました。