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

vba 怎么除去数组中的重复数据,第1张

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


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/13402734.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-07-29
下一篇 2023-07-29

发表评论

登录后才能评论

评论列表(0条)

保存