e=1 to l ,f=1 to h,数组p(f,e)
我想求这个数组的转置数组，也就是把他的行变成列

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim p(1 To 3, 1 To 3) As String

For i = 1 To 3
Debug.Print
For j = 1 To 3
p(i, j) = Int(Rnd * 10)
Debug.Print p(i, j) & ",";
Next j, i

For i = 1 To 3
Debug.Print
For j = 1 To 3
Debug.Print p(j, i) & ",";
Next j, i

End Sub