Question

vba 定义数组 并一次性赋值

维数是固定的，赋的值是毫无规律的自定的数，数组如
2 3 1 5 .02 .05 .14
4 23 0.36 7 10 3.25 1.05
1楼问题太简单改一下，定义多维数组，数从excle来
一维 Range("A1:A4")
二维 Range("A5:A6")

Answer 1

请问，你是想自动赋值；还是手动输入值；还是值就是这些。定义一个包含数据的数组就行？

Answer 2

试下这个：
*************
Sub GetArrayFromRange()
Dim vntArray
vntArray = Range("A1:B4")

Dim i As Long, j As Long

For i = 1 To UBound(vntArray, 1)
For j = 1 To UBound(vntArray, 2)
MsgBox vntArray(i, j)
Next
Next
End Sub

Answer 3

我发现很多问的人都是和你一样的半瓶子，你直接说你想干什么就行了，至于用一维还是二维得看问题定。不是你说了算数的。按你的意思就是把a1:a4 a5:a6定在一个多维数组中。
dim aa(1 to 4,1 to 2)
这样定义就行了，导入数就行了。