For Each 要素 in 配列
    処理
Next 要素
| 要素 | 配列(またはコレクション)の個々の値を格納する変数 | 
| 配列 | 配列またはコレクション | 
Option Explicit
Sub main()
  Dim names(0 To 3) As String
  Dim name As Variant
  
  names(0) = "エクセル"
  names(1) = "ワード"
  names(2) = "パワーポイント"
  names(3) = "アクセス"
  
  For Each name In names
    Debug.Print (name)
  Next name
  '実行後、イミディエイト ウインドウに
  '以下の出力があります
  '
  'エクセル
  'ワード
  'パワーポイント
  'アクセス
End Sub
このサイトはリンクフリーです。リンクを貼る際に連絡は不要です。
© EXCEL VBA リファレンス all rights reserved.