Sorting email addresses

[novus]

I have a large spreasheet in which one colum os email addresses. How can I
sort on only the characters after the @ symbol so for instance all the email
addresses @hotmail.com are grouped together, all those @gmail.com are
grouped together etc?

novus

 

[JB]

I have a large spreasheet in which one colum os email addresses. How can I
sort on only the characters after the @ symbol so for instance all the email
addresses @hotmail.com are grouped together, all those @gmail.com are
grouped together etc?

novus

http://cjoint.com/?cgxFcsNik4

Sub TriEmail()
Columns("B:B").Insert Shift:=xlToRight
For Each c In Range("c2", [C65000].End(xlUp))
c.Offset(0, -1) = Mid(c, InStr(c, "@") + 1
Next c
Range("A2", [C65000].End(xlUp)).Sort , key1:=[B2]
Columns("B:B").Delete
End Sub

JB http://boisgontierj.free.fr