VBAで縦横入れ替えてコピペする方法

      2016/11/22

ポイントはワークシート関数のTransposeを使います。

' Copy and paste with Transpose
Dim ws As Worksheet
Dim a, b As Variant
Set ws = Worksheet("Sheet1")

'aにA1からA5範囲を代入
a = ws.Range(ws.Cells(1, 1), ws.Cells(1, 5)) 
'A3からA7に縦横入れ替えて貼り付け
b = WorksheetFunction.Transpose(a)
ws.Cells(3, 1).Resize(5, 1).Value = b

おすすめ記事

1
2016年買って良かったモノを紹介します!

2016年もあとわずか。毎年恒例の買って良かったモノシリーズ、2016年版を紹介 ...

2
英語ができなかった僕がバイリンガルになるまでの5つの英語上達プロセス

英語ができなかった僕がバイリンガルと呼ばれるようになるまでに経験した過程を5つに分けて紹介します。

 - ソフトウェア