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