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

涧中石

收藏，学习，谢谢楼主！

香川群子

在下面帖子的27楼中，我使用了中级字典用法：【字典记录用作索引】
http://club.excelhome.net/forum. ... 387&pid=7868650

题目要求：
A列中的数值，统计相同值的个数，并按从小到大顺序分列输出。

1. Sub test9() '27L kagawa-1
   
2.     Dim ar, br, cr, dic, i&, j&, k&, m&, n&, s
   
3.    
   
4.     ar = [a1].CurrentRegion
   
5.     ReDim br(2, UBound(ar))
   
6.    
   
7.     Set dic = CreateObject("Scripting.Dictionary")
   
8.     For i = 1 To UBound(ar)
   
9.         s = ar(i, 1) 'A列值s、作为字典关键字key
   
10.         j = dic(s)   '字典返回其索引值j
    
11.         If j = 0 Then '如 j =0 则字典中该key为空 即s尚未存入字典
    
12.             k = k + 1: dic(s) = k: j = k '于是新增索引值k+1 并作为s的索引值存入字典
    
13.             '下面是比较插入排序
    
14.             For m = 1 To k - 1
    
15.                 If br(2, m) > s Then '检查到比当前值更大位置时
    
16.                     For n = k To m + 1 Step -1 '倒序移动更大的值
    
17.                         br(2, n) = br(2, n - 1)
    
18.                         br(1, n) = br(1, n - 1)
    
19.                     Next
    
20.                     Exit For '腾出新位置后退出
    
21.                 End If
    
22.             Next
    
23.             br(2, m) = s: br(1, m) = k '在新位置插入新值
    
24.         End If
    
25.         br(0, j) = br(0, j) + 1 '在数组br中统计关键字s对应的个数
    
26.         ' 【直接使用字典做统计时，一般是 dic(s) = dic(s) + 1 即可】 但注意字典需要多引用一次。所以速度效率略低。
    
27.     Next
    
28.    
    
29.     [c1].CurrentRegion = ""
    
30.     For j = 1 To k
    
31.         Cells(1, 2 + j).Resize(br(0, br(1, j))) = br(2, j)
    
32.     Next
    
33. End Sub

复制代码

本例虽然使用了字典，但并不用足……
仅仅把字典用作对关键字进行位置索引的关联，
而把统计个数等其它的处理，仍然交给数组去完成。

因为数组的速度效率是最高的。

呵呵。虽然代码复杂了一点，但思路值得学习。

raku

收藏学习，谢谢大神通俗易懂的分享

天地有雪

正要学习呢！感谢香川老师分享！

小花鹿

很难想象，VBA中如果没有字典会怎样。

香川群子

小花鹿 发表于 2014-9-26 12:34
很难想象，VBA中如果没有字典会怎样。

用数组就可以了。

字典只是在减少循环遍历上有特别的优势。但并非不可缺少的工具。
（当然，既然有了这个利器，不用就是傻。）


而不允许使用数组功能，才会是天大的灾难。

香川群子

小花鹿 发表于 2014-9-26 12:34
很难想象，VBA中如果没有字典会怎样。

或者也可以这么看：

字典事实上也就是一个哈希散列数组。

鄂龙蒙

太好了，正要找学习资料，收藏了，谢谢！

peiqlu

收藏一下，以后学习

zhc19620430

雁过留名，人过留声。