VBA中一维数组去重

一、效果

二、代码

Sub 示例3()
Dim arr
arr = Array(1, 2, 3, 3, 2, 4, 4, 4, 5)
arr = 一维数组去重(arr)
End Sub

Function 一维数组去重(arr)
    Dim i&, s, keys
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    For i = LBound(arr) To UBound(arr) '去重
        If arr(i) <> "" Then
            If Not dic.Exists(arr(i)) Then dic.Add arr(i), Nothing
        End If
    Next
    ReDim arr(0 To dic.count - 1)
    keys = dic.keys
    For i = 0 To dic.count - 1
        arr(i) = keys(i)
    Next
    一维数组去重 = arr
End Function