Excel VBA ブック内のすべてのシートに対して同じ処理を行う方法

Excel VBA ブック内のすべてのシートに対して同じ処理を行う方法。例えば、すべてのシートのデータを変更したり、特定の値を検索・集計するのに便利です。 使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA 全シート同じ処理｜シーン

Excel VBA 全シート同じ処理｜サンプルコード

すべてのシートのA1セルに「データ更新済み」と入力する

Option Explicit

Sub 全シートループ処理()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Range("A1").Value = "データ更新済み"
    Next ws
End Sub

全シートの2行目以降のデータをクリアする（ヘッダーは残す）

Option Explicit

Sub シートのデータクリア()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Range("A2:Z1000").ClearContents ' A2:Z1000の内容をクリア
    Next ws
End Sub

シート名ごとに処理を変える

Option Explicit

Sub シート名ごとの処理()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "売上データ"
                ws.Range("B2").Value = "売上更新"
            Case "在庫データ"
                ws.Range("B2").Value = "在庫確認"
            Case Else
                ws.Range("B2").Value = "その他シート"
        End Select
    Next ws
End Sub

Excel VBA 全シート同じ処理｜まとめ