概述

VBA数组是用于存储一组相同类型的变量的结构，数组中的每个元素都可以通过一个索引号进行访问。

声明数组

例如，假设一个团队有20名成员，你想要存储所有成员的名字，以便在VBA代码中使用，可以声明20个变量来保存他们的名字，如下所示：

或者，更简单、更聪明的方法是将团队成员的名字存储在一个由20个字符串变量组成的数组中：

一旦声明了数组，则可以按如下方式为每个数组元素赋值：

把数据存储在数组中而不是单个变量中的另一个好处是可以对每个成员执行相同的操作。如果团队成员的姓名存储在20个单独的变量中，则需要20行代码才能对每个名称执行特定的操作。但是，如果存储在数组中，则可以使用一个简单的循环对数组中的每个元素执行这些操作。

下面的示例代码展示了这一点，该代码将Team_Members数组中的每个名字打印到Excel当前工作表的A列：

虽然只有20个名字，使用数组的优势也是显而易见的，但是想象一下，如果要存储1000个名字呢，再想象一下你想把姓氏和名字分开储存呢？如果不在VBA代码中使用数组，很快就几乎不可能处理如此多的数据。

声明多维数组

上面讨论的数组是一维的，它所引用一个名字列表。但是，数组可以有多个维度。具有两个维度的数组可以看作是一个值的网格。

例如，假设要存储5个不同团队1月份的每日销售数据。你需要一个二维数组，由5组数字组成，历时31天。声明二维数组，如下所示：

为了访问二维数组Jan_Sales_Figues中的元素，需要使用两个索引，分别是日期和团队编号。例如，Team2在1月15日的销售数据的引用方式为：

你可以用3个或更多的维度来声明数组，只需在声明中添加多一个维度，访问多维数组元素时也要多使用一个索引来引用相应的数组项。

省略下限

上面的部分已经给出了一些数组声明的例子，但是值得进一步讨论。如上所示，一维数组可以声明如下：

此声明告诉VBA编译器数组Team_Members有20个变量，这些变量由索引1到20来引用。但是，我们也可以决定使用索引0到19的来引用这20个变量，在这种情况，声明格式如下：

实际上，数组索引默认是从0开始，因此可以在声明中省略起始索引，而只需将数组声明为：

此时，VBA编译器将其理解为一个由20个变量组成的数组，这些变量的索引从0到19。

同样的规则也适用于多维数组的声明。如前一个示例所示，通过用逗号分隔维度索引来声明二维数组：

但是，如果我们忽略两个维度的起始索引，如下所示：

这也被理解为二维数组，其中第一维度有32个条目，索引范围从0到31，第二维度有6个条目，索引范围从0到5。

动态数组

在上面的例子中，数组的维数都是固定的。但是，在许多情况下，运行代码前你可能不知道数组的大小。解决这个问题的一种方法是声明一个巨大的数组，试图覆盖所需的最大可能大小，但这会大量占用不必要的内存，并可能会减慢程序的速度。一个更好的选择是使用动态数组，它是一个数组，但在执行期间，它可以根据需要调整大小而且反复重新调整。

动态数组用空括号声明，如下所示：

然后，在代码执行期间，使用ReDim语句重新声明数组所需的维数：

如果在需要继续扩展数组的大小时，可以再次使用ReDim：

应该注意的是，以这种方式动态调整数组的大小将导致之前存储在数组中的所有值丢失。如果要避免这种损失，保留以前分配的值，则需要使用Preserve关键字，如下所示：

在调整数组大小时使用Preserve关键字的缺点是只能更改数组的上限，而不能更改下限。另外，如果您有一个多维数组，Preserve关键字的使用会限制只更改数组的最后一个维度。

结论

这就是VBA中关于数组的使用，希望你喜欢这篇文章，请在评论中分享反馈！