1行ずつ空の行を挿入する
使用している行を最後まで繰り返し読み取って１行ずつ空行を挿入していく
|
1 2 3 4 5 6 7 |
Dim i As Long For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If i = 1 Then Exit For End If Rows(i).Insert Next i |
実行イメージ
スポンサーリンク
