Macro to transpose column to row please.

[Steved]

Hello from Steved

I have
1
2
3
to be
1 2 3 please

I have several hundred to do, I do not mind placing the cursor on the first
line of the data and the macro highliting the next 2 rows down then
transposing it to the right.

As an example in column A1 1, A2 2, A3, 3
The macro when executed after I put the cursor in A1 it will then highlite
the 3 cells then transpose rows A2, A3 to B1, B2.

Thankyou.

 

[Steved]

Someting similar to below please.

Sub ToRow()
Range("Down 2").Select
Selection.Cut
Range("Right").Select
ActiveSheet.Paste
End Sub

 

[Rowan]

This should do what you have asked but if you have hundreds to do you
probably want to put it into some kind of loop:

With ActiveCell
.Resize(3, 1).Copy
.Offset(0, 1).PasteSpecial Transpose:=True
End With

Regards
Rowan

 

[Steved]

Hello Rowan from Steved

Thankyou.

This should do what you have asked but if you have hundreds to do you
probably want to put it into some kind of loop:

With ActiveCell
.Resize(3, 1).Copy
.Offset(0, 1).PasteSpecial Transpose:=True
End With

Regards
Rowan

 

[Rowan]

Or like this to only transposte the 2 and 3:

With ActiveCell
.Offset(1, 0).Resize(2, 1).Copy
.Offset(0, 1).PasteSpecial Transpose:=True
End With

 

[Steved]

Thanks Rowan Yes 2, 3

Cheers.

Or like this to only transposte the 2 and 3:

With ActiveCell
.Offset(1, 0).Resize(2, 1).Copy
.Offset(0, 1).PasteSpecial Transpose:=True
End With