Ugrás a tartalomra

Hogyan lehet kibontani a domain nevet az URL-ből az Excel programban?

Ha a munkafüzetben mindig sok URL-lel foglalkozik, akkor előfordulhat, hogy az egyes weboldalakról csak a domain neveket szeretné kinyerni. Az Excelben hogyan lehet gyorsan megszerezni a domain neveket az URL-ekből?

Bontsa ki a domain nevet az URL-ből képlettel

Bontsa ki a domain nevet az URL-ből a Felhasználó által definiált funkcióval


nyíl kék jobb buborék Bontsa ki a domain nevet az URL-ből képlettel

A következő hosszú képlet segíthet abban, hogy a domain nevet szükség szerint vissza tudja adni a weboldalról. Kérjük, tegye a következőket:

1. Egy üres cellába, amely a weboldal cellája mellett írja be a következő képletet, ebben a példában a képletet a B2 cellába írja be: =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)).

doc-extract-domain-url-1

Megjegyzések: a fenti képletben A2 azt a cellát jelöli, amely tartalmazza azt a weboldalt, ahonnan be akarja szerezni a domain nevet, szükség szerint megváltoztathatja.

2. Ezután nyomja meg a gombot belép kulcsot, és válassza ki a B2 cellát, húzza lefelé a kitöltő fogantyút arra a tartományra, amelyre ezt a képletet alkalmazni kívánja, és minden domainnév kivonásra került az egyes URL-ekből. Lásd a képernyőképet:

doc-extract-domain-url-1


nyíl kék jobb buborék Bontsa ki a domain nevet az URL-ből a Felhasználó által definiált funkcióval

Ha érdekli a VBA kód, létrehozhat egy Felhasználó által definiált funkció hogy kibontsa a domain nevet az URL-ekből.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: vonja ki a domain nevet az URL-ből

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. Ezután mentse el és zárja be a kódot, térjen vissza a munkalapra, és írja be ezt a képletet = Extractdomain (A2) egy üres cellába a weboldal mellett, lásd a képernyőképet:

doc-extract-domain-url-1

4. Ezután nyomja meg a gombot belép gombot, válassza ki a B2 cellát, és húzza lefelé a kitöltő fogantyút azokhoz a cellákhoz, amelyekben ezt a képletet kívánja tartalmazni, és minden domainnév kibontásra kerül az egyes weboldal cellákból.


Kapcsolódó cikkek:

Hogyan lehet kibontani a domaineket több e-mail címből az Excelben?

Hogyan lehet gyorsan kibontani az e-mail címet a szöveges karakterláncból?

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This formula worked for all my URLs except for ones with another URL in the query string. Would love a fix for that, but otherwise, it's great!
This comment was minimized by the moderator on the site
Thank you very much for making this formula available. I was able to use it. Thank you.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations