【VBA】各シートへの一括処理

Sub 各シートへの同じ処理()

Dim シート名 As Integer '変数としてシート名を使う
For シート名 = 1 To 5 'シート2から4のシートまで
Sheets(シート名).Select '〇番目のシートを選択する

Dim 開始行 As Long '開始行変数宣言
Dim 終了行 As Long '終了行変数宣言

開始行 = Sheets(Sheet6).Range("B2").Value '開始行はB2セルの値
終了行 = Sheets(シート名).Cells(Rows.Count, 1).End(xlUp) 'A列の最終行まで

Sheets(シート名).Rows(開始行 & ":" & 終了行).Delete '開始から最終行まで削除

Next シート名 '次のシートに移る

End Sub