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 iEnd 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'注意，其實(shí)這句代碼毫無(wú)意義 NextEnd Sub |
注意，采用For Each...In的方式，我們無(wú)法修改數組的值，注意上面代碼中的注釋。
聯(lián)系客服
