解答例/転置行列/Excel VBA の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• 解答例/転置行列/Excel VBA へ行く。
  • 1 (2013-07-12 (金) 15:50:01)
  • 2 (2013-07-12 (金) 18:53:01)
  • 3 (2013-07-12 (金) 18:53:01)
  • 4 (2013-07-12 (金) 18:53:01)
  • 5 (2013-07-12 (金) 18:53:01)
  • 6 (2013-07-13 (土) 23:57:24)
  • 7 (2013-07-13 (土) 23:57:24)

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

関数を使わないほう。