Sorting multiple rows/columns

**lesley_51** · 07-04-2009, 05:37 PM

Hi
I have a very large spreadsheet with a number of columns of random figures. To sort these lowest to highest I have been transposing the sections of rows requiring sorting to columns and sorting each column separately. Then transposing them back again. Is there an easier way of doing this please

**shg** · 07-04-2009, 05:48 PM

There is an option to sort left to right -- does that do what you want?

**lesley_51** · 07-04-2009, 08:34 PM

thanks shg, i wish. no not that easy. i have about 3000 rows of about 15 columns. columns 3 to 9 have data i need to sort lowest to highest and doing them individually is taking forever. can't find a way to do multiple sorts

**shg** · 07-04-2009, 08:40 PM

Post an example and explain what you need?

**lesley_51** · 07-05-2009, 04:25 AM

here is a very basic idea of what im working on. i need to sort lowest to highest column c(44) to column i (38). i have nearly 4 thous rows to sort

any help would be very welcome.

PKL 1/05/2009 44 43 34 4 18 10 38
LTI 2/05/2009 34 43 7 4 39 13 9
FTR 2/05/2009 22 35 33 5 27 34 26
YLM 2/05/2009 30 38 37 29 31 24 34
PKL 4/05/2009 45 6 4 26 16 42 37
TPL 4/05/2009 28 25 21 6 19 32 22
DAI 6/05/2009 45 32 34 31 21 42 10
PKL 7/05/2009 26 42 1 12 34 15 21

**martindwilson** · 07-05-2009, 06:26 AM

try this macro ammended from one i got here
http://forums.techguy.org/business-a...thin-rows.html (have a look and see the nice friendly thread, NOT lol)

Code:

Sub Test()
Dim RgToSort As Range
Dim RgRow As Range
Application.ScreenUpdating = False

Set RgToSort = Range(Range("C1:I1"), Range("C1:I1").End(xlDown))

For Each RgRow In RgToSort.Rows
    RgRow.Sort Key1:=Range(RgRow.Item(1).Address), Order1:=xlAscending, Orientation:=xlLeftToRight, OrderCustom:=1
Next
Application.ScreenUpdating = True
End Sub