Note: The other languages of the website are Google-translated. Back to English

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 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.
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!
dno pisarniške mize
Komentarji (44)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala. res mi je pomagalo
Ta komentar je moderator na spletnem mestu minimiziral
najlepša hvala!!! :D
Ta komentar je moderator na spletnem mestu minimiziral
To me je pravkar rešilo! Hvala
Ta komentar je moderator na spletnem mestu minimiziral
thnx tako si mi olajšal delo
Ta komentar je moderator na spletnem mestu minimiziral
TAKO HVALA!
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, to mi je rešilo rit in sem izgledal dobro. 8)
Ta komentar je moderator na spletnem mestu minimiziral
Najboljši ste, tako enostavno slediti!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala kolega, res deluje v nekaj sekundah.
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala. res mi je pomagalo
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala! Zelo koristno, a preprosto in jasno. Tako kot je mislil Albert :roll:
Ta komentar je moderator na spletnem mestu minimiziral
Super! Tako enostavno. Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
hvala lepa. kot vsi ostali tukaj. to je zelo koristno in enostavno.
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala :lol: Uporabil sem metodo VBA in je delovala kot čar v Excelu 365 v operacijskem sistemu Windows 8.1
Ta komentar je moderator na spletnem mestu minimiziral
To je prvi namig za Excel na osnovi makrov, ki je deloval zame. Najlepša hvala, ker ste polepšali življenje excelovih lutk.
Ta komentar je moderator na spletnem mestu minimiziral
hvala, da si mi prihranil 15 minut
Ta komentar je moderator na spletnem mestu minimiziral
Super! zmanjšal moje delo na manj kot minuto.
Ta komentar je moderator na spletnem mestu minimiziral
To mi je prihranilo veliko časa! Izluščil sem 500 ID-jev profilov iz več kot 500 imen, povezanih z njihovimi profili. Ta koda je delovala zelo dobro in jo je bilo enostavno slediti. Najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Iz nekega razloga mi to ne deluje. Definirano funkcijo sem ustvaril tako, kot ste opisali, vendar ne naredi ničesar :\ Prav tako jo želim združiti s funkcijo Hyperlink, na primer: =HYPERLINK(=getURL(A1), [A1]) Tako da končni Rezultat bo kopiral URL A1 in ga prikazal kot besedilni niz A1 (tj. samo kopirajte A1 v drugo celico, vključno z besedilom in hiperpovezavo. Preprosta stvar, za katero se zdi, da Excel iz nekega razloga ne zmore ...).
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala! Prihranil sem veliko časa, ker sem moral narediti več kot 800 teh celic!
Ta komentar je moderator na spletnem mestu minimiziral
Zelo lepo orodje! Pretvoril sem 16K+ povezav. Orodje je delovalo hitro in brezhibno.
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL