字典去重

Posted lizicheng

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了字典去重相关的知识，希望对你有一定的参考价值。

Sub quchong()
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
For i = 1 To 91
If Not dic.exists(Cells(i, 1).Value) Then
dic.Add Cells(i, 1).Value, Nothing
End If
Next
[b1].Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.keys)
[c1] = Join(dic.keys, ",")
End Sub

　　

以上是关于字典去重的主要内容，如果未能解决你的问题，请参考以下文章