Excel VBA - Range.Copy转置粘贴

Question

我正在尝试一些非常简单的事情,但我似乎陷入困境.我正在关注帮助菜单,PasteSpecial但我似乎无法让我的代码在没有错误的情况下工作.

我想采取Worksheets("Sheet1").Range("A1","A5")并粘贴转置Worksheets("Sheet2").Range("A1","E1").

完成此任务的最简单方法是什么？

Answer 1

Worksheets("Sheet1").Range("A1:A5").Copy
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True

Answer 2

这是一个不使用剪贴板的有效选项。

Sub transposeAndPasteRow(rowToCopy As Range, pasteTarget As Range)
    pasteTarget.Resize(rowToCopy.Columns.Count) = Application.WorksheetFunction.Transpose(rowToCopy.Value)
End Sub

像这样使用它。

Sub test()
    Call transposeAndPasteRow(Worksheets("Sheet1").Range("A1:A5"), Worksheets("Sheet2").Range("A1"))
End Sub