常见字典用法集锦及代码详解

humengqiang

谢谢楼主指点，能不能麻烦您把具体代码写出来并讲解下？我对字典很陌生。谢谢！

shumaya3

一直在研究这东西。
今天有幸看到楼主的贴，受益匪浅！

zhangzhenxia

跟贴备学！谢谢！

蓝桥玄霜

原帖由 humengqiang 于 2011-2-19 11:34 发表
谢谢楼主指点，能不能麻烦您把具体代码写出来并讲解下？我对字典很陌生。谢谢！

1. Sub cfz()
   
2. Dim i&, Myr&, Arr
   
3. Dim d, k, t
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Myr = Sheet1.[a65536].End(xlUp).Row
   
6. Arr = Sheet1.Range("a1:g" & Myr)
   
7. For i = 2 To UBound(Arr)
   
8.     d(Arr(i, 3)) = d(Arr(i, 3)) + 1
   
9. Next
   
10. k = d.keys
    
11. t = d.items
    
12. Sheet2.Activate
    
13. Cells.Clear
    
14. [a2].Resize(d.Count, 1) = Application.Transpose(k)
    
15. [b2].Resize(d.Count, 1) = Application.Transpose(t)
    
16. [a1].Resize(1, 2) = Array("姓名", "重复个数")
    
17. For i = UBound(t) To 0 Step -1
    
18.     If t(i) = 1 Then
    
19.         Cells(i + 2, 1).EntireRow.Delete shift:=xlUp
    
20.     End If
    
21. Next
    
22. Set d = Nothing
    
23. End Sub
    

复制代码

深秋的黎明

蓝桥老师，久闻大名、非常敬仰。
我经常看到代码里设置变量的示例。可我平时在编辑代码时没有预设变量dim，直接用例如：a=ComboBox1.Value照样可以正常运行代码，请问预设变量的意义和作用是什么？谢谢

wangbobo

谢谢分享学习

humengqiang

谢谢楼主蓝桥玄霜不厌其烦的指点，希望以后能多向你学习一些问题。

ly.liubing

好，先留个记号，再慢慢消化...

春播秋收

谢谢蓝桥老师。

0372nhyz

没有见过讲vba字典讲这么详细的，讲出了菜鸟的不解，强烈建议加精