Hoppa till huvudinnehåll

Hur extraherar jag faktiska adresser från hyperlänkar i Excel?

Om du antar att du har ett antal celler som innehåller hyperlänkar, och nu måste du se hyperlänkarnas verkliga mål och extrahera dem från hyperlänkarna enligt följande skärmdump. Finns det några enkla sätt att lösa detta problem snabbt? Den här artikeln hjälper dig att extrahera faktiska adresser från flera hyperlänkar.


pil blå höger bubbla Extrahera faktiska adresser från hyperlänkar med funktionen Redigera hyperlänk

Här, den Redigera hyperlänk -funktionen kan hjälpa dig att extrahera den underliggande webbadressen för var och en av dessa hyperlänkar och placera den faktiska adressen i en annan cell. Du kan göra så här:

1. Markera cellen med hyperlänk och högerklicka, välj från snabbmenyn Redigera hyperlänk, se skärmdump:

2. Och en Redigera hyperlänk dialogrutan visas, välj och kopiera (Ctrl + C) hela webbadressen från Adress fältet i dialogrutan.

3. Stäng sedan dialogrutan och klistra in den faktiska adressen i vilken cell du vill.

Anmärkningar: Med den här metoden kan du bara extrahera en hyperlänkadress varje gång, men om du har flera hyperlänkar måste extraheras måste du använda den här funktionen upprepade gånger.


pil blå höger bubbla Extrahera faktiska adresser från hyperlänkar med VBA-kod

För många hyperlänkar kommer metoden ovan att vara tråkig och tidskrävande, så följande VBA-kod kan hjälpa dig att snabbt extrahera flera adresser från hyperlänkarna på en gång.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

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. Tryck sedan på F5 nyckel för att köra koden, och en dialog dyker upp för dig att välja de hyperlänkar som du vill extrahera de riktiga adresserna, se skärmdump:

4. Klicka sedan OKoch det valda cellinnehållet har konverterats till de riktiga hyperlänkadresserna i det ursprungliga intervallet. Se skärmdumpar:


pil blå höger bubbla Extrahera faktiska adresser från hyperlänkar med User Definde Function

Följande användardefinierade funktion kan också extrahera den faktiska URl från hyperlänkarna.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

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

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

3. Spara koden och stäng fönstret, välj en tom cell för att skriva denna formel = GetURL (A2) (A2 är cellen som hyperlänken finns i) och tryck på ange knapp. Du kan se den verkliga hyperlänkadressen extraheras.


pil blå höger bubbla Extrahera faktiska adresser från hyperlänkar med Kutools för Excel snabbt och enkelt

Här är ett praktiskt verktyg, kallat Kutools för Excel, med dess Konvertera hyperlänkar funktion kan du snabbt hantera följande åtgärder:

  • Extrahera faktiska adresser från hyperlänkar;
  • Konvertera webbadress till klickbara hyperlänkar.
Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar.

Om du har installerat Kutools för Excel, gör så här:

1. Välj det intervall som innehåller hyperlänkar som behöver extraheras.

2. Klicka Kutools > Länk > Konvertera hyperlänkar, se skärmdump:

3. I Konvertera hyperlänkar dialogrutan väljer du Hyperlänkar adresser ersätter cellinnehåll alternativet och klicka på doc-knapp1 knappen från Resultatintervall för att ange en cell för att placera resultatet.

4. Och klicka sedan på OKhar de faktiska adresserna extraherats från hyperlänkarna. Se skärmdump:

Anmärkningar: Om du vill lägga till de faktiska adresserna till det ursprungliga intervallet, vänligen kontrollera Konvertera källområdet.

Klicka Konvertera hyperlänkar för att veta mer om den här funktionen.

Ladda ner och testa gratis Kutools för Excel nu!


pil blå höger bubbla Demo: Extrahera faktiska adresser från hyperlänkar med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Relaterad artikel:

Hur konverterar man webbadress till klickbar hyperlänk i Excel?

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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