復制行，轉置並粘貼

Question

我需要對常見的vba代碼進行簡單的修改，即可復制並粘貼列/行，我想要做的是復制工作表2中的整個行，轉置然后將它們粘貼到工作表Sheet1的列A中。 sheet1的第一行具有標題，因此我必須將其粘貼到A2中，該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