¿Cómo extraer direcciones reales de los hipervínculos en Excel?

Supongamos que tienes un rango de celdas que contienen hipervínculos, y ahora necesitas ver el destino real de los hipervínculos y extraerlos como se muestra en la siguiente captura de pantalla. ¿Hay alguna manera fácil de resolver este problema rápidamente? Este artículo te guiará para extraer direcciones reales de múltiples hipervínculos.

Extraer direcciones reales de los hipervínculos con la función Editar hipervínculo

Extraer direcciones reales de los hipervínculos con Kutools para Excel de forma rápida y sencilla

Extraer direcciones reales de los hipervínculos con código VBA

Extraer direcciones reales de los hipervínculos con una Función Definida por el Usuario

Extraer direcciones reales de los hipervínculos con la función Editar hipervínculo

Aquí, la función Editar hipervínculo puede ayudarte a extraer la URL subyacente de cada uno de estos hipervínculos y colocar esa dirección real en una celda diferente. Puedes hacer lo siguiente:

1. Selecciona la celda con el hipervínculo y haz clic derecho, desde el menú contextual, elige Editar hipervínculo, ver captura de pantalla:

2. Aparecerá un cuadro de diálogo Editar hipervínculo, selecciona y copia (Ctrl+C) toda la URL del campo Dirección del cuadro de diálogo.

3. Luego cierra el cuadro de diálogo y pega la dirección real en cualquier celda que desees.

Nota: Con este método, solo puedes extraer una dirección de hipervínculo a la vez, pero si tienes varios hipervínculos que necesitan ser extraídos, deberás aplicar esta función repetidamente.

Extraer direcciones reales de los hipervínculos con Kutools para Excel de forma rápida y sencilla

Aquí hay una herramienta práctica, llamada Kutools para Excel, con su función Convertir hipervínculos, puedes manejar rápidamente las siguientes operaciones:

• Extraer direcciones reales de los hipervínculos;
• Convertir texto de URL en hipervínculos clicables.

Si has instalado Kutools para Excel, por favor, sigue los siguientes pasos:

1. Selecciona el rango que contiene los hipervínculos que necesitan ser extraídos.

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

3En el Convertir hipervínculos cuadro de diálogo, selecciona Las direcciones de los hipervínculos reemplazan el contenido de las celdas opción, y haz clic en el botón de Rango de resultados para especificar una celda donde colocar el resultado.

4. Y luego haz clic en Aceptar, las direcciones reales han sido extraídas de los hipervínculos. Ver captura de pantalla:

Nota: Si deseas colocar las direcciones reales en el rango original, marca la opción Convertir rango de origen.

¡Descarga y prueba gratis Kutools para Excel ahora!

Extraer direcciones reales de los hipervínculos con código VBA

Para muchos hipervínculos, el método anterior será tedioso y llevará mucho tiempo, por lo que el siguiente código VBA puede ayudarte a extraer rápidamente varias direcciones de los hipervínculos de una vez.

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Luego presiona la tecla F5 para ejecutar el código, y aparecerá un cuadro de diálogo para que selecciones los hipervínculos de los que deseas extraer las direcciones reales, ver captura de pantalla:

4. Luego haz clic en Aceptar, y los contenidos de las celdas seleccionadas se han convertido en las direcciones reales de los hipervínculos en el rango original. Ver capturas de pantalla:

Extraer direcciones reales de los hipervínculos con una Función Definida por el Usuario

La siguiente Función Definida por el Usuario también puede extraer la URL real de los hipervínculos.

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Guarda el código y cierra la ventana, selecciona una celda en blanco para escribir esta fórmula =GetURL(A2) (A2 es la celda que contiene el hipervínculo), y presiona la tecla Intro. Puedes ver que la dirección real del hipervínculo ha sido extraída.

Artículo relacionado:

¿Cómo convertir texto de URL en hipervínculo clicable en Excel?