1.动态数组的使用时，先在窗体层、标准模块或过程中声明一个没有下标的数组(括号不能省略)，不指定维数。

2.在过程中用ReDim语句定义带下标的数组，给出数组的维数。注意：用ReDim定义的数组，只能改变数组元素的个数，不能改变数组的维数和数据类型。
以下举例几个错误类型：

	

在此之前，我们的随机函数有Rand和RandBetween函数。Rand函数没有参数，默认返回0-1之间的小数。而RandBetween函数则返回指定数据范围内的整数。
可能对于大多数人来说，随机函数比较少用到。因为工作中遇到的都是真实的数据，需要构建虚拟数据的环境不多。但是有一个应用场景对于很多人来说是实用的—那就是“数据脱敏”。
在工作中，可能你会遇到一些Excel问题需要求助他人。但是单纯用文字来描述往往效率很低，如果能发你的Excel文件一同发给对方，效率会高很多。如果你的工作文件涉及到一些敏感数据的话，那么就可以用随机函数来构建一些虚拟数据，实现“脱敏”。
RandArray语法
RandArray函数的参数看起来很多，但是用法并不复杂，所有参数均为可选参数。如果所有的参数都忽略—RandArray(),那么就只返回一个0-1之间的小数，跟Rand()是一样的效果。
[Rows],[Columns]参数表示要返回几行几列的数据
如上图，返回的就是3行4列的数据，因为后面的参数没写，所以数据是0-1之间的小数。
[Min],[Max] 显然表示的就是返回随机数的最小值和最大值
上图，返回的就是3行4列，1-20之间的数据。因为最后一个参数忽略，返回的默认是小数。
[whole_number] 参数是逻辑值，True表示证书，False或者忽略表示小数
RandArray和Rand(RandBetween)函数有一个最明显的区别就是，RandArray返回指定大小的数组，而Rand(RandBetween)函数返回的仅仅是一个随机数。
总的来说，这个新增的随机函数用法比较简单。如果在需要构建虚拟数据的场景下，可以试试哦。

大家好，我们今日继续讲解VBA代码解决方案的第62讲内容：在VBA中如何使用动态数组，以及利用动态数组去除重复值的方法第二部分。在上一讲中，我们讲了知识点的利用，其一是Filter函数，其二是ReDim语句的利用价值。同时我们又讲了过程的定义。今日我们利用这些知识点，来完成我们的目的：使用动态数组去除文本中的重复值，
如下面的代码所示。
  Sub MySplitarrtwo()
 Dim Splarr() As String
 Dim Arr() As String
 Dim Temp() As String
 Dim r As Integer
 Dim i As Integer
 On Error Resume Next
 Splarr = Split(Sheets("kk").Cells(1, 1).Range("a1"), " ")
 For i = 0 To UBound(Splarr)
 Temp = Filter(Arr, Splarr(i))
 If UBound(Temp) < 0 Then
 r = r + 1
 ReDim Preserve Arr(1 To r)
 Arr(r) = Splarr(i)
 End If
 Next
 Sheets("kk").Range("a5").Resize(r, 1) = Application.Transpose(Arr)
 End Sub
