Move data from rows to columns macro

[jhaynes]

Hello,
I have approximately 350000 rows of the following data in one column:

>data1
result1
>data2
result2
>data3
result3

The data does actually start with ">".

I would like this to look like in two columns:
>data1 result1
>data2 result2
>data3 result3
etc

350000 rows is apparently a "small" dataset LOL

Your help is appreciated,
Justin

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR Step 2
    Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = Application.Transpose(Range("A" & i).Resize(2))
Next i
Columns("A").Delete
Application.ScreenUpdating = True
End Sub

 

[jhaynes]

Thank you for the VERY timely reply! It worked exactly as I wanted.

Cheers,
Justin