Range(
"B1"
).
Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False
, Transpose:=
True
End
Sub
在宏代码中，选择要转置的数据范围。在本例中，选择 A1 到 A10 单元格范围。
复制所选数据，使用
Selection.Copy
命令。
将粘贴目标移动到所选范围的右边。在本例中，将粘贴目标设置为 B1 单元格，使用
Range("B1").Select
命令。
粘贴数据并进行转置。使用
Selection.PasteSpecial
命令，并将
Transpose
参数设置为
True
，即可完成转置操作。
保存宏代码并返回到 Excel 工作簿。
在 Excel 工作簿中，使用快捷键 Alt + F8 打开“宏”窗口。
选择刚才创建的宏并点击“运行”按钮。
完成后，您的数据应该已经复制、粘贴和转置到 B1 到 K1 单元格范围中。
希望这个例子可以帮助您了解如何使用宏在 Excel 中自动化复制、粘贴和转置操作。如果您有任何问题，请随时问我。
