Sorting multiple rows/columns

lesley_51 · #1 07-04-2009, 04: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 · #2 07-04-2009, 04:48 PM

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

lesley_51 · #3 07-04-2009, 07: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 · #4 07-04-2009, 07:40 PM

Post an example and explain what you need?

lesley_51 · #5 07-05-2009, 03: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 · #6 07-05-2009, 05: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

lesley_51 · #7 07-05-2009, 06:46 PM

Thank you martin will try this although never dabbled in macros before. Will be fun

Welcome to the Excel Forum

Forum Statistics