Hur extraherar jag domännamn från URL i Excel?

Om du alltid har att göra med många webbadresser i din arbetsbok, kanske du ibland bara vill extrahera domännamnet från varje webbsida. Hur kunde du snabbt få domännamn från URL i Excel i Excel?

Extrahera domännamn från URL med formel

Extrahera domännamn från URL med användardefinierad funktion

Extrahera domännamn från URL med formel

Följande långa formel kan hjälpa dig att returnera domännamnet från webbsidan efter behov. Gör så här:

1. I en tom cell som bredvid din webbsidecell anger du följande formel, i det här exemplet skriver jag formeln i cell 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)).

Anmärkningar: i ovanstående formel, A2 anger cellen som innehåller webbsidan du vill hämta domännamnet från, du kan ändra det efter behov.

2. Tryck sedan på ange och välj cellen B2, dra fyllningshandtaget ner till det intervall som du vill tillämpa denna formel och alla domännamn har extraherats från varje webbadress. Se skärmdump:

Extrahera domännamn från URL med användardefinierad funktion

Om du är intresserad av VBA-kod kan du skapa en Användardefinierad funktion för att extrahera domännamnet från URL: er.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: extrahera domännamn från URL

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. Spara och stäng sedan koden, gå tillbaka till kalkylbladet och ange denna formel = Extraktionsdomän (A2) in i en tom cell förutom webbsidan, se skärmdump:

4. Och tryck sedan på ange välj cellen B2 och dra fyllningshandtaget ner till cellerna som du vill innehålla denna formel, och alla domännamn extraheras från varje webbsidecell.

Relaterade artiklar:

Hur extraherar jag domäner från flera e-postadresser i Excel?

Hur extraherar jag snabbt e-postadress från textsträng?