说说词典和数组

EXCEL江湖

好资料，学习！

nikonmonarch

太棒了，学习。

sunny_8848

谢谢楼主，学习了。感觉词典效率挺高的

nikonmonarch

wzsy2_mrf 发表于 2014-9-5 14:13
实例二，这个例子较为复杂了
一词典多列、多表去重输出
Sub 遍历多表固定列不重复wzsy2_mrf()

这个有些复杂，还看不懂。如果解释更详细一些就好了。

wzsy2_mrf

还有些人喜欢在词典套词典，词典套数组，词典套对象，对这样的套法，我原则上是能不用就不用。何以言之？我们用数组、词典的目的是什么？不就是为了减少程序运行无效的资源开销，从而提高运行速度吗？那你这头刚把负担甩掉，那头又怎么自觉地把负担背上了。所以，对词典的key和item，尽量用原子数据类型，至于对于一个key要带多个数的情况，完全可以通过字符串变量和指定数组位置的方法予以解决。

wzsy2_mrf

再举一个例，里面的有二个过程代码，都是对同一不规则列数据的提取、计算和输出。其中第一个是网友所写，用的是字典套字典的方法，后一个是我所写，就用一本词典，关键在于让词典关键词去对应输出数组行号。里面的数据量并不大，可是，就这么一点数据，二者的运算速度也有了明显差别。
我的代码如下：

1. Sub kphz()
   
2.     Dim dic, Arr, drr, jrr, i&, myR&, iRow&, t
   
3.     Application.ScreenUpdating = False
   
4.     t = Timer
   
5.     With Sheet1
   
6.         myR = .Range("L65536").End(xlUp).Row
   
7.         .Range("Y5:AM" & myR).ClearContents
   
8.         Arr = .Range("L5:L" & myR)
   
9.         Set dic = CreateObject("scripting.dictionary")
   
10.         For i = 1 To UBound(Arr, 1)
    
11.             If Not dic.exists(Arr(i, 1)) Then dic(Arr(i, 1)) = dic.Count + 1'让第N个出现的关键字对应第N行，dic.count随关键字增加而增加，拿来用刚好
    
12.         Next
    
13.         jrr = .Range("R5:X" & myR)'取得数据源
    
14.         ReDim drr(1 To dic.Count, 1 To 9)'定义输出数组
    
15.         k = dic.Count
    
16.         For i = 1 To myR - 4
    
17.             iRow = dic.Item(Arr(i, 1))
    
18.             drr(iRow, 1) = jrr(i, 1) * 1000 + drr(iRow, 1)
    
19.             drr(iRow, 2) = jrr(i, 4) + drr(iRow, 2)
    
20.             drr(iRow, 3) = jrr(i, 5) + drr(iRow, 3)
    
21.             drr(iRow, 4) = jrr(i, 2) * 1000 + drr(iRow, 4)
    
22.             drr(iRow, 5) = jrr(i, 6) + drr(iRow, 5)
    
23.             drr(iRow, 6) = jrr(i, 7) + drr(iRow, 6)
    
24.             drr(iRow, 7) = drr(iRow, 1) + drr(iRow, 4)
    
25.             drr(iRow, 8) = drr(iRow, 2) + drr(iRow, 5)
    
26.             drr(iRow, 9) = drr(iRow, 3) + drr(iRow, 6)
    
27.         Next
    
28.         .Range("AD5").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
29.         .Range("AE5").Resize(dic.Count, 9) = drr
    
30.     End With
    
31.     MsgBox "整理完成,用时" & Format(Timer - t, "#0.#####") & "秒!"
    
32. End Sub
    

复制代码

Moneky

支持楼主辛勤科普。/强

香川群子

wzsy2_mrf 发表于 2014-9-6 09:46
还有些人喜欢在词典套词典，词典套数组，词典套对象，对这样的套法，我原则上是能不用就不用。何以言之？我 ...

即使简单的字典，也应该是能不用就不用。呵呵。

xd3210

好贴，收藏学习！写代码的确需要养成好的习惯。

天地有雪

感谢楼主分享！看了楼主的帖子，终于明白为什么数组跟字典会比cells和range快了！