Wrapping A Long Row

  • Thread starter Thread starter Slowhand
  • Start date Start date
S

Slowhand

I'm a newcommer to Excel and have a sheet with a long row of data (ove
1,000 entries). It would be nice if there was a way to wrap the lis
into columns on a sheet so that the actual report isn't so many page
with emty space around the data. Is there a way to do this?
:confused
 
Slowhand

How is the data entered?

There are 256 columns maximum in Excel, so I assume your "over 1000 entries"
are not in separate cells.

Please give an example of your data lay-out of what is in each row.

Description.........not sample file attachment, please.

Gord Dibben Excel MVP
 
I am probably mixing up columns and rows. The document was an impor
from Acess with 1,400 entry
 
Another option is to copy that column into MSWord and use its builtin
Format|Columns feature.
 
If your data is an column A starting at Cell A1, then the following
formula, entered in Cell B1 and filled across 7 columns and down 200
rows will produce 7 columns of 200 rows. Any more than 1400 original
rows, you do the math and make alterations.

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

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
 
Back
Top