2012-01-13 12 views
9

Próbuję czegoś bardzo prostego, ale wydaje mi się, że utknąłem. Używam menu pomocy dla PasteSpecial, ale nie mogę sprawić, że mój kod zadziała bez błędu.Excel VBA - Range.Copy transpose paste

Chcę wziąć Worksheets("Sheet1").Range("A1","A5") i wkleić transpozycję do Worksheets("Sheet2").Range("A1","E1").

Jaki jest najprostszy sposób na osiągnięcie tego?

+1

Chciałbym tylko zalecić [używanie metody Transpose Worksheet zamiast nadużywania schowka] (http://stackoverflow.com/a/13176360/429091). – binki

Odpowiedz

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

Dzięki, nie dodawałem komendy pastspecial do nowej linii. – user1130306

+0

Musiałem wkleić transpozycję do innego zestawu komórek. Tak więc, jeśli skopiowano z A1: B5, musiałem przejść do A6 –