使用 VBA 将行转换为列

Question

我正在尝试将一行数据转换为列，我在下面使用的代码复制了我的选择，然后将其多次过去。

Sub Movefromrowtocolumn()
   Range("B3:P3").Select
    Selection.Copy
    Range("Y2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
     :=False, Transpose:=False
End Sub

Answer 1

这是你正在尝试的吗？

Sub Movefromrowtocolumn()
    Range("B3:P3").Copy
    Range("Y2").PasteSpecial Paste:=xlPasteValues, _
                             Operation:=xlNone, _
                             SkipBlanks:=False, _
                             Transpose:=True
End Sub

你需要使用 Transpose:=True

也很有趣