关于vba没有重复值数组

Sub TEST()
'数组去重复值

Dim arr() As Variant

Dim Temp() As String

'利用array创建的数组默认值是从0开始的

Splarr = Array("A", "A", "B", "B", "C", "C", "C", "B", "A")

arr = Array("")

For i = LBound(Splarr) To UBound(Splarr)

'利用filter筛选arr，如果arr并不存在值，就会返回一个空的数组string(0 to -1)

    Temp = Filter(arr, Splarr(i))

'利用这个数组的最大值为-1，判断arr中是不是不存在这个splarr(i),假如不存在就进行添加操作    
    If UBound(Temp) = -1 Then
    'r默认值是0，那么先加1
        r = r + 1
    '重新定义arr，添加preserve是保留数组原先的值，同时延长数组
        ReDim Preserve arr(0 To r)
        'arr数组添加新元素splarr(i)
        arr(r) = Splarr(i)

    End If

Next
End Sub

这是针对一维数组的做法，至于二维数组，我还没去试过

同时也希望大家能告诉我一下，为什么filter找不到的时候是返回这个一个神奇的数组，我查不到原因