VBA数组运算速度 - ReDim 和 ReDim Preserve 速度对比

flf19720321@163

我只有学习学习的份，不懂呀！！！！！！！！

灰袍法师

jinbo3535 发表于 2013-5-5 22:37
原来计算机是这样运算的！老师，您不说，这些资料应该很难找到的！谢谢你···

只有在程序中查找数组元素才有可能是这样的二分法查找

如果是计算机内部寻址

那么  redim 的实际意义是 重新分配内存！
而 redim preserve 是重新分配内存以后，再复制之前所有数据！！！  所以奇慢无比。

而二维数组比一维数组慢的原因，是因为采用了不同的内存寻址方式，没记错的话，起码有十几种寻址方式。。。。。。

不过正如楼上许多大侠提到的：如果一个VBA跑起来不慢，那么也没必要去做这些优化。

优化背后的实现细节，就更加不是VBA用户必须掌握的知识了，有兴趣就学点，没兴趣又用不上就算了呗。

jinbo3535

灰袍法师 发表于 2013-5-6 21:09
只有在程序中查找数组元素才是这样，如果是计算机硬件内部寻址
那么  redim preserve 的实际意义是 重新 ...

谢谢灰炮老师的指导···

jinbo3535

flf19720321@163 发表于 2013-5-6 19:06
我只有学习学习的份，不懂呀！！！！！！！！

我的乖乖，数组是个好东西呀！以前只听说它快，到底多快没试过！如果，你处理的数据量大，那你就会发现，它运算速度太惊人了！我这十几天，都在学这个，深有体会···

灰袍法师

小花鹿 发表于 2013-5-6 00:29
请教版主：
是定义一个足够大的数组好，还是Preserve 好？
我的理解是：定义一个足够大的数组肯定会浪费 ...

直接 dim 一个 100MB 的数组，对目前的机器来说，这点内存也不值一提。

所以我认为绝大多数情况下，直接  dim 一个肯定用不完的数组就行了

另一个方法是，先 dim 10MB，然后不够的时候每次 redim 增加 10MB

这样就避免了大量 redim 的减速问题。

代价是自己在程序中要算准什么时候需要 redim 。

hehex

灰袍法师 发表于 2013-5-6 21:09
只有在程序中查找数组元素才有可能是这样的二分法查找

如果是计算机内部寻址

感谢法师的指导，专家毕竟是不同的啊。

香川群子

小花鹿 发表于 2013-5-6 00:53
请教老师问题2：
我学习VBA的方法是：先不考虑速度，不管三七二十一，先把正确结果弄出来，速度的问题慢 ...

这个是可以的。

而且，由于现在普通电脑的配置也已经很不错了，对速度的影响大大降低。

香川群子

小花鹿 发表于 2013-5-6 01:23
请教老师问题4：
有时候看到个别代码借助辅助单元格进行数据处理（具体例子现在找不出来），我觉得这种做 ...

借助辅助单元格作为临时数据的储存这个方法非常地不好，绝对不可以哦！

…………
曾经有一个新手的求助帖，也做了这样的测试：
在单元格A1中反复写入数据……for……next循环几十万次以后，Excel占用的内存到了无法仍受的地步，
并且所占用的内存无法清除（在保存、关闭该文件之前无法释放、或清除VBA占用的内存。）

…………
原因是这样子的：
Excel会使用内存保存你做的所有单元格操作，以便进行恢复。
为此目的所占用的内存，只有在保存文件后才能被释放……（保存文件后就不能执行恢复功能了。）

有意思的是，当你使用VBA对单元格进行操作时，Excel程序仍然占用了相应的内存，
但却不能对VBA的行为进行恢复操作。

因此，良好的习惯是：
VBA可以随时读取单元格信息，但不应该频繁地向单元格内写入信息……这会不当占用内存且不可释放！

因此，仅仅允许在VBA执行完毕时最后阶段输出结果到工作表。

灰袍法师

香川群子 发表于 2013-5-5 21:46
使用VBA内存数组时，读、写入数组时首先需要检索行、列位置。

而数组中定位置也并非人类脑子中想一想那么 ...

因此，你当然可以理解下述结果：
一维数组显然要比二维数组速度更快一些。因为只需确定1个列位置就够了，少了一次定位计算。
==================================================
不仅仅是少了一个定位参数
还因为 计算机硬件本身就难以快速访问多维数组，需要比一维数组多得多的机器指令。

所以一个简单的加速技巧是
把 dim arr(1 to 100, 1 to 4) 改为 dim arr(1 to 400)
然后自己的代码把所有的 arr(m, n) 改为  arr(  4*(m-1) + n )
这样就在代码内部把二维数组的访问，改为一维数组的访问，会加速一点点。
当然，这点加速幅度其实也不值一提。。。。。。

下图来自《汇编语言编程艺术》英文版。

香川群子

小花鹿 发表于 2013-5-6 00:29
请教版主：
是定义一个足够大的数组好，还是Preserve 好？
我的理解是：定义一个足够大的数组肯定会浪费 ...

折中的方法是：

1. 直接定义一个适当大小的数组……
  如果本来行数不多几千、几万行，那么直接定义新数组为相同行数即可 （见赵版说明）
  或者定义2003版最大行数 65536行

2. 一开始定义一个数组增量kc如kc= 1000行（或5000行 或10000行）
   然后每次新数组实际增量k=k+1 以后，再if判断k=1000时，才使用Redim Preserve brr(1 to k + 1000)
   这样的话，Redim Preserve 语句的实际使用次数就大大减少了……

  举例如：
  sub test()
       kc=1000
       redim brr(1 to kc)
       k=1
      …………
       brr(k)=x
       k=k+1
       if k mod kc = 0 then redim preverse brr(1 to k+kc)

      ……