将行的内容复制到另一行，但在 excel VBA 中转置答案

【问题标题】：Copy row´s content to another rows but transpose in excel VBA将行的内容复制到另一行，但在 excel VBA 中转置
【发布时间】：2016-11-04 02:15:32
【问题描述】：

我正在尝试将行值复制到其他行，但我需要将它们转置。我有以下代码，但它不起作用。

Sub Prueba()
    Worksheets("Punto 5").Range("J9:M9").Copy
    Worksheets("Punto 5").Range(Cells(ActiveCell.Row + 1, ActiveCell.Column)).PasteSpecial Transpose:=True
End Sub

我检查了这个答案，但它根本没有帮助我。 Excel VBA - Range.Copy transpose paste

有什么帮助吗？

【问题讨论】：

标签： vba excel

【解决方案1】：

只需从第二个函数调用中删除 Range(

应该是：

Sub Prueba()
    Worksheets("Punto 5").Range("J9:M9").Copy
    ActiveCell.offset(1, 0).PasteSpecial Transpose:=True
End Sub

【讨论】：

虽然这是一个正确的答案，但我相信 OP 从来没有打算让Worksheets("Punto 5") 在执行时不处于活动状态，他们很可能想要ActiveCell.Offset(1,0).PasteSpecial。
确实好多了！

【解决方案2】：

我没有通过任何 PC 对其进行测试，但这里有一个没有复制/粘贴的替代方案；

Sub Prueba()
    With Worksheets("Punto 5").Range("J9:M9")
        ActiveCell.Offset(1).Resize(.Rows.Count).Value = Application.Transpose(.Value)
    End With
End Sub

【讨论】：