不会一个一个写吧，如果可以是很方便的，要不得写18个if语句啊
请参考..
先设一个一维数组..
数组的某个值..就等于另一个数组.
Private Sub Command1_Click()
Dim Mat(10)
Dim t(1 To 50) As String
Dim i As Integer
For i = 1 To 50
t(i) = Int(Rnd * 50)
Next
Mat(0) = t
MsgBox "Mat Ubound:" & UBound(Mat)
Dim a() As String
a = Mat(0)
MsgBox "Mat SubArray t Ubound:" & UBound(a)
End Sub
