EXCELのマクロでクリップボードを使わずに行列入れ替えて貼り付けのしかた

質問

ＥＸＣＥＬのマクロでクリップボードを使用せずに行列の入れ替えをして貼り付け
の仕方がわかりません。
よろしくお願いいたします。

回答No.4

hige_082

参考まで

Sub test()
Dim a
a = Application.Transpose(Range("a1:c7"))
Range("a10").Resize(UBound(a, 1), UBound(a, 2)) = a
End Sub

回答No.3

mitarashi

copy,pasteしないでもtransposeは使えますが、これではお望みの動作にはなりませんか？と書いているうちに、#2さんの回答が出ましたが、折角書いたのでアップしておきます。ご参考まで。
Sub test()
Dim targetRange As Range
Dim buf As Variant

Set targetRange = Sheets(1).Range("a1").CurrentRegion
buf = Application.Transpose(targetRange)
Sheets(2).Range("a1").Resize(targetRange.Columns.Count, targetRange.Rows.Count) = buf
End Sub

回答No.2

xls88

TRANSPOSE関数を入れ込んで値にすればどうでしょうか。
元のデータが日付の場合はシリアル値になります。

With Sheets("Sheet2").Range("A1:J2")
.FormulaArray = "=TRANSPOSE('Sheet1'!A1:B10)"
.Value = .Value
End With

回答No.1

MackyNo1

たとえば、A１セルからのデータを行列入れ替えて、アクティブセル以下に表示するなら、以下のようなコードを使って、For Next 構文で行数と列数分だけ値の代入を繰り返せばよいと思います。

ActiveCell.Offset(i - 1, j - 1).Value = Range("A1").Offset(j - 1, i - 1).Value