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

lee1892

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

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

tmp = arr(20,1) 这么简单一句要求，
但电脑计算机并不能直接定位到第20行、第1列。
而是要先计算该数组的一半 = 50，然后发现 20<50
于是接着计算50的一半 = 25，然后发现 20<25
于是接着计算25的一半 = 12，然后发现 20>12
于是接着计算12 -25 的一半 = 18，然后发现 20>18
…………
<50 →<25 →>12 →>18 →<21 →>19 →=20

这样子经过6步计算最后才定位到arr(20,1) 的。

论坛不允许纯表情符号～但我仍然@_@

jinbo3535

香川群子 发表于 2013-5-6 21:51
折中的方法是：

1. 直接定义一个适当大小的数组……

群子老师：
    你的意思是不是循环一次就判断一次 k mod kc = 0 ？

jinbo3535

灰袍法师 发表于 2013-5-6 21:47
因此，你当然可以理解下述结果：
一维数组显然要比二维数组速度更快一些。因为只需确定1个列位置就够了 ...

灰袍老师：
    把 dim arr(1 to 100, 1 to 4) 改为 dim arr(1 to 400)，这句看得懂，把2维改1维！
    然后自己的代码把所有的 arr(m, n) 改为  arr(  4*(m-1) + n )，这句看不太懂？

    还有100MB 的数组、10MB 的数组 要怎么算出来？

jinbo3535

香川群子 发表于 2013-5-6 21:40
借助辅助单元格作为临时数据的储存这个方法非常地不好，绝对不可以哦！

…………

明白了，把结果一次放入单元格和循环、多次放入单元格的速度差别那么大！

jinbo3535

香川群子 发表于 2013-5-6 21:40
借助辅助单元格作为临时数据的储存这个方法非常地不好，绝对不可以哦！

…………

群子老师：
         再请教您一个问题，数组赋值给单元格的大小，速度上会差很多吗？
         比如：数组（1 To 1000，1 to 1500）、数组（1 To 100，1 To 100）赋值给对应大小的单元格，在速度上会差很多吗？

灰袍法师

jinbo3535 发表于 2013-5-6 22:16
灰袍老师：
    把 dim arr(1 to 100, 1 to 4) 改为 dim arr(1 to 400)，这句看得懂，把2维改1维！
  ...

arr(m, n) 改为  arr(  4*(m-1) + n )，这句看不太懂？
===================================
就是说，原本是 arr(1,3) 访问二维数组，第一行第3列的元素
改为一维数组以后，该元素的位置就变成 arr(3) ，第1行第3个元素

同理，原本是  arr( 10,2) ，现在就是 arr( 4*(10-1) +2 = arr(38)

其实就是计算 改为一维数组以后，对应的新数组位置而已。

100 MB 的数组要自己算了，如果每个数组元素占 4 字节
那么 dim arr(1 to 25 * 1048576) 就会声明一个刚好 100MB 的数组

不过实际上也不需要这么精密
直接 dim arr( 1 to  10万)，然后
lastpos = ubound(arr)
每当数组元素增加到 lastpos 的时候
就
redim preserve arr (1 to lastpos + 10万 )
lastpos = ubound(arr)
即可。

Zamyi

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

如果是计算机内部寻址

但是对于减少好象是不需要拷贝的：

1. Sub test()
   
2. n = 99999
   
3. ReDim a(n)
   
4. t = Timer
   
5. For i = n To 1 Step -1
   
6.   ReDim Preserve a(i)
   
7. Next
   
8. t1 = Timer - t
   
9. 
   
10. ReDim b(n)
    
11. t = Timer
    
12. For i = 1 To n
    
13.   ReDim Preserve a(i)
    
14. Next
    
15. t2 = Timer - t
    
16. MsgBox t1 & Chr(10) & t2
    
17. End Sub
    

复制代码

所以，我处理这种问题一般用两种方法：定义更大的数组，视情况看需不需要redim preserve 一次要；第二是先计算数组大小，再定义数组。

jinbo3535

灰袍法师 发表于 2013-5-7 02:08
arr(m, n) 改为  arr(  4*(m-1) + n )，这句看不太懂？
===================================
就是说， ...

谢谢老师···

jinbo3535

Zamyi 发表于 2013-5-7 08:55
但是对于减少好象是不需要拷贝的：所以，我处理这种问题一般用两种方法：定义更大的数组，视情况看需不需 ...

各位老师的意见统一，还是尽量不要用preserve关键字···
学习了，谢谢···

xgy0214dxy

赞一下，真心有用的贴贴，收藏