練習問題
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

関数を使わないほう。


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS