Single column into multiple columns
 

I have one column of 3500+ rows of numbers. How can I make this information
spread across a number of columns so I don't have to print 96 pages of one
column of information?

Single column into multiple columns
 

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

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Heidi" wrote in message ...
|I have one column of 3500+ rows of numbers. How can I make this information
| spread across a number of columns so I don't have to print 96 pages of one
| column of information?

Single column into multiple columns
 

Thanks!! Worked great! Went from 96 pages of info to 15!!

"Niek Otten" wrote:

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

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Heidi" wrote in message ...
|I have one column of 3500+ rows of numbers. How can I make this information
| spread across a number of columns so I don't have to print 96 pages of one
| column of information?

Single column into multiple columns
 

Heidi

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

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

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.

CopyPaste Special(in place) the results then delete the original column A.

VBA Macro to snake the columns top to bottom..1 to 350 down then 351 to 700 etc.

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




On Wed, 1 Nov 2006 12:41:03 -0800, Heidi
wrote:

I have one column of 3500+ rows of numbers. How can I make this information
spread across a number of columns so I don't have to print 96 pages of one
column of information?

Gord Dibben MS Excel MVP