VBA For Loop – セルの範囲をループする

VBAでは、セルの範囲をループして、範囲内の各セルにアクションを適用することができます。

VBAを使用して、範囲内の各セルの条件をテストしたい場合、最良の方法は、範囲内をループして各セルをテストすることです。以下は、範囲内をループする方法を示す2つのコードの例です。ループする必要がある範囲内の値を置き換えることができます。

セルの範囲をループする

この例では、セルの範囲内をループします。ifステートメントは、セルに「FindMe」というテキストが含まれているかどうかの条件をテストし、見つかった場合はテキストの位置を示すメッセージボックスを表示します。

Public Sub LoopCells()

Dim c As Range

For Each c In Range("A1:A10")
    If c.Value = "FindMe" Then
      MsgBox "FindMe が " & c.Address & " で見つかりました。"
    End If
Next c

End Sub

列全体をループする

この例では、A列の範囲全体をループしています。

Public Sub LoopColumn()

Dim c As Range

For Each c In Range("A:A")
    If c.Value = "FindMe" Then
      MsgBox "FindMe が " & c.Address & " で見つかりました。" 
    End If
Next c

End Sub

行全体をループする

次の例では、１行目の全体を範囲としてループします。

Public Sub LoopRow()

Dim c As Range

For Each c In Range("1:1")
    If c.Value = "FindMe" Then
       MsgBox "FindMe が " & c.Address & " で見つかりました。" 
    End If
Next c

End Sub

<<VBAのサンプルに戻る