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.
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.
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 Sub3. 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:
 |
 |
 |
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.
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 
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!
Predstavitev: izvlecite dejanske naslove iz hiperpovezav s programom Kutools za Excel
Povezani članek:
Kako pretvoriti besedilo urla v hiperpovezavo, ki jo je mogoče klikniti, v Excelu?
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
