web-dev-qa-db-ja.com

Excel VBA-Range.Copyトランスポーズペースト

私は非常に単純なことを試みていますが、私は立ち往生しているようです。 PasteSpecialのヘルプメニューをフォローしていますが、エラーなしでコードを機能させることはできません。

Worksheets("Sheet1").Range("A1","A5")を取り、Worksheets("Sheet2").Range("A1","E1")に転置を貼り付けたいです。

これを達成する最も簡単な方法は何ですか?

12
user1130306
Worksheets("Sheet1").Range("A1:A5").Copy
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True
34
GSerg