2012-01-13 56 views
9

Tôi đang cố gắng để một cái gì đó rất đơn giản, nhưng tôi dường như bị mắc kẹt. Tôi đang làm theo trình đơn trợ giúp cho PasteSpecial nhưng tôi dường như không thể làm cho mã của mình hoạt động mà không có lỗi.Excel VBA - Range.Copy transpose paste

Tôi muốn chụp Worksheets("Sheet1").Range("A1","A5") và dán chuyển sang Worksheets("Sheet2").Range("A1","E1").

Cách đơn giản nhất để thực hiện việc này là gì?

+1

Tôi chỉ muốn khuyên bạn nên [sử dụng phương pháp Bảng tính Transpose thay vì lạm dụng clipboard] (http://stackoverflow.com/a/13176360/429091). – binki

Trả lời

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

Cảm ơn, tôi đã không đặt lệnh pastspecial trên một dòng mới. – user1130306

+0

Tôi phải dán transpose vào một bộ ô khác. Vì vậy, nếu được sao chép từ A1: B5, phải qua A6 –