[已解决]求助：将sheet1到sheet7的数据，统计到sheet8中

hwc2ycy

亲，麻烦你用这三个代码分别测试3次，看看哪个效率高。
麻烦亲把立即窗口的时间截图发一份给我看看。
一定要测数据上N多万行的，这样才有效果。

maysh2009

hwc2ycy 发表于 2012-10-11 00:04
亲，麻烦你用这三个代码分别测试3次，看看哪个效率高。
麻烦亲把立即窗口的时间截图发一份给我看看。
一定 ...

好 我明天将图贴上来，谢谢您了

独股求胜

这个好东西我找了好久了，谢谢。工作中用啊。

dongfengjiedong

maysh2009

hwc2ycy 发表于 2012-10-10 18:35

56万9000多条数据，这个的运行dubeg窗口是

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
78.3125

maysh2009

hwc2ycy 发表于 2012-10-11 00:02
字典+动态数组

字典+动态数组写回单元格花费时间为: 45.04297秒
省略一些 0
78.3125

maysh2009

hwc2ycy 发表于 2012-10-11 00:00
字典+静态数组，使用时记得根据实际情况修改数组大小，否则会有报错

56万9000多条数据 这个的运行dubeg窗口是

字典+静态数组写回单元格所花费时间为: 45.5293秒

maysh2009

hwc2ycy 发表于 2012-10-11 00:04
亲，麻烦你用这三个代码分别测试3次，看看哪个效率高。
麻烦亲把立即窗口的时间截图发一份给我看看。
一定 ...

综上，569075条数据
纯字典运行的时间是78.3125
字典+静态数组写回单元格所花费时间为: 45.5293秒
字典+动态数组写回单元格花费时间为: 45.04297秒


'使用静态数组，一维大小需预先估算
    Dim arr, arr2
    Dim arrRst(1000000, 1 To 3) '假设统计数据数量在1000行以内，如果数量不止，则改大
    Dim i&, t!, k&, j&
    Dim wsh As Worksheet
    Dim dic As Object
    t = Timer
字典+静态数组写回单元格的结果不正确。。。

hwc2ycy

maysh2009 发表于 2012-10-11 09:13
综上，569075条数据
纯字典运行的时间是78.3125
字典+静态数组写回单元格所花费时间为: 45.5293秒

谢谢。能否发一份附件给我。可以的话我就M你邮箱。

hwc2ycy

maysh2009 发表于 2012-10-11 08:55
56万9000多条数据，这个的运行dubeg窗口是

0

中间有DEBUG.PRINT忘了注释。
要不你给注释了，再看看时间。