使用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

而且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 

也许移调：=真正的而不是虚假的喜欢你了？