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