A simple solution would be ......With your data in Column A starting from
Row1 try the below formula in cell B1. Then copy the formula to C1 and D1.
Then copy down as required....

=INDEX($A:$A,(ROW()-1)*3+COLUMN(A1))

'If you are really looking for a macro post back...

If this post helps click Yes
---------------
Jacob Skaria


"Lister" wrote:

Yes i have been manually cleaning it up as i go, I have a few entries which
had 4 rows so i have changed those already. I am looking for a macro, but am
unable to produce one myself and was wondering if someone may be so kind as
to furnish me with one that i may copy into the worksheet.

"Jacob Skaria" wrote:

Macro or even a formula will do..Before that a quick query?

If it is 3 bits it should be 1200 rows and not 1201. Do you have blank
spaces inbetween?



If this post helps click Yes
---------------
Jacob Skaria


"Lister" wrote:

I have scanned some customer lists into excel via a lengthy process and it
has given me one column of data. the data is of 3 rows Name,address,phone
number. I dont have a header but i can add if i need. I would like to
transpose the data (the second and third lines) to column b and c
respectivley, But for the enitre list which is 1201 rows long...i have tried
a few macros i have found and tried to modify them to just 3 rows but i dont
understand Visual basic very well. I appreciate and give many thanks for all
the help you my give me in advance. Glenn