For Each的使用方法

在 VBA 中，`For Each` 是一种循环语句，用于遍历集合中的每个元素。它的语法格式如下：

For Each element In collection
    ' 循环体
Next element

其中，`element` 是集合中的每个元素，而 `collection` 则是要遍历的集合对象。在 `For Each` 循环中，每次迭代都会将集合中的一个元素赋值给 `element` 变量，然后执行循环体中的代码，直到集合中的所有元素都被遍历完毕。

以下是一个示例代码，演示了如何使用 `For Each` 循环来遍历一个数组中的元素：

Sub ProcessArray()
    Dim arr(1 To 5) As Integer
    Dim i As Integer
    
    ' 初始化数组
    For i = 1 To 5
        arr(i) = i * i
    Next i
    
    ' 遍历数组
    For Each element In arr
        Debug.Print element
    Next element
End Sub

在上面的示例中，我们定义了一个名为 `arr` 的数组，并初始化了它的每个元素。然后，我们使用 `For Each` 循环遍历了该数组中的所有元素，并使用 `Debug.Print` 语句输出了每个元素的值。这样，就能够依次处理数组中的所有元素，并且可以根据元素的值来进行不同的操作。