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

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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

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!
fundul officetab
Comentarii (44)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc foarte mult. chiar m-a ajutat
Acest comentariu a fost redus la minimum de moderatorul de pe site
multumesc mult!!! :D
Acest comentariu a fost redus la minimum de moderatorul de pe site
Asta doar m-a salvat! Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
thnx mi-ai făcut munca atât de ușoară
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îți mulțumesc atât de mult!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc mult, asta mi-a salvat fundul și m-a făcut să arăt bine. 8)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Esti cel mai bun, atat de usor de urmarit!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc amice. Funcționează într-adevăr în câteva secunde.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc foarte mult. chiar m-a ajutat
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc mult! Foarte util, dar simplu și clar. Așa cum a vrut să spună Albert :roll:
Acest comentariu a fost redus la minimum de moderatorul de pe site
Super! Atat de usor. Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
multumesc mult. ca toți ceilalți de aici. acest lucru este foarte util și ușor.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc mult :lol: Am folosit metoda VBA și a funcționat ca un farmec în Excel 365 pe un sistem de operare Windows 8.1
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta este primul sfat Excel bazat pe macro care a funcționat pentru mine. Vă mulțumesc foarte mult pentru că ați făcut viața mai bună a manechinelor Excel.
Acest comentariu a fost redus la minimum de moderatorul de pe site
multumesc ca mi-ai economisit 15 minute
Acest comentariu a fost redus la minimum de moderatorul de pe site
Superb! mi-a redus munca la mai puțin de un minut.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru mi-a economisit o grămadă de timp! Am extras 500 de ID-uri de profil din peste 500 de nume legate de profilurile lor. Acest cod a funcționat extrem de bine și a fost ușor de urmărit. Multumesc mult!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Din anumite motive, acest lucru nu funcționează pentru mine. Am creat funcția definită așa cum ați descris-o, dar nu face nimic :\ De asemenea, vreau să o îmbin cu funcția Hyperlink, așa: =HYPERLINK(=getURL(A1), [A1]) Astfel încât finalul rezultatul va copia URL-ul lui A1 și îl va afișa ca șir de text al lui A1 (adică doar copiați A1 într-o altă celulă, incluzând atât textul, cât și hyperlinkul. Un lucru simplu pe care Excel nu pare să-l poată face dintr-un motiv oarecare...).
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc mult! Mi-a economisit mult timp de a fi nevoit să fac peste 800 din aceste celule!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Foarte frumos instrument! Am convertit 16K+ link-uri. Instrumentul a funcționat rapid și impecabil.
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL