数组的长度可以用变量表示，比如下面代码，就可以先定义一个动态数组，然后根据一个算式来确定数组的大小，再给它赋值
Sub abc()
Dim a() As Integer
n = 0
'写入动态数组
x = 3 * 4
ReDim a(0 To x) '根据表达式计算X的值来确定数组大小
For i = 1 To 3
For j = 2 To 5
a(n) = i + j: n = n + 1
Next
Next
'从动态数组取数
For i = 0 To n
Cells(i + 1, 1) = a(i)
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024