Hoe haalt u de domeinnaam uit een URL in Excel?
Als u regelmatig met talloze URL’s in uw werkmap werkt, wilt u misschien alleen de domeinnaam van elke webpagina extraheren. Hoe haalt u in Excel snel de domeinnamen uit URL’s?
Domeinnaam uit URL extraheren met een formule
Domeinnaam uit URL extraheren met een gebruikersgedefinieerde functie
Domeinnaam uit URL extraheren met een formule
De volgende uitgebreide formule helpt u de gewenste domeinnaam uit een webpagina te halen. Volg deze stappen:
1. Voer in een lege cel naast de cel met uw webpagina het volgende formule in. In dit voorbeeld typ ik de formule in cel B2:=IF(ISNUMBER(FIND("www.",A2)),MID(A2,FIND("www.",A2)+4,IF(ISNUMBER(FIND(„/",A2,9)),FIND(„/",A2,9),LEN(A2)+1)-FIND("www.",A2)-4),MID(A2,FIND(„//",A2)+2,IF(ISNUMBER(FIND(„/",A2,9)),FIND(„/",A2,9),LEN(A2)+1)-FIND(„//",A2)-2)).
Opmerking: In de bovenstaande formule verwijst A2 naar de cel met de webpagina waaruit u de domeinnaam wilt halen; u kunt dit naar wens aanpassen.
2. Druk daarna op de Enter-toets, selecteer cel B2 en sleep de vulgreep omlaag over het bereik waarop u deze formule wilt toepassen. Alle domeinnamen zijn nu geëxtraheerd uit elke URL. Zie de afbeelding hieronder:
Domeinnaam uit URL extraheren met een gebruikersgedefinieerde functie
Als u geïnteresseerd bent in VBA-code, kunt u een gebruikersgedefinieerde 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 de code vervolgens op, keer terug naar het werkblad en voer de formule =Extractdomain(A2) in een lege cel naast de webpagina-adres in. Zie de afbeelding hieronder:
4. Druk daarna op de Enter-toets, selecteer cel B2 en sleep de vulgreep omlaag naar de cellen waarin u deze formule wilt toepassen. Zo worden alle domeinnamen automatisch uit elke webpagina-cel geëxtraheerd.
Gerelateerde artikelen:
Hoe extraheert u domeinen uit meerdere e-mailadressen in Excel?
Hoe haalt u snel E-mailadressen extraheren uit een tekstreeks?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins