VBA遍历数组的2种方式

1.情景展示

　　VBA编程，如何对数组进行遍历？

2.解决方案

　　方式一：使用for循环

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

　　方式二： 使用foreach

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

写在最后

　　哪位大佬如若发现文章存在纰漏之处或需要补充更多内容，欢迎留言！！！