foreach用法(vba for each遍历循环方法)

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

当执行上面的代码时，它会在每行中打印一个项目的所有水果名称。