For Each 循環用於執行語句或一組為數組或集合的每個元素。

For Each 循環類似於For循環; 然而，該循環被執行用於在陣列或組的每個元素。因此，步進計數器將不會在這種類型的環的存在，它主要用於數組或用在文件係統對象的上下文，以遞歸方式運行。

語法：

一個對於 VBA每個循環的語法是：

For Each element In Group
  [statement 1]
  [statement 2]
  ....
  [statement n]
  [Exit For]
  [statement 11]
  [statement 22]
Next

示例:

Private Sub Constant_demo_Click()  
 'fruits is an array
 fruits = Array("apple", "orange", "cherries")
 Dim fruitnames As Variant
 

 'iterating using For each loop.
 For Each Item In fruits
    fruitnames = fruitnames & Item & Chr(10)
 Next

 MsgBox fruitnames
End Sub

當執行上麵的代碼，它打印所有的水果名稱在每行。

apple
orange
cherries