Saltar al contenido principal

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

Cuando usamos una hoja de trabajo, tal vez creamos muchos hipervínculos en ella y, a veces, necesitamos saber a dónde se vinculan los textos. Si hace clic en ellos uno por uno, será tedioso y llevará mucho tiempo. Si podemos enumerar todos los hipervínculos con textos y direcciones de hipervínculos en una hoja de trabajo, será fácil para nosotros verificar todos los hipervínculos en Excel.

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

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


flecha azul burbuja derecha Enumere todos los hipervínculos seleccionados con código VBA

1. Seleccione el rango que contiene los hipervínculos que desea enumerar.

2. Hacer clic Developer>Visual Basic, Un nuevo Microsoft Visual Basic para aplicaciones aparecerá la ventana, haga clic en recuadro>Móduloe ingrese 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 haga clic doc-multiplicar-calculo-3 botón para ejecutar el código. Y todos los hipervínculos se mostrarán en una nueva hoja de trabajo llamada Lista de hipervínculos. Ver captura de pantalla:

lista-doc-todos-los-hipervínculos


flecha azul burbuja derecha Extraiga todas las direcciones reales de los hipervínculos con Kutools para Excel

Con la Kutools for Excel, Convertir hipervínculos característica, puede extraer rápidamente las direcciones reales de los hipervínculos.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. 

Después de instalar Kutools for Excel, haz lo siguiente :( Descarga gratis Kutools para Excel ahora )

1. Seleccione los hipervínculos de los que desea extraer los destinos reales.

2. Luego haga clic Kutools > Enlace > Convertir hipervínculos, ver captura de pantalla:

3. En la Convertir hipervínculos cuadro de diálogo, seleccione Las direcciones de hipervínculos reemplazan el contenido de la celda Opción de la Tipo de conversión sección, y luego especifique una celda donde desea poner el resultado debajo de la Rango de resultados sección, ver captura de pantalla:

lista-doc-todos-los-hipervínculos

4. Luego haga clic OK botón, todas las direcciones reales se han extraído de los hipervínculos, vea la captura de pantalla:

lista-doc-todos-los-hipervínculos

Note: Convertir rango de fuente: los resultados extraídos se ubicarán en el rango de celdas original si marca esta opción.

Descarga gratis Kutools para Excel ahora


Artículo relacionado:

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

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Hi, It seems that the address selection applies to only web pages and not to other places in the document. - SH
This comment was minimized by the moderator on the site
This is awesome! Is there a way to show the full path? It seems to be truncating the file path a little.
This comment was minimized by the moderator on the site
this is a treasure!!! thank you
This comment was minimized by the moderator on the site
It does not work. Just empty page created
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations