如何用VBA实现EXCEL中的转置功能

例如 一 12
一 2
一 3
二 2
二 5
二 8

转换后： 一 12 2 3
二 2 5 8

假设数据是从单元格A1开始输入,如下:
A B
1 一 12
2 一 2
3 一 3
4 二 2
5 二 5
6 二 8

以下是实现这个功能的VBA函数:
Sub Zhuangzhi()
Dim i As Integer
For i = 1 To 500
If Range("A" & i) = "一" Then
Cells(1, 3) = Range("A" & i)
Cells(1, 3 + i) = Range("B" & i)
ElseIf Range("A" & i) = "二" Then
Cells(2, 3) = Range("A" & i)
Cells(2, i) = Range("B" & i)
Else
Exit For
End If
Next
End Sub

简单一点，自己根据表格实际录制一遍即可。 举例语句： range("d2:e18").copy range("k7").pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks:=false, transpose:=true 即对d2:e18区域进行选择性数值+转置粘贴