得到6W+的结果，运行了7065S.这样太耗时了吧。

穿梭机丶Edward

thestronger 发表于 2015-8-1 12:25
刚刚尝试了一下，在表格中读取5万个格子并计算的速度和复制到内存数组中计算的速度相差四、五倍，而测试 ...

大神？真的吗？？我正在看刚买的书，学习如何使用数组。。因为数量什么得。都不确定。所以我还没去实施使用数组。

穿梭机丶Edward

顶！再顶。。还是没人来讨论如何优化？

hyqzzs

没看你的代码和附件。一般提速的方法，除了6楼说的，你还可以考虑学习一下字典。

穿梭机丶Edward

hyqzzs 发表于 2015-8-1 22:11
没看你的代码和附件。一般提速的方法，除了6楼说的，你还可以考虑学习一下字典。

代码放在1楼了。字典和数组，我都知道可以提速。还在学习中，具体的应用打算，复制改为用数组。而比较方面，因为数组的维数好像不能超过60，只能用单元格来比较了。

yjh_27

穿梭机丶Edward 发表于 2015-8-2 00:12
代码放在1楼了。字典和数组，我都知道可以提速。还在学习中，具体的应用打算，复制改为用数组。而比较方 ...

工作表是二维的数据。数组一般用到3维以上较少。比较用数组没问题。

huang1314wei

穿梭机丶Edward 发表于 2015-8-2 00:12
代码放在1楼了。字典和数组，我都知道可以提速。还在学习中，具体的应用打算，复制改为用数组。而比较方 ...

工作表用数组不会超过60维的，工作表当中的range数组都是二维的

穿梭机丶Edward

huang1314wei 发表于 2015-8-2 08:34
工作表用数组不会超过60维的，工作表当中的range数组都是二维的

定义

1. dim Rule() as string  ‘规范表的数组
   
2. ReDim Rule(1 to Ry,"D" to "N")   'Ry是规范表最大行，N列

复制代码

以上来确定数组的语句，正确吗？
还是用这句： Rule()=Range(cells("D2"),cells(Ry,"N"))

--------------------------------------------------------------------------------------------------
手上4本书，和网上，我都没找到关于多维数组，动态数组的清晰定义，赋值方法。
如果Range(cells("D2"),cells(Ry,"N"))都赋值给了Rule数组，那么如何表示D2单元格的值？
F2呢？

一开始就想用数组，但是写起来很吃力，我连定义，和赋值还没搞清楚。更不用说循环嵌套数组，比较数据，再输出。

yjh_27

ReDim Rule(1 to Ry,"D" to "N")   'Ry是规范表最大行，N列
不支持 此句可省略，直接：
Rule=Range(cells("D2"),cells(Ry,"N"))

如果Range(cells("D2"),cells(Ry,"N"))都赋值给了Rule数组，那么如何表示D2单元格的值？  Rule(1,1)
F2呢？  Rule(1,3)

多写，多试，事半功倍
光看书是事倍功半

穿梭机丶Edward

yjh_27 发表于 2015-8-2 14:16
ReDim Rule(1 to Ry,"D" to "N")   'Ry是规范表最大行，N列
不支持 此句可省略，直接：
Rule=Range(cell ...

F2应该是Rule(1,2)吧，我一直认为数组定义后就应该是相对地址表示。但是，如果碰到很多列的情况下，能用绝对地址表示吗？例如F2，Rule（$F$2$）?
另外定义动态数组数量，应该取决与内存的大小对吧？

yjh_27

穿梭机丶Edward 发表于 2015-8-2 17:05
F2应该是Rule(1,2)吧，我一直认为数组定义后就应该是相对地址表示。但是，如果碰到很多列的情况下，能用 ...

墙上那一串串红辣椒——数组入门讲座
http://club.excelhome.net/thread-196095-1-1.html
(出处: ExcelHome技术论坛)