Excel VBA: 「For Each ~ Next」で配列の要素を効率的に処理する方法

Excel VBAで配列のすべての要素に効率的に同じ処理を適用する「For Each ~ Next」の使い方を明確に解説します。

Excel VBAで配列の各要素に対して同じ処理を行いたいんですがどんな方法がありますか？

それには”For Each ~ Next“というループを使用するのがベストだよ。この記事で詳しく解説しましょう。

「For Each ~ Next」の基本説明

Excel VBAでデータの集合や一連のデータを効率的に操作する場合、配列やコレクションがよく使用されます。

特に、配列やコレクション内の各要素に対して同じ操作や処理を行いたい場合には、For Each ~ Next ループが非常に役立ちます。

For Each 要素 In 配列やコレクション
    ' ここに処理を書く
Next 要素

このループの中で、指定した配列やコレクションの各要素に対して一つずつ同じ処理が実行されます。ループが開始されると、配列やコレクションの最初の要素から順に処理され、最後の要素まで達するとループは終了します。

以下は、文字列の配列を使用し、その各要素をメッセージボックスで表示する例です。

Dim fruit As Variant
Dim fruits(1 To 3) As String
fruits(1) = "Apple"
fruits(2) = "Banana"
fruits(3) = "Cherry"

For Each fruit In fruits
    MsgBox fruit
Next fruit

このコードを実行すると、メッセージボックスが”Apple”、次に”Banana”、そして”Cherry”と順番に表示されます。

サンプルプログラムを使った「For Each ~ Next」の具体的な使い方

文字列の配列内の各要素に対して、その要素の文字数をカウントし、メッセージボックスで表示します。

Dim item As Variant
Dim fruits(1 To 3) As String
fruits(1) = "Apple"
fruits(2) = "Banana"
fruits(3) = "Cherry"

For Each item In fruits
    MsgBox "The fruit " & item & " has " & Len(item) & " letters."
Next item

Dim item As Variant: itemという変数をVariant型として宣言します。これは配列の各要素を一時的に保持するための変数です。
Dim fruits(1 To 3) As String: fruitsという文字列の配列を宣言します。この配列は3つの要素を持ちます。
fruits(1) = "Apple" など: 配列fruitsの各要素に対して、文字列のデータを代入します。
For Each item In fruits: fruits配列の最初の要素から最後の要素まで、item変数を使用してループを開始します。
MsgBox "The fruit " & item & " has " & Len(item) & " letters.": 現在のitemの内容とその文字数をメッセージボックスで表示します。Len関数は文字列の長さ（文字数）を返す関数です。
Next item: 配列の次の要素に移動し、同じ処理を繰り返します。すべての要素が処理されるとループは終了します。