我试图用Double()数组的数组创建一个锯齿状的数组。我只是想动态地将此a()Double添加到d()中。当我尝试从d中提取a的一个副本并将其放入x时,就会出现错误。
Sub Test3()
Dim a() As Double, i As Integer
ReDim a(1 To 10, 1 To 3)
a(1, 2) = 3.5
Dim d() As Variant
For i = 1 To 3
ReDim Preserve d(1 To i)
d(i) = Array(a)
Next i
Dim x() As Double
x = d(1) ' Error, Type Mismatch
MsgBox (x(1, 2))
End Sub
试试这个。将Array(a)更改为a。
Sub Test3()
Dim a() As Double, i As Integer
ReDim a(1 To 10, 1 To 3)
a(1, 2) = 3.5
Dim d() As Variant
For i = 1 To 3
ReDim Preserve d(1 To i)
d(i) = a
Next i
Dim x() As Double
x = d(1) ' Error, Type Mismatch
MsgBox (x(1, 2))
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句