大家好，我们今日继续讲解VBA数组与字典解决方案，今日讲解第18讲：VBA数组如何定义，又该如何创建呢？

从这一讲开始，我们开始进入VBA数组阶段，VBA数组和工作表数组有着不同的意义，在很大程度上，工作表数组的运算甚至可以看做是程序的运行，能够理解工作表数组的运算过程对于VBA代码的书写是非常有益的，但VBA数组在大多数情况下，只是作为变量来存储数据。这点和工作表数组有很大的不同。

一、什么是VBA数组 所谓VBA数组，就是共享一个名字，有着多个元素按顺序排列的变量。数组中的数据具有相同的类型和结构，元素通过索引加以区分。这里我把数组的元素看做变量来对待，大家要注意，这个观点在应用过程中是非常有意义的。

二、如何定义数组 数组在使用前必须要进行声明，声名数组同声明其他变量的方式一样，也是用Dim语句来声明。唯一不同的是数组有大小，即有多少个元素，或者说变量，还有就是要说明数组的维数。一般情况下使用较多的是一维数组和两维数组，需要注意的是数组要以字母开头，所用的字符仅限字母、数字和下下划线，不允许出现标点符号和空格。当声明了一个数组，便决定了这个数组用于存储数数据所用的内存空间。

默认情况下数组是以0为下届，也就是Option Base 0大多数情况下我们都是遵守此默认情况的，并且在用数组时忽略数组的第一个元素，上届不能超过LONG数据类型的范围，而且上届值不能小于下届值。

如果我们习惯了用1作为我们的下界，可以强制声明：Option Base 1，需要注意的是Option Base 0(1)必须放在所有模块之前。当然，我们也可以忽略这个强制声明，那我们就需要在声明数组时，指明数组的上界和下界，如：Dim arrSheetName(1 to 3) as String表明这个数组的上下界分别是1和3

下面我们讲通过一个实例来说明数组的声明及赋值，如下面的代码:

Sub Mynzsz() '第18讲 VBA数组的定义及创建

Dim i As Integer, j As Integer

Dim arr(1 To 10, 1 To 2) As Integer '定义一个10*2的二维数组(10行，2列)

j = 1 '数组1 to 10的索引号

For i = 1 To 20 Step 2

arr(j, 1) = i '赋值

arr(j, 2) = i + 1 '赋值

j = j + 1 '索引号增加

Next

[a1:b65536].ClearContents '清除原有数据

[a1].Resize(10, 2) = arr '将数组赋值给A1单元格向下10行，向右2列的区域

End Sub

代码截图：

代码讲解：

1 Dim arr(1 To 10, 1 To 2) As Integer 这里给出了数组的范围最小的是arr(1, 1)，最大的是

arr(10, 2)

2 [a1].Resize(10, 2) = arr 讲数组回填给工作表。大家是否理解arr的意义呢？我们看看下面的图：

arr 是一个集合。这个集合包括了20个元素(或者叫变量)，分别是arr(1,1)；arr(2,1)；arr(1,2)；arr(2,2)；arr(1,3)；arr(2,3)；arr(1,4)；arr(2,4)；arr(1,5)；arr(2,5)；arr(1,6)；arr(2,6)；arr(1,7)；arr(2,7)；arr(1,8)；arr(2,8)；arr(1,9)；arr(2,9)；arr(1,10)；arr(2,10)

运行后：

今日内容回向：

1 什么是VBA数组。

2 VBA数组如何声明？