我需要一個 2列 3行的二維陣列存放資料，並且要設定初始值如下：
Sub Cala()
Dim MyArray()
ReDim MyArray(2, 3)
MyArray = Array(Array("Mary", "Mat", 108), _
Array("John", "Sci", 131))
MsgBox UBound(MyArray, 1)
MsgBox UBound(MyArray, 2)
End Sub
在MsgBox UBound(MyArray, 2) 會出現陣列索引超出範圍的錯誤，
請問2維陣列初始值設定的程式碼，是哪邊有問題呢？
謝謝~

Array()函數傳回來的是一維陣列

Array()建出來的陣列是zero base的 dim也變成多餘了