Question

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

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

请帮忙吗？

Answer 1

只需删除范围（来自第二个函数调用

）

应该是：

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

Answer 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

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

2 个答案: