VBA～WorksheetFunction.Transposeメソッド～Excel

VBAで指定した範囲の行と列を入れ替えたい場合はWorksheetFunction.Transposeメソッドを使います。

書き方

WorksheetFunction.Transpose(配列)

例として下の画像において下のコードを実行するとセルA1からセルB7の範囲をセルD1からセルJ2に行と列を入れ替えて表示されます。

Sub test1()

Range("D1:J2") = WorksheetFunction.Transpose(Range("A1:B7"))

End Sub