VBA遍历数组的2种方式

Sub 遍历数组1()
    ‘声明一个变量
    Dim Arr As Variant
    ‘声明一个数字变量
    Dim i As Integer
    ‘变量类型指定为数组并赋值
    Arr = Array(1, 2, 3, 4, 5)
    ‘使用For...To...进行遍历
    For i = 0 To UBound(Arr)
        Debug.Print Arr(i)
        ‘可以修改数组
        Arr(i) = Rnd
    Next i

End Sub　　

Sub 遍历数组2()
    ‘声明一个变量
    Dim Arr As Variant
    ‘声明一个变量
    Dim i As Variant
    ‘变量类型指定为数组并赋值
    Arr = Array(1, 2, 3, 4, 5)
    ‘使用For Each...In...进行遍历
    For Each i In Arr
        Debug.Print i
    Next i
End Sub