Sorting 100 rows of 6 records horizontally

V

Victor

I would like to sort the 6 records in each separate row (100 total) ascending.
Is there a built-in function to do that.

I tried to use the macro recorder to sort the rows manually but 100 is too tedious, I would appreciate any hints for a killer macro..

TIA
 
B

Bob Kilmer

perhaps you could transpose the 6cols x 100 rows to 100 cols x 6 rows, use
the columns.sort method (or some such) to sort each column alone, then
retranspose to 6 x 100.

--
Bob Kilmer

Victor said:
I would like to sort the 6 records in each separate row (100 total) ascending.
Is there a built-in function to do that.

I tried to use the macro recorder to sort the rows manually but 100 is too
Click to expand...
tedious, I would appreciate any hints for a killer macro..
 
B

Bob Kilmer

Go programmatically thru the columns, sorting each column itself, not the
entire range of columns.
 
B

Bob Kilmer

Option Explicit

Sub SortColumns()
Dim rng As Range
Dim col As Range

Set rng = Workbooks("Book2.xls").Worksheets("Sheet1").Columns
For Each col In rng
rng.Sort col
Next
End Sub

Change rng to whatever range you like. Perhaps, for your case,

Set rng = Workbooks("Book2.xls").Worksheets("Sheet1").Columns("A:CV")
'100 columns

There are also clever ways to select the range dynamically, or you can use
the active selection (called Selection).
 
Top