Print 1 Column in multiple Columns

[Ripper]

I have a list of 400 names in Column A. I don't want to waste 8 pages printing out the data.

Is there a way to have the data from that column print out in multiple columns like I would if the list was in Word? I copied it to Word and selected 3 columns and would only use 3 pages. I would keep it this way, but I am going to add and delete names from the list so it is something I want to keep in place.

Thanks As Always,
RIP

 

[Andy B]

Hi

Have a look here:
http://www.mvps.org/dmcritchie/excel/snakecol.htm#snakecols

--
Andy.

I have a list of 400 names in Column A. I don't want to waste 8 pages printing out the data.

Is there a way to have the data from that column print out in multiple

columns like I would if the list was in Word? I copied it to Word and
selected 3 columns and would only use 3 pages. I would keep it this way,
but I am going to add and delete names from the list so it is something I
want to keep in place.

 

[Frank Kabel]

Hi
try
http://www.mvps.org/dmcritchie/excel/snakecol.htm

--
Regards
Frank Kabel
Frankfurt, Germany

I have a list of 400 names in Column A. I don't want to waste 8 pages printing out the data.

Is there a way to have the data from that column print out in

multiple columns like I would if the list was in Word? I copied it to
Word and selected 3 columns and would only use 3 pages. I would keep
it this way, but I am going to add and delete names from the list so it
is something I want to keep in place.

 

[Gord Dibben]

Rip

Manually............

If your data is an column A starting at Cell A1, then the following
formula, entered in Cell B1 and filled across 8 columns and down 50
rows will produce your 8 columns of 50 rows. Any more than 400 original
rows, you do the math and make alterations.

=INDIRECT("A"&(ROW()+(COLUMN()-2)*50))

The 2 refers to the column of Cell B1; if you're putting the formula in
a different column, use the appropriate number for that column.

Copy>Paste Special(in place) the results then delete the original column A.

VBA Macro to snake the columns top to bottom...1 to 50 down then 51 to 100
down

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 Excel MVP

 

[Alan Beban]

I have a list of 400 names in Column A. I don't want to waste 8 pages printing out the data.

Is there a way to have the data from that column print out in multiple columns like I would if the list was in Word? I copied it to Word and selected 3 columns and would only use 3 pages. I would keep it this way, but I am going to add and delete names from the list so it is something I want to keep in place.

Thanks As Always,
RIP

If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook, the
following will return a fifty row, 8 column array/range of values, with
the first 50 in the first column, the second fifty in the second column,
etc. Without the fourth argument it will return the first 8 to the
first row, the second eight to the second row, etc.

=ArrayReshape(A1:A400,50,8,"c")

Alan Beban

 

[Jim Cone]

Rip,

Or you can install my Excel add-in "Side by Side" and have the column arrangement done for you...

Columns of data are arranged into two, three or four side by
side groups (your choice). Data sequence is maintained and the area
above the data is not changed. A new worksheet is created
with the new column arrangement. Your original worksheet
is not affected. You print from the new worksheet.
It's easy to use and very fast.
Comes with one page Word.doc install/use instructions.
Available - free - upon direct request. Remove xxx from email address.

Regards,
Jim Cone
San Francisco, CA
[email protected]

I have a list of 400 names in Column A. I don't want to waste 8 pages printing out the data.
Is there a way to have the data from that column print out in multiple columns like I would if the list was in Word? I copied it

to Word and selected 3 columns and would only use 3 pages. I would keep it this way, but I am going to add and delete names from
the list so it is something I want to keep in place.

 

[Dave Peterson]

Depending on what you're doing with that data, why not just keep it in word?
You can insert cells in that table and things will adjust nicely. You can sort.

Arithmetic is more limited <vbg>.