《VBA数组与字典方案》教程（10144533）是我推出的第三套教程，目前已经是第二版修订了。这套教程定位于中级，字典是VBA的精华，我要求学员必学。7.1.3.9教程和手册掌握后，可以解决大多数工作中遇到的实际问题。

这套字典教程共两册，一共八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA字典与数组第十八讲:VBA中静态数组的定义及创建

【分享成果，随喜正能量】面对他人的优秀，智者随喜，愚者比较。随喜他人的优秀，心里生出的是欢喜与向往，与他人的优秀做比较，心里生出的则是傲慢与偏见。要相信每个人都会有自己的闪光点，以一颗平等心，真诚的随喜他人的优秀，见贤思齐，修好自己的本领，静待自我人生的高光时刻。。

大家好，我们今日继续讲解VBA数组与字典解决方案，今日讲解第18讲：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个元素（或者叫变量），分别是如上的截图元素。

运行后：

今日内容回向：

1 什么是VBA数组。

2 VBA数组如何声明？

我多年的VBA实践经验，全部浓缩在以下教程中：