¿Cómo enumerar rápidamente todos los hipervínculos en Excel?
Al usar una hoja de cálculo, es habitual crear numerosos hipervínculos y, en ocasiones, necesitar saber a qué dirección apunta cada uno. Hacer clic en ellos uno por uno resulta tedioso y consume mucho tiempo. Si pudiéramos listar todos los hipervínculos junto con su texto y su dirección en una hoja de cálculo, revisarlos todos en Excel sería rápido y sencillo.
Enumerar todos los hipervínculos seleccionados con código VBA
Extraer todas las direcciones reales de los hipervínculos con Kutools para Excel
Enumerar todos los hipervínculos seleccionados con código VBA
1. Seleccione el rango que contiene los hipervínculos que desea enumerar.
2. Haga clic en Desarrollador > Visual Basic. Aparecerá una nueva ventana de Microsoft Visual Basic para Aplicaciones. Haga clic en Insertar > Módulo e introduzca 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 Sub3. A continuación, haga clic en el botón 
para ejecutar el código. Todos los hipervínculos aparecerán en una hoja de cálculo nueva denominada Lista de hipervínculos. Vea la captura de pantalla:
Extraer todas las direcciones reales de los hipervínculos con Kutools para Excel
Con la función Kutools para Excel de Convertir hipervínculos, podrá extraer rápidamente las direcciones reales de los hipervínculos.
1. Seleccione los hipervínculos de los que quiera extraer sus destinos reales.
2. A continuación, haga clic en Kutools > Vínculo > Convertir hipervínculos. Vea la captura de pantalla:
3. En el cuadro de diálogo Convertir hipervínculos, seleccione la opción Convertir dirección de hipervínculo a contenido de celda en la sección Tipo de conversión y, a continuación, especifique la celda en la que desee colocar el resultado en la sección Rango de resultados. Vea la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar; todas las direcciones reales se habrán extraído de los hipervínculos. Vea la captura de pantalla:
Nota: Convertir rango de origen: si activa esta opción, los resultados extraídos se ubicarán en el rango de celdas original.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Artículo relacionado:
¿Cómo eliminar rápidamente todos los hipervínculos en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos