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

スポンサーリンク

ポイントはワークシート関数の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
スポンサーリンク
スポンサーリンク

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です