Hoe een domeinnaam uit een URL in Excel extraheren?

Als je vaak met veel URL's in je werkboek werkt, wil je soms alleen de domeinnaam uit elke webpagina halen. In Excel, hoe kun je snel de domeinnamen uit de URL's verkrijgen?

Domeinnaam uit URL extraheren met formule

Domeinnaam uit URL extraheren met een door de gebruiker gedefinieerde functie

Domeinnaam uit URL extraheren met formule

De volgende lange formule kan helpen om de domeinnaam van de webpagina te retourneren zoals je nodig hebt. Doe het volgende:

1. Voer in een lege cel naast je webpagina-cel de volgende formule in; in dit voorbeeld typ ik de formule in cel B2: =ALS(ISGETAL(VIND.SPEC("www.",A2)),MID(A2,VIND.SPEC("www.",A2)+4,ALS(ISGETAL(VIND.SPEC("/",A2,9)),VIND.SPEC("/",A2,9),LENGTE(A2)+1)-VIND.SPEC("www.",A2)-4),MID(A2,VIND.SPEC("//",A2)+2,ALS(ISGETAL(VIND.SPEC("/",A2,9)),VIND.SPEC("/",A2,9),LENGTE(A2)+1)-VIND.SPEC("//",A2)-2)).

Opmerking: in de bovenstaande formule geeft A2 de cel aan die de webpagina bevat waaruit je de domeinnaam wilt halen; je kunt dit naar behoefte wijzigen.

2. Druk vervolgens op Enter, selecteer cel B2, en sleep de vulgreep omlaag over het bereik waarop je deze formule wilt toepassen, en alle domeinnamen zijn geëxtraheerd uit elke URL. Zie screenshot:

Domeinnaam uit URL extraheren met een door de gebruiker gedefinieerde functie

Als je geïnteresseerd bent in VBA-code, kun je een door de gebruiker gedefinieerde functie maken om de domeinnaam uit URL's te extraheren.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: domeinnaam uit URL extraheren

Function ExtractDomain(ByVal URL As String) As String
'Update 20140904
    If InStr(URL, "//") Then
        URL = Mid(URL, InStr(URL, "//") + 2)
    End If
    If Left(URL, 4) Like "[Ww][Ww][Ww0-9]." Then
        URL = Mid(URL, 5)
    End If
    ExtractDomain = Split(URL, "/")(0)
End Function

3. Sla daarna de code op en sluit deze, ga terug naar het werkblad, en voer deze formule =Extractdomain(A2) in een lege cel naast de webpagina in, zie screenshot:

4. Druk vervolgens op Enter, selecteer cel B2, en sleep de vulgreep omlaag naar de cellen waarin je deze formule wilt hebben, en alle domeinnamen worden geëxtraheerd uit elke webpagina-cel.

Gerelateerde artikelen:

Hoe domeinen uit meerdere e-mailadressen in Excel extraheren?

Hoe snel een e-mailadres uit een tekststring extraheren?