[[練習問題]]~
TRANSPOSE関数を使ってみた。
 Sub 転置行列01()
 Dim a As Variant
 Dim b As Variant
 '3行3列の行列
 a = Range("A1:C3")
 '行列の入れ替え
 b = Application.Transpose(a)
 Range("E1").Value = b
 End Sub
関数を使わないほう。