码迷,mamicode.com
首页 > 其他好文 > 详细

字典去重

时间:2020-03-17 11:33:03      阅读:102      评论:0      收藏:0      [点我收藏+]

标签: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

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!