如何突破Array中的数目限制？

freshsun

当然，1万个数字也不需要你一个个地敲键盘，复制一万个数字就行了。
问题在于代码能接受这么多行数字吗？我试了多次，一直是写不进去。

所以提到行数限制的问题，代码表达方式的问题，还涉及到了你们说的直接提取数据源的问题。

无论哪种方法，最后都要经得起运行代码的检验。

freshsun

很多问题，想一想和说一说，可能很容易，但是真正做一做，可能就不那么容易了。

张三李四

我在表一中手工填写了10列1万行数据，再用下面的代码把这些数据赋值给表二了。

Sub fd()
arr = Sheets("sheet1").Range("A1:J10000")
Sheets("sheet2").Range("A1:J10000") = arr

End Sub

freshsun

通俗地说，在array（）的括号中，到底能放进多少东西？这就是本帖提问的重点所在。

张三李四

使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库（例如 VBA.Array )名称限定。如果是由类型库名称限定，则 Array 不受 Option Base 的影响。

freshsun

张三李四 发表于 2011-9-23 10:48
我在表一中手工填写了10列1万行数据，再用下面的代码把这些数据赋值给表二了。

Sub fd()

不错！这是解决问题的一个办法。辛苦你了！

freshsun

本帖问题实际上问的是，当我们往array（）的括号中添加内容时，一旦到了再也加不进去的时候怎么办？比如array（）的括号中原来只有10项，后来不断增加新的内容，但扩大到一定的时候必然遇到困难，这时有没有更好的办法让括号内可继续增加内容？

灰袍法师

freshsun 发表于 2011-9-23 11:36
本帖问题实际上问的是，当我们往array（）的括号中添加内容时，一旦到了再也加不进去的时候怎么办？比如arr ...

楼主下次提问最好上附件。。。
Sub 按钮1_Click()
Dim arr
arr = Array(1, 2, 3)
ReDim Preserve arr(1 To 4)
arr(4) = 4
MsgBox arr(4)
End Sub
另外，VBA的数组大约可以放6000万个变体类型元素，只跟电脑的连续内存块有多大有关
http://club.excelhome.net/thread-509573-1-1.html

Zamyi

一万个，就是容纳得下，有这么写的吗？
VBA一些限制：
1 、一行1024个字符。
2、一条语句行继是24个？（换行符）
3、一个模块大小64K。
4、局部静态变量也有一定的限制（2040个？）
所以用array应该在2040个内或更少。
“善于提问等于解决问题的一半，绝妙的问题就是开启智慧的源泉。”
这贴有点夹杂不清。

freshsun

Zamyi 发表于 2011-9-23 16:11
一万个，就是容纳得下，有这么写的吗？
VBA一些限制：
1 、一行1024个字符。

到目前为止，你的回答最接近本帖的要求。

也就是说，我们不能简单地依靠在Array()的括号内增加一万个数字以扩大项目数量。

那么，对于超过2040个字符的array怎么变通处理呢？
前面我的一个设想是，能否先写若干个子array，然后合并在一个简单的array语句中？如果可以，代码该怎么写？