代码解析：
MySplitarr过程将工作表Sheets("kk")中A1单元格的文本去除重复值后写入到工作表Sheets("kk")中的A列单元格。
第2行代码声明数组Splarr用来保存Sheets("kk")中A1单元格的文本。
第3行代码声明数组Arr用来保存去除重复值后的文本。
第4行代码声明数组Temp用来判断文本是否重复。
第5行代码声明变量r用来保存去除重复值后的文本数量。
第7行代码启动错误处理程序来忽略错误，因为在程序运行到第11行代码会发生下标越界错误。
第8行代码使用Split 函数以Sheets("kk")中A1单元格的文本创建一个下标从零开始的一维数组。
第9行代码使用For...Next语句遍历数组Splarr的所有元素。
第10行代码使用Filter函数创建一个数组Temp用来保存以当前Splarr数组的值在Arr数组中的搜索结果。
第11行代码根据返回的数组Temp的最大下标来判断当前Splarr数组的值是否重复。在使用使用Filter函数时如果没有相匹配的值，将返回一个空数组，最大下标小于0。
第12行代码如果当前Splarr数组的值不重复则将变量r的值加1。
第13行代码重新定义动态数组大小。
第14行代码将不重复值添加到数组Arr中。
第15行代码使用工作表Transpose函数将去除重复值的的文本转置后写入到工作表单元格中。
代码的截图：
运行前的截图：很显然有很多的重复数值：
运行后的截图：
今日内容回向：
1 上述代码是否清楚了它的运行过程呢？
2 第7行代码启动错误处理程序来忽略错误，这时为什么呢？
 欢迎大家到我的自媒体平台沟通交流：个人微信号“NZ9668”、头条号“VBA专家”、百家号“VBA与GO语言”、微信公众号“NZ_9668”、社群“VBA学习交流群”。
这一系列文章是根据我多年的工作经验编写的，也是一直在利用的工具，非常方便好用。现在分享出来，希望能对同样在职场打拼的朋友有些许的帮助，使你的工作更加高效、流畅。朋友们有问题请随时提出来，我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我，及时为你提供专业的定制技术支持。
工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的，时间会抹去很多问题。多关注自己、家人和朋友，这些才是我们生活中更为重要的东西。

大家好，我们今日继续讲解VBA代码解决方案的第62讲内容：在VBA中如何使用动态数组，以及利用动态数组去除重复值的方法第二部分。在上一讲中，我们讲了知识点的利用，其一是Filter函数，其二是ReDim语句的利用价值。同时我们又讲了过程的定义。今日我们利用这些知识点，来完成我们的目的：使用动态数组去除文本中的重复值。 
如下面的代码所示。
Sub MySplitarrtwo()
Dim Splarr() As String
Dim Arr() As String
Dim Temp() As String
Dim r As Integer
Dim i As Integer
On Error Resume Next
Splarr = Split(Sheets("kk").Cells(1, 1).Range("a1"), " ")
For i = 0 To UBound(Splarr)
Temp = Filter(Arr, Splarr(i))
If UBound(Temp) < 0 Then
r = r + 1
ReDim Preserve Arr(1 To r)
Arr(r) = Splarr(i)
End If
Next
Sheets("kk").Range("a5").Resize(r, 1) = Application.Transpose(Arr)
End Sub
代码解析：
MySplitarr过程将工作表Sheets("kk")中A1单元格的文本去除重复值后写入到工作表Sheets("kk")中的A列单元格。
第2行代码声明数组Splarr用来保存Sheets("kk")中A1单元格的文本。
第3行代码声明数组Arr用来保存去除重复值后的文本。
第4行代码声明数组Temp用来判断文本是否重复。
第5行代码声明变量r用来保存去除重复值后的文本数量。
第7行代码启动错误处理程序来忽略错误，因为在程序运行到第11行代码会发生下标越界错误。
第8行代码使用Split 函数以Sheets("kk")中A1单元格的文本创建一个下标从零开始的一维数组。
第9行代码使用For...Next语句遍历数组Splarr的所有元素。
第10行代码使用Filter函数创建一个数组Temp用来保存以当前Splarr数组的值在Arr数组中的搜索结果。
第11行代码根据返回的数组Temp的最大下标来判断当前Splarr数组的值是否重复。在使用使用Filter函数时如果没有相匹配的值，将返回一个空数组，最大下标小于0。
第12行代码如果当前Splarr数组的值不重复则将变量r的值加1。
第13行代码重新定义动态数组大小。
第14行代码将不重复值添加到数组Arr中。
第15行代码使用工作表Transpose函数将去除重复值的的文本转置后写入到工作表单元格中。
代码的截图：
运行前的截图：很显然有很多的重复数值：
运行后的截图：
今日内容回向：
1 上述代码是否清楚了它的运行过程呢？
2 第7行代码启动错误处理程序来忽略错误，这时为什么呢？