vba数组怎么去除重复值

在VBA（Visual Basic for Applications）中去除数组中的重复值，可以通过编写一个自定义函数来实现，以下是一个简单的例子：

Function RemoveDuplicates(arr() As Variant) As Variant
    Dim tmp As New Collection
    Dim i As Integer
    Dim elem As Variant
    
    On Error Resume Next
    
    For i = LBound(arr) To UBound(arr)
        If IsError(tmp(arr(i))) Then
            tmp.Add arr(i), CStr(arr(i))
        End If
    Next i
    
    ReDim Preserve ret(tmp.Count - 1)
    For Each elem In tmp
        ret(ret.Count) = elem
        ret(ret.Count - 1) = 0
    Next elem
    
    RemoveDuplicates = ret
    Set tmp = Nothing
End Function

这个函数`RemoveDuplicates`接收一个数组作为参数，并返回一个没有重复值的新数组。它使用了VB的`Collection`对象来保证只添加唯一的元素。过程大致如下：

1. 创建一个新的`Collection`对象，用于存储不重复的元素。
2. 遍历输入数组的每个元素，使用`Collection`的`Add`方法添加元素，如果添加失败（即元素已存在），则忽略该元素。
3. 最后，将`Collection`中的元素复制到一个新的数组中，并返回这个数组。

请注意，`Collection`对象在添加元素时，是按照元素的`CStr`转换结果来添加的，这意味着它会将数值型数据视为字符串处理，从而可能会导致数字的比较与预期不符。如果你需要去除的数组是数值型数据，你可能需要对函数进行适当的修改，以确保它能正确处理数值比较。