Preskoči na glavno vsebino

Kako izvleči dejanske naslove iz hiperpovezav v Excelu?

Recimo, da imate vrsto celic, ki vsebujejo hiperpovezave, zdaj pa morate videti pravi cilj hiperpovezav in jih izvleči iz hiperpovezav, kot je prikazano na spodnji sliki zaslona. Ali obstajajo enostavni načini za hitro reševanje te težave? Ta članek vas bo vodil po pridobivanju dejanskih naslovov iz več hiperpovezav.


puščica modri desni mehurček Izvlecite dejanske naslove iz hiperpovezav s funkcijo Uredi hiperpovezavo

Tukaj je Uredi hiperpovezavo funkcija vam lahko pomaga izvleči osnovni URL za vsako od teh hiperpovezav in dejanski naslov postaviti v drugo celico. To lahko storite tako:

1. V kontekstnem meniju izberite celico s hiperpovezavo in z desno miškino tipko izberite Uredi hiperpovezavo, glej posnetek zaslona:

2. In Uredi hiperpovezavo odpre se pogovorno okno, izberite in kopirajte (Ctrl + C) celoten URL iz Naslov: polje pogovornega okna.

3. Nato zaprite pogovorno okno in prilepite dejanski naslov v poljubno celico.

Opombe: S to metodo lahko vsakič izvlečete samo en naslov hiperpovezave, če pa je treba izvleči več hiperpovezav, morate to funkcijo večkrat uporabiti.


puščica modri desni mehurček Iz hiperpovezav izvlecite dejanske naslove s kodo VBA

Za veliko hiperpovezav bo zgornja metoda dolgočasna in dolgotrajna, zato vam lahko naslednja koda VBA pomaga hitro izločiti več naslovov iz hiperpovezav hkrati.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

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. Nato pritisnite F5 tipko za zagon kode in odpre se pogovorno okno za izbiro hiperpovezav, za katere želite izvleči prave naslove, glejte sliko zaslona:

4. Nato kliknite OK, izbrana vsebina celice pa je bila pretvorjena v prave naslove hiperpovezav v prvotnem obsegu. Oglejte si posnetke zaslona:


puščica modri desni mehurček Izvlecite dejanske naslove iz hiperpovezav s funkcijo User Definde

Naslednja uporabniško določena funkcija lahko tudi izvleče dejanski URl iz hiperpovezav.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

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

3. Shranite kodo in zaprite okno, izberite prazno celico, da vnesete to formulo = GetURL (A2) (A2 je celica, v kateri je hiperpovezava), in pritisnite Vnesite . Ogledate si lahko, da je izpisan pravi naslov hiperpovezave.


puščica modri desni mehurček Iz Kutools za Excel hitro in enostavno izvlecite dejanske naslove iz hiperpovezav

Tu je priročno orodje, imenovano Kutools za Excel, Z njegovim Pretvori hiperpovezave lahko hitro opravite z naslednjimi operacijami:

  • Iz hiperpovezav izvlecite dejanske naslove;
  • Pretvorite besedilo URL-ja v hiperpovezave, ki jih je mogoče klikniti.
Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh.

Če ste namestili Kutools za Excel, naredite naslednje:

1. Izberite obseg, ki vsebuje hiperpovezave, ki jih je treba izvleči.

2. Kliknite Kutools > Link > Pretvori hiperpovezave, glej posnetek zaslona:

3. v Pretvori hiperpovezave pogovorno okno, izberite Naslovi hiperpovezav nadomeščajo vsebino celic in kliknite doc-gumb1 gumb od Razpon rezultatov da določite celico, ki bo dala rezultat.

4. In nato kliknite OK, so iz hiperpovezav povzeti dejanski naslovi. Oglejte si posnetek zaslona:

Opombe: Če želite dejanske naslove postaviti v prvotni obseg, preverite Pretvori obseg vira.

klik Pretvori hiperpovezave če želite izvedeti več o tej funkciji.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


puščica modri desni mehurček Predstavitev: izvlecite dejanske naslove iz hiperpovezav s programom Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Povezani članek:

Kako pretvoriti besedilo urla v hiperpovezavo, ki jo je mogoče klikniti, v Excelu?

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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