如何定义Variant/Variant(0 to 2)数组。
Dim aa(3) As Variant
aa(0) = Array(1, 2, 3)
aa(1) = Array(2,3,4)
aa(2) = Array(3,4,5)
转为oArr(2,2)相当简单。
而反过来实现下图效果,好像就麻烦。
以此为题反向操作,oArr→获得图示结果。详见图例。
请问如何处理。谢谢
变通方法。
先定义一个Array(1, 2, 3)
再用aa(1) = aa(0)方法得到图示结果
Sub fsafdsafdsafa()
Dim aa(3) As Variant
aa(0) = Array(1, 2, 3)
aa(1) = aa(0)
aa(2) = aa(0)
For ii = 0 To 2
For jj = 0 To 2
aa(ii)(jj) = ii * jj + 1
Next jj
Next ii
End Sub
''