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

复制行，转置和粘贴

1 个答案: