大众计算机学习网

专门提供各种电脑教程

VBA遍历数组的两种方法

Admin | 2017-3-17 11:23:33 | 被阅次数 | 9823

  在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的方式,我们无法修改数组的值,注意上面代码中的注视。