vba 怎么除去数组中的重复数据

Sub zidian()
    Dim d, r, ar, i
    Set d = CreateObject("scriptingdictionary")
    r = Sheet1Cells(RowsCount, 1)End(xlUp)Row
    ar = Range("a2:a" & r)
    For i = 1 To UBound(ar)
        d(ar(i, 1)) = ""
    Next
    [c2]Resize(dCount, 1) = ApplicationTranspose(dkeys)
    Set d = Nothing
End Sub

---