VBA遍历数组的两种方法
Admin | 2017-3-17 11:23:33 | 被阅次数 | 23200
在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的方式，我们无法修改数组的值，注意上面代码中的注视。