複製行，轉置和粘貼

Question

我需要一個簡單的扭曲複製和粘貼列/行的常見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