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

Sub zidian()
    Dim d, r, ar, i
    Set d = CreateObject("scripting.dictionary")
    r = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    ar = Range("a2:a" & r)
    For i = 1 To UBound(ar)
        d(ar(i, 1)) = ""
    Next
    [c2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    Set d = Nothing
End Sub

追问

我是从csv中读取数据 日期 有重复 新建的报表 sheet页是按日期建的 日期重复了 新建sheet建不了

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yyerj77ef.html