¿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
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 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:
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:
4. Luego haga clic OK botón, todas las direcciones reales se han extraído de los hipervínculos, vea la captura de pantalla:
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
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...
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!