字典基本语句、以及中级字典运用例子

mmwwdd

必须得顶，本人是字典对象的忠实信徒，没有字典，VBA将失去多少光彩

a370616583

想问问有没有不相邻的几个单元批量清空的指令...

引子玄

香川群子 发表于 2014-9-25 15:26
字典的作用：

字典的最重要作用有以下：

字典的三大作用：
一、任意关键词快速查询。
二、检查并处理重复关键词
三、一一对应并记录、更新关键词对应项目内容（合并、统计、分组……等等）

概括得好！

李桥贵

引子玄 发表于 2014-11-14 15:04
字典的三大作用：
一、任意关键词快速查询。
二、检查并处理重复关键词

谢谢香川群子老师！

winony

先收藏，谢谢楼主啦

香川群子

关于把Range()或Cells()作为字典关键词时的问题补充：

1. Sub test() 'by kagawa
   
2.     Dim d As New Dictionary '前期绑定
   
3.    
   
4.     Dim rg1 As Range, rg2 As Range, rg3 As Range, rg4 As Range
   
5.     Set rg1 = Range("a1") '设置变量rg1为单元格A1的Range对象引用
   
6.     Set rg2 = Range("a2") '设置变量rg2为单元格A2的Range对象引用
   
7.     Set rg3 = rg1  '设置变量rg3=变量rg1 仍为单元格A1的Range对象引用
   
8.     Set rg4 = rg2  '设置变量rg4=变量rg2 仍为单元格A2的Range对象引用
   
9.    
   
10.     d.Add rg1, rg1 '用此语句添加字典关键词（此时字典中有了第1个key）
    
11.     '注意 ① 不可重复添加字典中已有的关键词
    
12.     '       ② 此时添加的关键词Keys是rg1变量、指向单元格A1的Range对象引用
    
13.                 但并非等同于直接把单元格A1的Range对象作为关键词！
    
14.     '       ③ 此时加入的Item是rg1变量、即指向单元格A1的Range对象引用
    
15. 
    
16.     MsgBox d(rg1) '读取rg1变量作为关键词key时的Item内容rg1指向的单元格A1（默认引用.Value值）
    
17.     MsgBox d(rg1).Value '可以读取rg1变量作为关键词key时的Item内容rg1指向的单元格A1的值
    
18.    
    
19.     MsgBox d(rg2) '由于此时字典中并不存在rg2，所以按照d(keys)=""的语法把rg2加入字典
    
20.     '（此时字典中有了第2个key）
    
21.     '注意 ① 如字典中已有关键词则引用item内容，如无则加入该关键词
    
22.     '       ② 此时添加的关键词Keys是rg2变量、指向单元格A1的Range对象引用
    
23.                 但并非等同于直接把单元格A1的Range对象作为关键词！
    
24.     '       ③ 此时加入的Item是""空白！所以Msgbox返回空白
    
25. 
    
26.     d(rg2) = rg2   '用此语句更新或添加字典关键词对应的内容
    
27.     '       ③ 此时加入的Item是rg2变量的.Value值！而不是指向单元格A1的Range对象引用！
    
28.     '（此时字典中仍为2个key，但第2个key的item内容得到了更新）
    
29.     MsgBox d(rg2) '读取rg2变量作为关键词key时的Item内容rg2的.Value值
    
30. '    MsgBox d(rg2).Value '此句出错无法执行！因为Item内容为rg2的.Value值，不是单元格A2的引用
    
31.    
    
32. '    d.Add rg3, rg3 '此句出错无法执行！因为rg3就是rg1，而rg1已经在字典中无法再次添加！
    
33.     MsgBox d(rg3) '读取rg3变量即rg1作为关键词时的Item内容rg1指向的单元格A1（默认引用.Value值）
    
34.     MsgBox d(rg3).Value '读取rg3变量即rg1作为关键词key时的Item内容rg1指向的单元格A1的值
    
35.     '（此时字典中仍只有2个key）
    
36. 
    
37.     MsgBox d(rg4) '读取rg4变量即rg2作为关键词key时的Item内容rg2的.Value值
    
38. '    MsgBox d(rg4).Value'此句出错无法执行！因为Item内容为rg2的.Value值，不是单元格A2的引用
    
39.     '（此时字典中仍只有2个key）
    
40.    
    
41.     MsgBox d(Range("a1")) '由于此时字典中并不存在Range("a1")代表的变量
    
42.     '所以按照d(keys)=""的语法把Range("a1")加入字典
    
43.     '（此时字典中有了第3个key）
    
44. '    MsgBox d(Range("a1")).Value'此句出错无法执行！因为Item内容为""空白，不是单元格A1的引用
    
45.    
    
46.     kr = d.Keys  '取出所有keys……一共是3个：rg1、rg2、Range("a1")代表的变量
    
47.     '注意Range("a1")代表的变量可能是个活动变量，
    
48.     '因此每次使用d.Add Range("a1"),"" 或 d(Range("a1"))="" 都能进行新的字典key添加……
    
49.     '但也因为如此，无法依据活动的Range("a1")变量取得对应的Item内容。
    
50.     '即，（每次相同的Range("a1")变量，都会被当做新的不同的key！）
    
51. 
    
52.     tr = d.Items '取出所有Items……一共是3个：A1单元格的引用、A2单元格的Value值、""空白值
    
53.     Stop '暂停以便观察
    
54.    
    
55.     MsgBox "rg1: " & d(rg1) & vbCr & "rg2: " & d(rg2) & vbCr & "rg3: " & d(rg3) & vbCr & "rg4: " & d(rg4)
    
56.     '返回： rg1=A1值 rg2=A2值 rg3=A1值 rg4=A2值
    
57. End Sub

复制代码

香川群子

以下测试表明，直接把Range()或Cells()变量作为关键词key加入字典是毫无意义的……无法使用。

1. Sub test2()
   
2.     Dim d As New Dictionary
   
3.    
   
4.     For i = 1 To 3
   
5.         d.Add Range("A" & i), Range("A" & i)
   
6.     Next
   
7.     Debug.Print d.Count
   
8.    
   
9.     For i = 1 To 3
   
10.         d.Add Range("A" & i), Range("A" & i)
    
11.     Next
    
12.     Debug.Print d.Count
    
13.    
    
14.     For i = 1 To 3
    
15.         Debug.Print i; d(Range("A" & i)); "End"
    
16.     Next
    
17.     Debug.Print d.Count
    
18.    
    
19.     For i = 1 To 3
    
20.         d.Add Cells(i, 1), Cells(i, 1)
    
21.     Next
    
22.     Debug.Print d.Count
    
23.    
    
24.     For i = 1 To 3
    
25.         Debug.Print i; d(Cells(i, 1)); "End"
    
26.     Next
    
27.     Debug.Print d.Count
    
28.    
    
29.     kr = d.Keys: tr = d.Items
    
30.     Stop
    
31. End Sub
    

复制代码

因为每次都会被当做不同的、新的key……失去了用字典记录、查询、引用关键词key的意义。

excelvlookup

顶一下，以后慢慢读

29151429

温习              

mhuan007

学习了，为楼主点赞