VBA - For Each 循环

For Each循环用于为数组或集合中的每个元素执行一条语句或一组语句。

For Each 循环与 For 循环类似； 但是，循环是针对数组或组中的每个元素执行的。 因此，步数计数器不会存在于这种类型的循环中。 它主要与数组一起使用，或者在文件系统对象的上下文中使用，以便递归操作。

语法

以下是 VBA 中 For Each 循环的语法。

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

❮ vba_loops.html