¿Cómo listar rápidamente todos los hipervínculos en Excel?

Cuando usamos una hoja de cálculo, es posible que creemos muchos hipervínculos en ella, y a veces necesitamos saber a dónde llevan los textos. Si haces clic uno por uno, será tedioso y llevará mucho tiempo. Si podemos enumerar todos los hipervínculos con sus textos y direcciones en una hoja de cálculo, será fácil para nosotros revisar todos los hipervínculos en Excel.

Listar todos los hipervínculos seleccionados con código VBA

Extraer todas las direcciones reales de los hipervínculos con Kutools para Excel

Listar todos los hipervínculos seleccionados con código VBA

1. Selecciona el rango que contiene los hipervínculos que deseas listar.

2. Haz clic en Desarrollador > Visual Basic, se mostrará una nueva ventana de Microsoft Visual Basic para aplicaciones, haz clic en Insertar > Módulo e introduce el siguiente código en el Módulo:

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. Luego haz clic en el botón para ejecutar el código. Y todos los hipervínculos se mostrarán en una nueva hoja de cálculo llamada Lista de Hipervínculos. Ver captura de pantalla:

Extraer todas las direcciones reales de los hipervínculos con Kutools para Excel

Con la función Convertir hipervínculos de Kutools para Excel, puedes extraer rápidamente las direcciones reales de los hipervínculos.

1. Selecciona los hipervínculos de los cuales deseas extraer los destinos reales.

2. Luego haz clic en Kutools > Vínculo > Convertir hipervínculos, ver captura de pantalla:

3. En el cuadro de diálogo Convertir hipervínculos, selecciona la opción Direcciones de hipervínculos reemplazan contenido de celda desde la sección Tipo de conversión, y luego especifica una celda donde deseas colocar el resultado bajo la sección Rango de resultados, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y todas las direcciones reales habrán sido extraídas de los hipervínculos, ver captura de pantalla:

Nota: Convertir rango de origen: los resultados extraídos estarán ubicados en el rango de celdas original si marcas esta opción.

Artículo relacionado:

¿Cómo eliminar rápidamente todos los hipervínculos en Excel?