VBA数组 基本使用

数组包含同类型的多个元素，一个数组变量可以同时存储多个元素数据。

数组的基本使用包括：声明数组变量、数组元素赋值（写）、读取数组元素值（读）。

数组声明语法

Dim 数组变量名称(最大下标) As 元素数据类型

数组变量名称由用户自定义，要求符合标识符规则。

最大下标为整数，这里并非表示数组元素个数（数组长度）。

默认情况下没有指定最小下标为0。 数组长度=最大下标+1。

元素数据类型表示数组元素统一为该类型。

示例：

Dim arr1(3) As Integer

数组arr1中共4个元素，最小下标默认为0，最大小标为3。

数组中包含的4个元素依次为： arr(0)、arr(1)、arr(2)、arr(3)。

arr1的4个元素都是Integer整型。

数组元素赋值

数组元素的引用语法

数组变量名称(下标)

元素赋值语法

数组变量名称(下标) = 值

示例

arr1(0) = 100 ' 为第1个元素赋值

完整代码如下。包括：数组的声明、元素赋值（写）、元素显示（读）。

Sub array1()
  '声明整型数组，最大下标为3。
  Dim arr1(3) As Integer

  arr1(0) = 100 ' 为第1个元素赋值
  arr1(1) = 200 ' 为第2个元素赋值
  arr1(2) = 300 ' 为第3个元素赋值
  arr1(3) = 400 ' 为第4个元素赋值

  '显示（读取）4个元素的值
  Debug.Print arr1(0) & "," & arr1(1) & "," & arr1(2) & "," & arr1(3)

End Sub

输出结果如下：

100,200,300,400

下标越界错误

上述数组中arr1的下标可以为0、1、2、3，如果使用其它下标则会报错：下标越界。

arr1(4) = 500 ' 为第5个元素赋值,报错：下标越界。

这里4为非法下标。