VBA - 针对每个循环

针对每个循环用于执行一系列或一组语句以针对数组或集合中的每个元素。

针对每个循环类似于针对循环；但针对每个元素或组执行该循环。因此，此类循环中不会有步骤计数器。此方法最常用于针对数组或文件系统对象上下文，以便递归运行。

语法

以下是 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