With a macro.

Public Sub SplitToCols()
Dim NUMCOLS As Integer
Dim i As Integer
Dim colsize As Long
On Error GoTo fileerror

NUMCOLS = InputBox("Choose Final Number of Columns")
colsize = Int((ActiveSheet.UsedRange.Rows.Count + _
(NUMCOLS - 1)) / NUMCOLS)
For i = 2 To NUMCOLS
Cells((i - 1) * colsize + 1, 1).Resize(colsize, 1).Copy Cells(1, i)
Next i
Range(Cells(colsize + 1, 1), Cells(Rows.Count, 1)).Clear
fileerror:
End Sub


Gord Dibben MS Excel MVP

On Thu, 21 Sep 2006 06:15:02 -0700, Emily
wrote:

Is it possible to take a single column (12,000+ rows)of data and break it
into several columns to be able to print on 8.5x11 paper?

Example:
This: Converted to this across the page:
123 123 111
456 456 222
789 789 333
111
222
333


I know about transpose but it gives the data across the page instead of the
direction noted above.

Gord Dibben MS Excel MVP