Question

能帮一下用VBA 语言 实现EXCEL转置黏贴的问题么？

Answer 1

学习VBA首先要会使用记录宏，利用记录的宏代码来编程。

举例说明。

第一步：点击开发工具-录制宏。如图：

第二步：选择A1：A9，点击复制图标。

第三步：选择c1，按鼠标右键，选择-选择性粘贴-转置。如图：

第四步：按确定后，点击停止录制。

第五步：查看宏代码。代码如下：

Sub Macro1()

'

' Macro1 Macro

'

'

    Range("A1:A9").Select

    Selection.Copy

    Range("C1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=True

End Sub

以上代码就是系统自动录制的，通过这个代码就知道了转置粘贴的代码形式了。

Answer 2

录制宏就可以看到你需要的代码，比如将A1:A11的内容复制，转置粘贴到B2单元格，代码如下：
根据自己的需要，再调整一下，就行。
Sub Macro1()
'
' Macro1 Macro
'
Range("A1:A11").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

PS：对录制宏代码的优化：
可将Range("******").Select
Selection.***ABC*** 两句，可以化简为一句：
Range("******").***ABC***

Answer 3

Range("b1:f1") = Application.Transpose(Range("a1:a5"))

Answer 4

你自己操作的时候录制个宏 下次要用 就不用频繁操作了