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

另外INTERESTING READ

Answer 2

这对我有用：

Sub Movefromrowtocolumn()
Range("A1:E1").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, transpose:=True
End Sub

也许transpose：= True而不是像你一样的假？

使用VBA将行转换为列

2 个答案: