VBA – For Eachですべてのワークシートをループする

ワークブック全体に適用されるマクロは、複数のシートから新しいワークブックにデータを抽出したり、すべてのシートに高度な書式を適用したり、その他多くの理由で便利に使用できます。ここでは、基本的な構文と、ワークブック内のすべてのシートで動作するVBAコードの例を示します。

ワークブック内のすべてのシートをループする

ワークブック内のすべてのシートをループし、VBAコードを適用するための基本的な構文は次のとおりです。

For Each ws In Worksheets

  '更新またはここで何かを行う

Next

VBAを使用してワークブック内のすべてのワークシートを更新する

実際に動作する例として、次のコードをコピーしてモジュールに貼り付け、実行してみてください。結果は、ワークブック内のすべてのシートのセルA1にテキストが配置されます。

Public Sub DoToAll()

'変数を宣言する
Dim ws As Worksheet

For Each ws In Worksheets

  'ForとNextの間にコードを配置する
  '各シートへの任意の処理
  ws.Range("A1") = "AutomateExcel.com"

Next

End Sub

<<VBAのサンプルに戻る