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.

Emily, have a look here for a way to do it

http://www.mvps.org/dmcritchie/excel/snakecol.htm
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"Emily" wrote in message
...
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.

I like to just copy and paste into MSWord and use MSWord's format|column to make
it look pretty.

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.

--

Dave Peterson

If the functions in the freely downloadable file at
httop://home.pacbell.net/beban are available to your workbook

=ArrayReshape(a1:a6,3,2,1) array entered into the target range

Alan Beban

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.

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