标签：ext 字典 UNC class size set dict exist fun
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
标签：ext 字典 UNC class size set dict exist fun
原文地址：https://www.cnblogs.com/lizicheng/p/12509450.html
