Sorting Email address list

[kgdsr]

hello, If you have a huge list of email addresses is there any other way to sort them, then by the first letter of the cell? My goal is to be able to sort by "@aol.com" or "@gmail.com", ETC... Is this possible?

 

[vds1]

Have an helper column using formula below, suppose you have email address in column A, then in b2 try

=RIGHT(A1,LEN(A1)-FIND("@",A1))

this formula will return the domain. Eg : gmail . com

Next, you can first sort by column B and then by column A adding levels

 

[ChrisBM]

If you have an email address in Cell G11 for example:

To return the "@gmail.com" or "@aol.com" but use = MID(G11, FIND("@", G11,1), LEN(G11) - FIND("@", G11,1)+1)

 

[VBA Geek]

List your emails down column A and run

Sub SortByMailDomain()
Application.ScreenUpdating = False
With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    .TextToColumns , xlDelimited, xlTextQualifierNone, False, False, False, False, False, True, "@"
    .Resize(, 2).Sort Range("B1"), xlAscending, , , , , , xlNo
    .Value = Evaluate(Replace("A1:A#&""@""&B1:B#", "#", Range("A" & Rows.Count).End(xlUp).Row))
    .Offset(, 1).Clear
End With
End Sub