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

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

【分享成果，随喜正能量】位置不同，少言为贵，认知不同，不争不辩，三观不合，浪费口舌。。

第十九讲 VBA中动态数组的定义及创建

大家好，今日我们继续讲解VBA数组与字典解决方案的第19讲：动态数组的定义及创建。在VBA中，数组可分为固定数组和动态数组，也称为静态数组和动态数组。我们之前所定义的数组，都是静态数组。静态数组的特点是具有大小的数组。当我们事先知道数组的大小，我们可以直接声明为静态数组。

静态数组定义方法：DIM 数组名（<下届>TO<上届>）。

1 动态数组的声明及特点

但如果事前不知道数组大小时，怎么办呢？在事前不知道数组的大小时，可以声明数组为动态数组，在需要指定数组大小时，再使用ReDim语句分配数组的实际元素的个数。

1）动态数组是可以改变大小的数组，通过在数组名称后附带空括号来声明，如：

Dim arrSheetName() as String

2）在定义动态数组之后，必须使用ReDim来设置动态数组的上界和下界，为数组重新分配存储空间。

3）我们可以使用ReDim语句反复地改变数组的元素个数。

下面我们将通过一个实例来讲解动态数组的利用：

　　比如一个工作表的C列存储了学生姓名，现在我们需要把有姓“王”的学生存储在数组arr中，预先我们并不知道C列姓王的学生有三十个还是五十个，所以，我们在定义时代码可以这样：

Sub MyNZsz_2()

Dim arr() As String

erow = [c65536].End(3).Row '最后一个非空单元格行号

j = 1 '数组索引号

xcount =
Application.WorksheetFunction.CountIf([c1:c65536], "王*") '统计有多少姓王的学生

ReDim arr(1 To xcount) '重新定义数组大小，元素共有xcount个

For i = 1 To erow

If Left(Cells(i, 3).Value, 1) = "王" Then

arr(j) = Cells(i, 3).Value '给数组元素赋值

j = j + 1 '索引号加1

End If

Next i

[d1:d65536].Clear '清除原有数据

[d1].Resize(xcount, 1) =
Application.WorksheetFunction.Transpose(arr) '将数组输入单元格区域

End Sub

代码截图：

代码的解读：

1） Dim arr() As String 定义了一个动态数组。

2） xcount =
Application.WorksheetFunction.CountIf([c1:c65536], "王*") '统计有多少姓王的学生

ReDim arr(1 To xcount) '重新定义数组大小，元素共有xcount个

通过求出姓王的学生的个数从而知道数组的上下界

3）
Application.WorksheetFunction.Transpose(arr) 讲数组arr 的内容转置填充，对于一维数组来说，中间是以逗号分隔的，如果想纵向填充，要进行转置，这可以结合之前工作表数组的表述来理解，逗号是分列，分号是分行。

运行结果：

今日内容回向;

1 什么是动态数组？

2 动态数组和静态数组有什么区别？

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