复制行，转置和粘贴

我需要一个简单的扭曲复制和粘贴列/行的常见VBA代码我想要做的是复制表2中的整个行，转置，然后将其粘贴到列A，Sheet1。 sheet1中的第一行有标题，所以我必须把它们粘贴到扩展到整个列的A2中

Sub transpose2() Sheets(2).Range("A1", Cells(Columns.Count, "A").End(xlRight)).Copy Sheets(1).Range("A2").PasteSpecial transpose:=True Range("A1").ClearOutline End Sub 

这似乎并不奏效。 谁能帮我这个？ 谢谢！

Answer 1

 Sub transpose2() With Sheets(2) .Range(.Range("A1"), .Cells(1, .Columns.Count).End(xlToLeft)).Copy End With Sheets(1).Range("A2").PasteSpecial transpose:=True Range("A1").ClearOutline 'which sheet? End Sub