ExcelVBA-Range.Copy转置粘贴-ExcelVBA-Range.Copytransposepaste

I'm trying to something very simple, but I seem to be stuck. I am following the help menu for PasteSpecial but I cannot seem to get my code to work without an error.

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

I want to take Worksheets("Sheet1").Range("A1","A5") and paste transpose to Worksheets("Sheet2").Range("A1","E1").

我想获取工作表（“Sheet1”）。范围（“A1”，“A5”）和粘贴转置到工作表（“Sheet2”）。范围（“A1”，“E1”）。

What is the most simple way to accomplish this?

实现这一目标的最简单方法是什么？

1 个解决方案

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