Sorting 100 rows of 6 records horizontally

[Guest]

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

 

[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

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

 

[Victor]

I had already tried that but it only sorts the first 3
columns at the max

 

[Bob Kilmer]

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

 

[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).