VBA关于数组Dim,ReDim Preserve运行速度对比思考

killq

                  1

夸不得

DevilW 发表于 2019-7-24 11:35
字典+数组也不见得比单独数组运行得快，1楼字典+数组代码先算出每一行的结果，然后合并，再拆开，最后赋值 ...

redim 字典时候，有时候不确定数组的上标，你的代码里面就redim了一次，所以速度是没有什么影响的，我用字典的目的是用字典来确定数组的上标，在使用中我们也可以先定义一个100W的数组上标再计算复制给单元格，，07版以后的excel就有100多万的行数，而且行数超过100W的表格，基本就不excel做了，

夸不得

killq 发表于 2019-7-24 12:43
看不懂这个讨论，直接把楼主的程序改造一下，去掉对 excel 操作部分，并在字典运行结束后加了一句释放，结 ...

楼主操作的循环次数为多少次？

killq

夸不得 发表于 2019-7-24 13:37
楼主操作的循环次数为多少次？

忘了，反正就是楼主你的附件啊，简单注释掉无关语句，哈哈

夸不得

killq 发表于 2019-7-24 13:42
忘了，反正就是楼主你的附件啊，简单注释掉无关语句，哈哈

我那个附件好像就1万次循环，我当时测试的时候，10W次redim也就2.7s，一万次0.027s，我准备下定义“虽说ReDim Preserve慢的，这不是误人子弟吗”当我测试到100W的时候，突然发现ReDim Preserve居然要250s，我就发现ReDim Preserve的循环次数增加10倍，时间却增加100倍，我做这个对比的时候因为我做一个提取文件夹下文件名的代码，以前图简单每次都是直接操作单元格，发现读取我D盘所有文件要5s多，就想着用不同的方式测试一下，看有没有必要优化一下，毕竟不是频繁操作的代码，花那么多时间去优化有点不值得，就放上来，看看有没有网友指点一下。

killq

夸不得 发表于 2019-7-24 13:51
我那个附件好像就1万次循环，我当时测试的时候，10W次redim也就2.7s，一万次0.027s，我准备下定义“虽说R ...

9楼不是已经跟你说清楚了吗？你原代码主要时间浪费在调用excel对象写数据上。你这个主题讨论方向已经偏到α星上去了。

PS。

回顶楼看了一眼，好像只通过注释改造是错误的。。。。这个主题我参加错了，囧，马上去删除原回复贴中数据。。。。

AbleZeng

老师解我疑惑，感谢老师测试

cgzn

你这思考啥，你的字典加数组法明显不对啊，少了一个n=n+1吧，后面的split应该是用的参数也是i吧，不是n

cgzn

第二种方法改成下面这样的，才是标准的，应该也是最快的方法。

1. Rem 数组操作用时定义一个很大维度
   
2. Range("A1:D" & iRow).ClearContents
   
3. t = Timer
   
4. Dim arr()
   
5. ReDim arr(1 To 4, 1 To 60000)
   
6. For i = 1 To iRow
   
7.     arr(1, i) = i '序号
   
8.     arr(2, i) = i * 2
   
9.     arr(3, i) = i * 4
   
10.     arr(4, i) = i * 6
    
11. Next
    
12. ReDim Preserve arr(1 To 4, 1 To i - 1)
    
13. Range("A1").Resize(UBound(arr, 2), UBound(arr, 1)) = Application.Transpose(arr)
    
14. [G2].Value = Format(Timer - t, "0.00000")

复制代码

SoyaDokio

诸位dalao你来我往 好不精彩
受益匪浅