使用VBA将行转换为列

我正在尝试将一行数据转换为列，我在下面使用的代码复制我的select，但几次后通过它。

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

还有趣读

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 

也许转置：=真，而不是像你一样错误？