删除重复的VBA - Array编码

Sub RemoveDuplicatesFromArray()
    Dim arrOriginal() As Variant
    Dim arrUnique() As Variant
    Dim colUnique As New Collection
    Dim i As Long
    Dim j As Long
    
    ' 假设原始数组如下
    arrOriginal = Array(1, 2, 3, 2, 4, 3, 5)
    
    ' 遍历原始数组并添加唯一元素到集合中
    On Error Resume Next ' 忽略集合中已存在元素的错误
    For i = LBound(arrOriginal) To UBound(arrOriginal)
        colUnique.Add arrOriginal(i), CStr(arrOriginal(i))
    Next i
    On Error GoTo 0 ' 恢复默认错误处理
    
    ' 将集合中的元素复制到新的数组
    ReDim arrUnique(0 To colUnique.Count - 1)
    For i = 1 To colUnique.Count
        arrUnique(j) = colUnique(i)
        j = j + 1
    Next i
    
    ' 输出结果
    For i = LBound(arrUnique) To UBound(arrUnique)
        Debug.Print arrUnique(i)
    Next i
End Sub