Salt la conținutul principal

Cum se extrag adrese reale din hyperlinkuri în Excel?

Presupunând că aveți o gamă de celule care conțin hyperlinkuri, iar acum trebuie să vedeți destinația reală a hyperlink-urilor și să le extrageți din hyperlink-uri, după cum se arată în următoarea captură de ecran. Există modalități ușoare de a rezolva această problemă rapid? Acest articol vă va ghida să extrageți adrese reale din mai multe hyperlinkuri.


săgeată albastru dreapta balon Extrageți adresele reale din hyperlinkuri cu funcția Edit Hyperlink

Aici Editați hyperlinkul funcția vă poate ajuta să extrageți adresa URL subiacentă pentru fiecare dintre aceste hyperlinkuri și să plasați acea adresă reală într-o celulă diferită. Puteți face acest lucru:

1. Selectați celula cu hyperlink și faceți clic dreapta, din meniul contextual, alegeți Editați hyperlinkul, vezi captura de ecran:

2. Si un Editați hyperlinkul va apărea caseta de dialog, selectați și copiați (Ctrl + C) întreaga adresă URL din Adresă câmpul casetei de dialog.

3. Apoi închideți caseta de dialog și lipiți adresa reală în orice celulă doriți.

notițe: Cu această metodă, puteți extrage o singură adresă de hyperlink de fiecare dată, dar dacă aveți mai multe hyperlinkuri trebuie extrase, trebuie să aplicați această funcție în mod repetat.


săgeată albastru dreapta balon Extrageți adresele reale din hyperlinkuri cu cod VBA

Pentru o mulțime de hyperlinkuri, metoda de mai sus va fi plictisitoare și consumatoare de timp, astfel încât următorul cod VBA vă poate ajuta să extrageți rapid mai multe adrese din hyperlinkuri simultan.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

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. Apoi apăsați F5 pentru a rula codul și apare o fereastră de dialog pentru a selecta hyperlinkurile pe care doriți să le extrageți adresele reale, vedeți captura de ecran:

4. Apoi apasa OK, iar conținutul celulei selectate a fost convertit la adresele reale de hyperlink din intervalul original. Vedeți capturi de ecran:


săgeată albastru dreapta balon Extrageți adresele reale din hyperlinkuri cu funcția User Definde

Următoarea funcție definită de utilizator poate extrage, de asemenea, adresa URL reală din hyperlinkuri.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

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

3. Salvați codul și închideți fereastra, selectați o celulă necompletată pentru a introduce această formulă = GetURL (A2) (A2 este celula în care se află hyperlinkul) și apăsați Intrați buton. Puteți vedea că adresa de hyperlink reală este extrasă.


săgeată albastru dreapta balon Extrageți rapid și ușor adresele reale din hyperlinkuri cu Kutools pentru Excel

Iată un instrument la îndemână, numit Kutools pentru Excel, Cu său Conversia hyperlink-urilor caracteristică, puteți face rapid operațiunile următoare:

  • Extrageți adresele reale din hyperlinkuri;
  • Convertiți textul URL în hyperlinkuri care pot fi făcute clic.
Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile.

Dacă ați instalat Kutools pentru Excel, vă rugăm să faceți următoarele:

1. Selectați intervalul care conține hyperlinkurile care trebuie extrase.

2. Clic Kutools > Link > Conversia hyperlink-urilor, vezi captura de ecran:

3. În Conversia hyperlink-urilor fereastră de dialog, selectați Adresele hyperlinkuri înlocuiesc conținutul celulei și faceți clic pe doc-buton1 buton din Intervalul de rezultate pentru a specifica o celulă pentru a pune rezultatul.

4. Apoi faceți clic pe OK, adresele reale au fost extrase din hyperlinkuri. Vedeți captura de ecran:

notițe: Dacă doriți să puneți adresele reale în intervalul original, vă rugăm să verificați Convertiți gama sursei.

Clic Conversia hyperlink-urilor pentru a afla mai multe despre această caracteristică.

Descărcați și proba gratuită Kutools pentru Excel acum!


săgeată albastru dreapta balon Demo: extrageți adresele reale din hyperlinkuri cu Kutools pentru Excel

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Descărcați și proba gratuită acum!

Articol asociat:

Cum se convertește textul URL în hyperlink pe care se poate face clic în Excel?

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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