Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es llista ràpidament tots els hipervincles d'Excel?

Quan fem servir un full de càlcul, potser creem molts hipervincles, i de vegades necessitem saber on es connecten els textos. Si feu clic a un a un, serà tediós i llarg. Si podem enumerar tots els hipervincles amb textos i adreces d'hipervincles en un full de càlcul, serà fàcil que consultem tots els hipervincles d'Excel.

Llista tots els hipervincles seleccionats amb codi VBA

Extraieu totes les adreces reals dels hipervincles amb Kutools per a Excel

Elimineu tots els hipervincles d'una selecció / full de càlcul / llibre amb Kutools for Excel


Extreu adreces reals d'hipervincles:

amb Kutools for Excel'S Converteix enllaços, podeu extreure ràpidament adreces URL reals de cèl · lules hiperlinkades alhora.

adreça del extracte doc dels hipervincles


fletxa blau dreta bombolla Llista tots els hipervincles seleccionats amb codi VBA


1. Seleccioneu el rang que conté els hipervincles que voleu incloure.

2. Clic Revelador>Visual Basic, Un nou Microsoft Visual Basic per a aplicacions es mostrarà la finestra, feu clic a Insereix>Mòduls, i introduïu el següent codi al mòdul:

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

3. A continuació, feu clic a doc-multiplicar-càlcul-3 botó per executar el codi. I tots els hipervincles es mostraran en un nou full de treball anomenat Llista d'hipervincle. Mostra la captura de pantalla:

doc-list-all-hyperlinks


fletxa blau dreta bombolla Extraieu totes les adreces reals dels hipervincles amb Kutools per a Excel

Amb el Kutools for Excel'S Converteix enllaços funció, podeu extreure ràpidament les adreces reals dels hipervincles.

Kutools for Excel : amb més complements útils de 300 d'Excel, lliures per intentar sense limitacions en 60 dies.

Després d'instal·lar Kutools for Excel, feu el següent :( Descàrrega gratuïta de Kutools for Excel Now )

1. Seleccioneu els hipervincles que voleu extreure les destinacions reals.

2. A continuació, feu clic a Kutools > Enllaç > Converteix enllaços, veure captura de pantalla:

doc-list-all-hyperlinks

3. Al Converteix enllaços quadre de diàleg, seleccioneu Les adreces d'hipervincles reemplacen els continguts de les cel·les opció de la Tipus de conversió i, a continuació, especifiqueu una cel·la on voleu posar el resultat a sota Rang de resultats secció, veure captura de pantalla:

doc-list-all-hyperlinks

4. A continuació, feu clic a OK , totes les adreces reals s'han extret dels hipervincles, vegeu la captura de pantalla:

doc-list-all-hyperlinks

Nota: Converteix el rang d'origen: els resultats extrets es situaran al rang de cel·les originals si marqueu aquesta opció.

Feu clic per obtenir més informació sobre aquesta utilitat Convertir hipervincles.

Descàrrega gratuïta de Kutools for Excel Now


fletxa blau dreta bombolla Elimineu tots els hipervincles d'una selecció / full de càlcul / llibre amb Kutools for Excel

Si voleu eliminar tots els hipervincles del full de càlcul o el llibre, el Suprimeix hipervincles característica de Kutools for Excel també us pot ajudar.

Kutools for Excel : amb més complements útils de 300 d'Excel, lliures per intentar sense limitacions en 60 dies.

Si heu instal·lat Kutools for Excel, feu el següent :( Descàrrega gratuïta de Kutools for Excel Now )

1. Clic Kutools > Enllaç > Suprimeix hipervincles, veure captura de pantalla:

doc-list-all-hyperlinks

2. A continuació, especifiqueu l'abast dels hipervincles que voleu eliminar, podeu eliminar-los d'un rang, un full de càlcul, diversos fulls seleccionats i un llibre complet.

3. En aquest cas, suprimiré els hipervincles en un full de càlcul i apareixerà una casella de visualització, veure la captura de pantalla:

doc-list-all-hyperlinks

4. A continuació, feu clic a , tots els hipervincles del full de càlcul actual es retiraran alhora.

Feu clic per obtenir més informació sobre aquesta funció Eliminar hipervincles.

Descàrrega gratuïta de Kutools for Excel Now


Article relacionat:

Com esborrar ràpidament tots els hipervincles d'Excel?



Eines de productivitat recomanades

Pestanya d'Office

estrella d&#39;or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d&#39;or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d&#39;or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dave · 3 years ago
    seems you forgot to tell folks to select a range. if I select a range of cells it creates the list, otherwise I get an empty list like yael did.
  • To post as a guest, your comment is unpublished.
    Kurt · 4 years ago
    This was a life saver. For anyone looking to have the hyperlink display where documents are stored on a network path, this should work for you. I didn't select anything, followed the steps, and it created a new sheet with the links expanded which I was able to turn into plain text and use as raw data.
  • To post as a guest, your comment is unpublished.
    DataAnalyst · 4 years ago
    Hi,
    It seems that the address selection applies to only web pages and not to other places in the document.
    - SH
  • To post as a guest, your comment is unpublished.
    mcnulty · 4 years ago
    This is awesome!
    Is there a way to show the full path?
    It seems to be truncating the file path a little.
  • To post as a guest, your comment is unpublished.
    SHAD · 4 years ago
    this is a treasure!!!
    thank you