Formating a single column of info into 3 columns

[Mike Clarke]

I need to take a single column of names in excel
and have the first line go to column B, the second line to column C the third line to Column D and than start all over agian. Thus I end up with 3 new columns.
Thx

EggHeadCafe - Software Developer Portal of Choice
Fire and Forget Fun: RPC Pings, GET, POST and more.
http://www.eggheadcafe.com/tutorial...4fe-9652bcb15219/fire-and-forget-fun-rpc.aspx

 

[Don Guillett]

Post your layout. Is it ALWAYS 3 lines and are there spaces between the
blocks.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
[email protected]
in message news:[email protected]...

 

[Gord Dibben]

Sub ColtoRows()
Dim rng As Range
Dim I As Long
Dim J As Long
Set rng = Cells(Rows.Count, 1).End(xlUp)
J = 1
On Error Resume Next
nocols = InputBox("Enter Final Number of Columns Desired")
For I = 1 To rng.Row Step nocols
Cells(J, "A").Resize(1, nocols).Value = _
Application.Transpose(Cells(I, "A") _
.Resize(nocols, 1))
J = J + 1
Next
Range(Cells(J, "A"), Cells(rng.Row, "A")).ClearContents
Exit Sub
End Sub


Gord Dibben MS Excel MVP