---- 100万行 ! ----- 多列独立汇总 ---- 自定义汇总方式 ---- 3秒完成一列

飞云楼主

谢谢楼主、zhaogang1960
分享

gjj136138139

For i = 1 To UBound(InData)
   
    Patient_ID = InData(i, 2)
   
    If Dic.exists(Patient_ID) Then ----这里的dic的key本来就是从indata中提取出来的，肯定是存在的，这个if.....then的判断好象可以不需要的吧？

灰袍法师

原帖由 gjj136138139 于 2010-1-16 13:01 发表
For i = 1 To UBound(InData)
    Patient_ID = InData(i, 2)
    If Dic.exists(Patient_ID) Then ----这里的dic的key本来就是从indata中提取出来的，肯定是存在的，这个if.....then的判断好象可以不 ...

本帖的目的很简单，就是尝试一下100万行数据的汇总速度大概在什么时间范围

所以并没有去尽量优化，因此，有人能够再快十倍八倍也是不奇怪的。

我也希望能看到有人能够用SQL，数据透视表，或者就是VBA代码，或者其他什么技巧，能够做到同样的事情并且更快速简单。

论坛里太多抱怨几万行数据，速度太慢，或者回帖提议用数据透视表吧，用SQL吧，用Access吧，到底哪个最好？如果可能的话，就在本贴做个了结吧。

至于这个IF判断，我当时也想过是否需要，考虑到这段代码迟早可能被人用在其他程序，我又不知道别人的查询字典数据是怎么来的，所以为了保险还是加上去了。

根据柏金逊定理（不是手脚颤抖的那种病）：为某些数据优化的越好，对其他数据的优化就越差，所以这个IF还是有必要保留的。

灰袍法师

谢谢诸位的回帖，更感谢提出各种优化建议的高手朋友。

我想了一下，其实当初不应该照着提问题的那个贴来做， 思维惯性害死人啊，尤其是生成测试数据的代码，汗。。。。。。

既然是终结贴，本来应该按以下格式设计程序的

ID列 ----  本列数据将汇总计数 ---- 本列数据将汇总最大值 ---- 最小值汇总 ---- 求和汇总 ---- 等等

这样用户只需要把数据粘贴到这个表格，把需要汇总的数据放到对应的列，就可以做到类似数据透视表的效果了。

使用者可能连代码都不用改了。

JLF2003

学习一下，不断成长！

menboy

很好的想法，让我们初学者能拿来就可以用，非常的周到，谢谢。lz

office2008

做的很好,自定义数据类型处理起来方便多了,学习了
没多大提速空间了,除了这两个地方改改看
Dim Patient_ID As String * 11
Dim Dic As Scripting.Dictionary

灰袍法师

原帖由 office2008 于 2010-1-18 22:51 发表
做的很好,自定义数据类型处理起来方便多了,学习了
没多大提速空间了,除了这两个地方改改看
Dim Patient_ID As String * 11
Dim Dic As Scripting.Dictionary

谢谢支持。

通过VBA字典把关键字翻译为数组下标，然后让自定义数据类型也得到字典的支持，是我最自豪的地方啊。

速度倒没觉得有什么值得一提的地方，可能会比SQL慢，而且虽然比数据透视表快，但是易用性就差十万八千里了。

查询不复杂的，还是优先考虑用数据透视表为好。

你的加速建议很好，学习了。

[ 本帖最后由 灰袍法师 于 2010-1-19 01:03 编辑 ]

fgwei

太不可思议了，佩服，佩服

thtfzhaobo

自定义数据类型应用是新意，速度会受字典项的数量影响很大