用字典嵌套统计

香川群子

dsmch 发表于 2013-5-2 22:31
因表格是二维的，用行和列字段名完全可以用一个字典代替（以前没有发现）
当然，就这个例子也可以通过数组 ...

字典嵌套确实也是一种字典的用法，但几乎没有非此不可的漂亮实例。

更由于字典嵌套很容易造成不当占用内存而影响实际代码运行速度，
所以没有必要纠结于字典嵌套的使用……甚至可以说，应该尽量避免这种思路。

……
值得推荐的是字典+数组的用法。

因为VBA数组是效率最高的数据用法。
但缺点是只能通过行、列位置定位。
如果不能确定行、列位置，则需要遍历比对……这造成了效率浪费。

因此如果能够事先通过字典来进行关键词的快速定位，
然后再用数组来计算处理，则速度效率是最高的。


…………
附下面代码，可以确认到，字典查找毕竟比数组要慢很多的：
而且字典个数的k值越大，时间差异就越大……直至死机。

1. Sub SpeedCompare()
   
2.     Dim ii&, nn%, i&, k&, t&, s&
   
3.     nn = 3
   
4.     k = 1000
   
5.    
   
6.     Set d = CreateObject("Scripting.Dictionary")
   
7.    
   
8.     ReDim arr(1 To k, 1 To 2)
   
9.     For i = 1 To k
   
10.         t = Int(Rnd * 1000000)
    
11.         arr(i, 1) = t
    
12.         d(t) = i
    
13.         arr(i, 2) = i
    
14.     Next
    
15.    
    
16.     tms1 = Timer
    
17.     For ii = 1 To 10 ^ nn
    
18.         For i = 1 To k
    
19.             t = arr(i, 1)
    
20.             s = arr(i, 2)
    
21.         Next
    
22.     Next
    
23.     tms2 = Timer
    
24.     MsgBox Format(tms2 - tms1, "0.0000s")
    
25.    
    
26.     tms1 = Timer
    
27.     For ii = 1 To 10 ^ nn
    
28.         For i = 1 To k
    
29.             t = arr(i, 1)
    
30.             s = d(t)
    
31.         Next
    
32.     Next
    
33.     tms2 = Timer
    
34.     MsgBox Format(tms2 - tms1, "0.0000s")
    
35.    
    
36. End Sub
    

复制代码

香川群子

事实上，字典可以看做是一种衍生工具，而并非基本必需品。

好的字典用法应该遵循如下原则：
1. 在使用字典之前，可能有必要先对原始数据进行整理。

2. 原则上应该一次循环就完成字典的建立，算法上尽量避免多次循环。

3. 在实际代码过程中，通过字典读取Item项目的过程也要控制到最少次数。
  

【反复读、写字典】这样的代码，基本上可以判断为不好的算法。

即，要把字典当做核武器那样，我有，但尽量不使用。这个才是最高的境界，
而这样写成的代码，才可能是好的算法。

freeffly

要把字典當核武器盡量不使用

這種說法真是妙
對於字典還是新手
學習依下

lee1892

我的字典对象使用经验谈贴可以看看，有不少使用字典嵌套的实际例子～

Zamyi

虽说现在基本不必考虑资源紧张的问题，但速度也须考虑吧，1楼用了三个数组，和n+1个字典，实际上一个字典和一个数组就可以解决，占用资源少，速度也快：

1. Sub Macro1()
   
2. Dim arr, d As Object, i&, j&, k&, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. n = 1
   
6. For i = 2 To UBound(arr)
   
7.   If d.exists(arr(i, 1)) Then
   
8.     k = d(arr(i, 1))
   
9.     For j = 2 To UBound(arr, 2)
   
10.       arr(k, j) = arr(k, j) + arr(i, j)
    
11.     Next
    
12.     Else
    
13.     n = n + 1
    
14.     d(arr(i, 1)) = n
    
15.     For j = 2 To UBound(arr, 2)
    
16.       arr(n, j) = arr(i, j)
    
17.     Next
    
18.   End If
    
19. Next
    
20. Range("a15").Resize(n, UBound(arr, 2)) = arr
    
21. End Sub

复制代码

tcy119

字典统计可以提高运数速度，学习！

wangsp

一个案例，多种解法的分析优化，教学的好贴

thtfzhaobo

原来主要用于菜单、查询等，例子不够经典，开阔思路，支持

mmwwdd

字典是我的最爱

nikonmonarch

记号学习了。