Sortere efter emailadresser

HVis du gemmer email adresserne i 2 dele.
f.eks.
new@newts.dk så der står "new" i den første kollonne og newts.dk i den anden kollonne,
kan du altid flette dem sammen i en tredie når du skal bruge dem, og så er det nemt at
sortere med "-data-filter-autofilter" i excel.
Venlig hilsen Niels erik Winther

Skriv en makro, der udstrækker det der er anført efter @ og skriv i en ledig kolonne og sorter efter denne. Giv signal, hvis denne makro ønskes.

Newts: Hvordan deler man den op før og efter @?

Den er så her:
Herefter sorteres derefter kolonne C (overskrifter forventes ikke - ellers skal du ændre start i række til 2


Dim antalRæk
Sub eMailSplit()
    With ActiveWorkbook.Sheets(1)
        antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    End With
   
    For række = 1 To antalRæk    'start i række
        Email = Cells(række, 2)
        p = InStr(Email, "@")
        If p > 0 Then
            part = Mid(Email, p + 1)
            Cells(række, 3) = part
        End If
    Next række
End Sub

Kan man ikke lave det uden en makro. Altså bare fortælle Excel med en simpel kommando at den i en række for sig skal samle de oplysninger der kommer efter @?

Hvis der ikke jævnligt kommer nye til, kan du gøre følgende:

Jeg forudsætter du har navne i kolonne A og e-mail adresser i kolonne B

Kopier kolonne B til kolonne C så du har 2 kolonner med e-mail adresser.
Marker kolonne C -> Data -> Tekst til kolonner -> Prik i afgrænset -> Næste -> Flueben i andet -> I boksen skriver du @ -> Næste -> Udfør.

Nu har du en kolonne med alt efter @ til at sortere efter.
Det er selvfølgeligt lidt besværligt, hvis der ofte kommer nye navne/adresser til.

Den er fin vejmand
Sender du et svar

Okay, ville lige være sikker på det kunne bruges.  :-)