Sorting strings in reverse order (Any)

Topic

New Reply

I have a column of string values (letters and digits), which I need to sort in reverse order:

aaa
baa
…
aba
bba
…
aab
bab
…
abb
bbb
…

I cannot find a VBA script (macro) to do so. Please help.

Reply | Quote

Replies

Try this. You should select the cells you want to sort before running the macro.

Sub SortReverse()
Dim rng As Range
Dim cel As Range
Set rng = Selection
rng.Offset(0, 1).EntireColumn.Insert
For Each cel In rng
cel.Offset(0, 1) = StrReverse(cel)
Next cel
rng.Resize(ColumnSize:=2).Sort Key1:=rng.Cells(1, 2)
rng.Offset(0, 1).EntireColumn.Delete
End Sub

Reply | Quote

Or a slightly different version

Sub SortReverse()
Dim rng As Range
Dim cel As Range
Set rng = Selection
For Each cel In rng
cel = StrReverse(cel)
Next cel
rng.Sort Key1:=rng.Cells(1, 1)
For Each cel In rng
cel = StrReverse(cel)
Next cel
End Sub

Reply | Quote

Thank you very much, indeed.

Reply | Quote