大家好，我们今日继续讲解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行代码启动错误处理程序来忽略错误，这时为什么呢？