Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sorting more than 3 columns
Sorry for what undoubtedly a dumb question. I have a large spreadsheet that
I'm trying to create a macro that will sort the data (12,000+ rows) using a sort with 4 keys. The following code gets me 3 columns - but will not support the addition of a "Key4". When I do it manually it's a two stage process - first, sort on the entire spreadsheet on the first 3 columns - next stage is to then manually page through the spreadsheet and performing a "mini-sort" on columns 2, 3 and 4 whenever I see the value of column 1 has changed. I'm thinking I'll need to sort on the column 1 - then loop through the spreadsheet identifying to identify the first row in which a new value appears in column one and continue on to identify the last row in which that same value appears. Then execute a sort on a range defined by the first / last row identified. Unfortunately, I'm brand new to this VB stuff and simply don't know how to do this. Can anybody point me in the right direction? SpaceNorman ******** Sub NewSort() Range("SortRange").Select Selection.Sort Key1:=Range("W5"), Order1:=xlAscending, Key2:=Range("X5") _ , Order2:=xlAscending, Key3:=Range("Y5"), Order3:=xlAscending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal, DataOption2:=xlSortTextAsNumbers, DataOption3 _ :=xlSortNormal Range("A1").Select End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
freezing columns labels while sorting columns | New Users to Excel | |||
sorting columns | New Users to Excel | |||
Sorting by Two Columns | Excel Worksheet Functions | |||
help with sorting text in columns to match other columns | Excel Discussion (Misc queries) | |||
Regarding Sorting Columns | Excel Discussion (Misc queries) |