[已解决]单元格内容赋值给数组

Yunyun123

求助，为什么用动态数组时，不能将单元格的内容逐一赋值给该数组？

Public Sub test()
Dim a() As Variant
Dim i As Integer
For i = 0 To 10
a(i) = Cells(i + 1, 2).Value
Next i
End Sub

报错如下：

最佳答案

月排行榜 / 总排行榜

vitrel

2022-1-25 16:13

Yunyun123 发表于 2022-1-25 14:33
感谢回复。
我要做的是把查找到的内容存到数组中，但是不确定会查到多少，所以没有定义数组的大小。
我 ...

对于这种情况，有3种思路：
思路1：
先定义一个较大的数组，待元素写入完毕后，再重定义数组，将后面空的部分去掉。
现在的电脑，内存都很大，定义个几万个元素的数组对系统来说，是十分轻松的。更甚者，有些网友干脆把后面“重定义数组，去掉空部分”的步骤都省去。
思路2：
边重定义数组大小，边增加数组元素。
思路3：
先将内容暂存于单元格内，待前面的步骤完成后，
再将单元格一次性写入数组。

上述3种思路各有优缺点，楼主要视自己的实际情况选用。

跳转到最佳答案楼层

砂海

动态数组 此时还是空的 ,
要 先 redim

vitrel

对于动态数组，必须定义了大小后，才能用索引赋值。
因此，要不您一开始就Dim a(0 To 10) As Variant，
要不赋值前来一句ReDim a(0 To 10)，
只有这样确定了数组的大小，才能用索引号逐个给数组的元素赋值。
这样一来，所得到的是一个由a(0)~a(10)共11个元素的一维数组。

又或者用单元格整体赋值的方式，那就不用先定义数组大小，如：
Dim a() As Variant
a = Cells(1, 2).Resize(11).Value
与上面的不同，这样一来，所得到的是一个由a(1，1)~a(11, 1)共11个元素的二维数组。

如果数据量大的话，单元格整体赋值与索引号逐个赋值相比，
不仅代码精简不少，速度还快很多，楼主可根据自己的实际情况按需使用。

Yunyun123

vitrel 发表于 2022-1-24 15:33
对于动态数组，必须定义了大小后，才能用索引赋值。
因此，要不您一开始就Dim a(0 To 10) As Variant，
...

感谢回复。
我要做的是把查找到的内容存到数组中，但是不确定会查到多少，所以没有定义数组的大小。
我把内容存到数组之后，还要再依次调用数组中的内容，数组定义的太大，会有问题吧？

vitrel

Yunyun123 发表于 2022-1-25 14:33
感谢回复。
我要做的是把查找到的内容存到数组中，但是不确定会查到多少，所以没有定义数组的大小。
我 ...

对于这种情况，有3种思路：
思路1：
先定义一个较大的数组，待元素写入完毕后，再重定义数组，将后面空的部分去掉。
现在的电脑，内存都很大，定义个几万个元素的数组对系统来说，是十分轻松的。更甚者，有些网友干脆把后面“重定义数组，去掉空部分”的步骤都省去。
思路2：
边重定义数组大小，边增加数组元素。
思路3：
先将内容暂存于单元格内，待前面的步骤完成后，
再将单元格一次性写入数组。

上述3种思路各有优缺点，楼主要视自己的实际情况选用。