ExcelVBA 5行目から最終行まで2行ずつ追加したい

Excelの1ブックにシートが4枚あります。いずれもフォーマットは同じです。
4行目に表の見出しがあるため、5行目から最終行まで、2行ずつ追加したいです。
できれば、ブックをまとめて処理したいです。その際、シートの最終行はバラバラです。

元のコードは下の通りですが、5行目を指定する方法がわかりません。

詳しい方、よろしくお願いいたします。


Sub test()

Dim i As Long
For i = ("A5,Cells(Rows.Count, 1).End(xlUp)).Row To 3 Step -1
Rows(i).Insert
Next i
End Sub

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2022/02/20 16:06

Option Explicit

Sub test()
Dim i As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 6 Step -1
Rows(i).Resize(2).Insert
Next i
End Sub

です。

この回答へのお礼

ありがとうございました。
さくさく動いて感動です。

思ったより簡単なものなんですね。
また、ご縁があったら、よろしくお願い致します。

お礼日時：2022/02/23 17:36

No.2 回答者： よろずやkinchan 回答日時： 2022/02/20 16:11

おっと、シートが4枚ですね。

Option Explicit
Sub test()
Dim sh As Worksheet
For Each sh In Worksheets
Dim i As Long
For i = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row To 6 Step -1
sh.Rows(i).Resize(2).Insert
Next i
Next sh
End Sub