Ugrás a tartalomra

Hogyan lehet kinyerni a tényleges címeket az Excel hiperhivatkozásaiból?

Tételezzük fel, hogy számos olyan cellája van, amely hiperhivatkozásokat tartalmaz, és most meg kell látnia a hiperhivatkozások valódi rendeltetési helyét, és ki kell vonnia őket a hiperhivatkozásokból az alábbi képernyőkép szerint. Vannak-e egyszerű módszerek a probléma gyors megoldására? Ez a cikk ismerteti a tényleges címek kinyerésével több hiperhivatkozásból.


nyíl kék jobb buborék A hiperhivatkozások szerkesztésével vonhatja ki a tényleges címeket a hiperhivatkozásokból

Itt a Hiperhivatkozás szerkesztése függvény segítségével kivonhatja az egyes hiperhivatkozások mögöttes URL-jét, és az aktuális címet egy másik cellába helyezheti. Megteheti ezt:

1. Válassza ki a cellát hiperhivatkozással, és kattintson a jobb gombbal, majd válassza a helyi menüből Hiperhivatkozás szerkesztése, lásd a képernyőképet:

2. És egy Hiperhivatkozás szerkesztése párbeszédpanel jelenik meg, válassza ki és másolja (Ctrl + C) a teljes URL a Cím mező a párbeszédpanelen.

3. Ezután zárja be a párbeszédpanelt, és illessze be a tényleges címet bármely kívánt cellába.

Megjegyzések: Ezzel a módszerrel minden egyes alkalommal csak egy hiperhivatkozás címet lehet kinyerni, de ha több hiperhivatkozás van, akkor ezt a funkciót ismételten alkalmaznia kell.


nyíl kék jobb buborék Bontsa ki a tényleges címeket hiperhivatkozásokból VBA kóddal

Sok hiperhivatkozás esetén a fenti módszer fárasztó és időigényes lesz, ezért a következő VBA-kód segítségével egyszerre több címet is gyorsan kivonhat a hiperhivatkozásokbó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 ablakba.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy párbeszédpanel, amelyben kiválaszthatja a valódi címeket kibontani kívánt hiperhivatkozásokat, lásd a képernyőképet:

4. Ezután kattintson OK, és a kiválasztott cellatartalmat az eredeti tartományban lévő valós hiperhivatkozásokra konvertálták. Képernyőképek megtekintése:


nyíl kék jobb buborék Kivonja a tényleges címeket a hiperhivatkozásokból a User Definde funkcióval

A következő felhasználó által definiált függvény a hiperhivatkozásokból is kivonhatja a tényleges URl-t.

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.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Mentse el a kódot, és zárja be az ablakot, válasszon egy üres cellát a képlet beírásához = GetURL (A2) (A2 az a cella, amelyben a hiperhivatkozás található), és nyomja meg a gombot belép gomb. Láthatja, hogy a valódi hiperhivatkozás címet kibontották.


nyíl kék jobb buborék A Kutools for Excel segítségével gyorsan és egyszerűen kivonhatja a tényleges címeket a hiperhivatkozásokból

Itt van egy praktikus eszköz, az úgynevezett Kutools az Excel számára, Annak Hiperhivatkozások konvertálása funkcióval gyorsan kezelheti a következő műveleteket:

  • Kivonja a tényleges címeket a hiperhivatkozásokból;
  • Az URL-szöveg konvertálása kattintható hiperhivatkozássá.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható.

Ha telepítve van Kutools az Excel számára, kérjük, tegye a következőket:

1. Válassza ki azt a tartományt, amely tartalmazza a kinyerendő hiperhivatkozásokat.

2. Kattints Kutools > Link > Hiperhivatkozások konvertálása, lásd a képernyőképet:

3. Az Hiperhivatkozások konvertálása párbeszédpanelen válassza ki A hiperhivatkozások címei helyettesítik a cellatartalmat opciót, és kattintson rá doc-gomb1 gomb innen Eredménytartomány cella megadásához az eredmény elhelyezéséhez.

4. Kattintson a gombra OK, a tényleges címeket kivonták a hiperhivatkozásokból. Lásd a képernyőképet:

Megjegyzések: Ha a tényleges címeket az eredeti tartományba szeretné helyezni, ellenőrizze Forrástartomány konvertálása.

Kattints Hiperhivatkozások konvertálása hogy többet tudjon meg erről a funkcióról.

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


nyíl kék jobb buborék Demo: Kivonja a tényleges címeket a hiperhivatkozásokból a Kutools for Excel segítségével

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Kapcsolódó cikk:

Hogyan lehet az URL-t konvertálni kattintható hiperhivatkozássá az Excelben?

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

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...

kte lap 201905


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 (44)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour
Auriez vous une solution pour mettre en place le fonctionnement par la formule sur Excel 365 sur Mac ?
This comment was minimized by the moderator on the site
Hello, Edouard,
Sorry, the methods in this article are only applied to Microsoft Excel.
Thank you!
This comment was minimized by the moderator on the site
Ola colegas ,

Tenho uma planilha com mais de 2000 linhas, preciso exportar o documento que esta no hiperlink estas celulas, para um diretório da maquina, alguém sabe como fazer ?

agradeço a atenção

at..
cássia
This comment was minimized by the moderator on the site
Thank you it solve my problem
This comment was minimized by the moderator on the site
Thank you, the VBA code worked like a charm :)
This comment was minimized by the moderator on the site
Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed!
This comment was minimized by the moderator on the site
How does this apply to Excel on Mac?
This comment was minimized by the moderator on the site
I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
This comment was minimized by the moderator on the site
If you're not comfortable with VBA, the key step to getting this done is the FORMULATEXT() formula that is included with excel. For example, if cell A1 has this...
=HYPERLINK("https://www.google.com","Google Homepage")
...then it would display "Google Homepage" but you want to extract "https://www.google.com". You can use =FORMULATEXT(A1) to get the output of "=HYPERLINK("https://google.com","Google Homepage")".

Then you use the find and mid functions to find the double quotes (which is CHAR(34)) and pull the string between the first two double quotes. Nesting it all together, you can use this formula to get the URL without any VBA required...
=MID(FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1,FIND(CHAR(34),FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1)-FIND(CHAR(34),FORMULATEXT(A1))-1)
This comment was minimized by the moderator on the site
Thankyou for an easy method to extract the complete URL from a weblink. I looked at other methods that were too nebulous but yours was straightforward and easy. Thanks.
This comment was minimized by the moderator on the site
Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations