Excel VBAのFor Each文のサンプル

ExcelのVBAのFor Each文のサンプルです。
For Each文は繰り返し処理を行うことができます。

For Each文
セルの範囲を指定するサンプル
ワークシートを指定するサンプル

For Each文

For Each 変数 In コレクション
繰り返される箇所
Next

コレクションの数だけ処理を繰り返します。

セルの範囲を指定するサンプル

For Each文でセルの範囲を指定するサンプルです。
4行目は、コレクションとしてセルの範囲を指定しています。
B2からC5まで処理が行われます。

Sub test1()
    Dim r1 As Range
    
    For Each r1 In Range("B2:C5")
        r1.Value = "1"
    Next
End Sub

上記のコードを実行した結果です。
B2からC5まで１がセットされます。

ワークシートを指定するサンプル

For Each文でワークシートを指定するサンプルです。
4行目は、コレクションとしてワークシートを指定しています。
ワークシートの数だけループ処理が行われます。
6行目は、ワークシート名がSheet2の指定したセルの範囲に1をセットしています。

Sub test1()
    Dim w1 As Worksheet
    
    For Each w1 In Worksheets
        If w1.Name = "Sheet2" Then
            w1.Range("B2:C5").Value = "1"
        End If
    Next
End Sub