Преобразование строк в столбцы с использованием 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 

Maybe транспонированной: = True вместо ложного, как у вас было?