有没有一种方法可以构建高效的vba函数，它将以范围作为参数并返回唯一值的数组(从重复值中释放)？

Function UniqueValues(rng As Range) As Variant()
    Dim dict As Object
    Dim cell As Range
    Dim uniqueArr() As Variant
    Dim i As Long
    
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 将单元格的值添加到字典中
        dict(cell.Value) = 1
    Next cell
    
    ' 将字典中的唯一值存储到数组中
    ReDim uniqueArr(1 To dict.Count)
    i = 1
    For Each key In dict.Keys
        uniqueArr(i) = key
        i = i + 1
    Next key
    
    UniqueValues = uniqueArr
End Function

Sub TestUniqueValues()
    Dim rng As Range
    Dim uniqueArr() As Variant
    
    ' 设置范围
    Set rng = Range("A1:A10")
    
    ' 调用函数获取唯一值数组
    uniqueArr = UniqueValues(rng)
    
    ' 输出唯一值数组
    For i = LBound(uniqueArr) To UBound(uniqueArr)
        Debug.Print uniqueArr(i)
    Next i
End Sub