VBA For Each迴圈

For Each迴圈用於為陣列或集合中的每個元素執行語句或一組語句。
For Each迴圈與For迴圈類似; 然而，For Each迴圈是為陣列或組中的每個元素執行的。 因此，這種型別的迴圈中將不存在步計數器。 它主要用於陣列或在檔案系統物件的上下文中使用，以便遞回操作。

語法

以下是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("蘋果", "橙子", "櫻桃")
   Dim fruitnames As Variant

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

   MsgBox fruitnames
End Sub

當執行上面的程式碼時，它會在每行中列印一個專案的所有水果名稱。