Vba遍历数组

下面我们提供两种方法，在vba中实现遍历数组，分别如下:

1、常规的遍历方法，代码如下:

Sub RunA()   Dim Arr As Variant   Dim i As Integer   Arr = Array(1, 2, 3, 4, 5)   For i = 0 To UBound(Arr)     Debug.Print Arr(i)     Arr(i) = Rnd'修改数组   Next i End Sub

2、For Each...In遍历数组，代码如下：

Sub RunB()   Dim Arr As Variant   Dim i As Variant   Arr = Array(1, 2, 3, 4, 5)   For Each i In Arr     Debug.Print i     i = Rnd'注意，其实这句代码毫无意义   Next End Sub

注意，采用For Each...In的方式，我们无法修改数组的值，注意上面代码中的注释。