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.
Copy>Paste 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
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
