但如果事前不知道数组大小时，怎么办呢？在事前不知道数组的大小时，可以声明数组为动态数组，在须要指天命组大小时，再利用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 动态数组和静态数组有什么差异？
