[分享]浅谈DICTIONARY(字典)对象

晴扬扬

谢谢狼版主，看到字典的文章，很惊奇它的功能。只是我对代码的知识不甚理解，不知道要想会使用字典的功能，首先得具备哪方面的知识？我现在还是一只弱小的羊，什么时候也能变成狼！让我狠狠地好好使用excel .

蓝天云朵

学习了！收藏了！！谢谢！！！

office1234

学习了，谢谢

ctp_119

近期都在找这方面的资料学习。谢谢狼版主。

turan21

不错,谢谢,好好学习,天天向上

denkey

好好的帖子，努力学习中

lovelrh

没想到字典这么强大，真的很感谢版主

lcjy11185

点位，学习。

zhtech

太复杂了，还是找点现成的吧

ning84

不重复数

1. Sub Usage6() '以下代码将A：N列的所有文本，数字不重复的复制到O列：
   
2. 
   
3. 
   
4. Dim r As Range, c As Range
   
5. Set r = Sheet1.Range("A2:A150")
   
6. With CreateObject("scripting.dictionary")
   
7. 
   
8. For Each c In r
   
9. If Not .exists(c.Value) And Trim(c) <> "" Then
   
10.   .Add c.Value, Rnd(10)
    
11. End If
    
12. Next
    
13. arr = .keys
    
14. Sheets("sheet1").[o1].Resize(.Count, 1) = WorksheetFunction.Transpose(.keys)
    
15. arr1 = .items
    
16. 
    
17. End With
    
18. End Sub

复制代码