L
LC
Hi,
Is there a way to sort a list by the last 2 letters of a
word in VBA?
Thank you,
LC
Is there a way to sort a list by the last 2 letters of a
word in VBA?
Thank you,
LC
J
J.E. McGimpsey
One way:
In a blank column (say D), enter:
D2: =RIGHT(A2,2)
and copy down. Then sort on that column, which can be hidden if you
wish.
In a blank column (say D), enter:
D2: =RIGHT(A2,2)
and copy down. Then sort on that column, which can be hidden if you
wish.
J
J.E. McGimpsey
Whoops- didn't see the VBA (which I should have, given the group,
sorry!):
Same answer, but using VBA to populate the column:
Public Sub SortLastTwo()
Dim rng As Range
Set rng = Range("D2
" & _
Range("A" & Rows.Count).End(xlUp).Row)
With rng
.Value = "=RIGHT(A2,2)"
.Item(1).Sort Key1:=.Item(1), Header:=True
.Clear
End With
End Sub
sorry!):
Same answer, but using VBA to populate the column:
Public Sub SortLastTwo()
Dim rng As Range
Set rng = Range("D2
" & _Range("A" & Rows.Count).End(xlUp).Row)
With rng
.Value = "=RIGHT(A2,2)"
.Item(1).Sort Key1:=.Item(1), Header:=True
.Clear
End With
End Sub