[[練習問題]]~ 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 関数を使わないほう。