Excel VBA For Eachでコレクションや配列などの反復で処理する方法

以下のようなシーンで利用されます。

・コレクションや配列などの要素に対して、順番にアクセスして処理を行いたい場合に使用します。

・ワークシート上のセル範囲やデータベースのレコードなど、複数の要素を含むデータに対して操作を行う場合に便利です。

Option Explicit

Sub ForEachLoop()
    Dim element As Variant
    Dim collection As collection
    
    ' コレクションを作成
    Set collection = New collection
    
    ' コレクションに要素を追加
    collection.Add "Apple"
    collection.Add "Banana"
    collection.Add "Orange"
    
    ' コレクション内の各要素に対して繰り返し処理を行う
    For Each element In collection
        Debug.Print element
    Next element
End Sub