VBA for each循環

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