Excel VBAのFor Each文のサンプル

ExcelのVBAの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まで1がセットされます。

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

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

関連の記事

Excel VBAのIF文のサンプル
Excel VBAのSelect Case文のサンプル
Excel VBAのFor文のサンプル
Excel VBAのDo Loop文のサンプル
Excel VBAの変数の宣言を強制するサンプル
Excel VBAのデータ型
Excel VBA セルを指定して値を設定/取得するサンプル
Excel VBA セルの値をテキストに出力するサンプル

△上に戻る