2012-01-13 6 views
9

私は何か非常に簡単にしようとしていますが、私は固執しているようです。私はPasteSpecialのヘルプメニューに従っていますが、私のコードがエラーなく動作するようには見えません。Excel VBA - Range.Copy転置ペースト

Worksheets("Sheet1").Range("A1","A5")を貼り付けて転記をWorksheets("Sheet2").Range("A1","E1")に貼り付けたいとします。

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

+1

[クリップボードを乱用するのではなく、トランスポーズワークシートの方法を使用する]ことをお勧めします(http://stackoverflow.com/a/13176360/429091)。 – binki

答えて

30
Worksheets("Sheet1").Range("A1:A5").Copy 
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True 
+0

ありがとう、私はpastspecialコマンドを新しい行に入れていませんでした。 – user1130306

+0

私は移調を別のセルに貼り付けなければならなかった。したがって、A1:B5からコピーした場合は、A6まで –

関連する問題