¿Cómo extraer las direcciones reales de los hipervínculos en Excel?
Supongamos que tiene un rango de celdas con hipervínculos y necesita ver sus destinos reales y extraerlos, tal como se muestra en la siguiente captura de pantalla. ¿Existen métodos sencillos para resolver este problema de forma rápida? Este artículo le guiará paso a paso para extraer las direcciones reales de varios hipervínculos.
Extraiga las direcciones reales de los hipervínculos con la función Editar hipervínculo
Aquí, la función Editar hipervínculo le permite extraer la URL subyacente de cada uno de estos hipervínculos y colocarla en una celda distinta. Así es como puede hacerlo:
1. Seleccione la celda que contiene el hipervínculo, haga clic con el botón derecho y, en el menú contextual, elija Editar hipervínculo. Consulte la captura de pantalla:
2. A continuación, aparecerá el cuadro de diálogo Editar hipervínculo; seleccione y copie ()Ctrl + C) la URL completa del campo Dirección del cuadro de diálogo.
3. A continuación, cierre el cuadro de diálogo y pegue la dirección real en cualquier celda que desee.
Nota: Con este método solo puede extraer una dirección de hipervínculo cada vez; sin embargo, si tiene varios hipervínculos que extraer, deberá aplicar esta función repetidamente.
Extraiga las direcciones reales de los hipervínculos con Kutools para Excel de forma rápida y sencilla
Existe una herramienta práctica llamada Kutools para Excel, que con su función Convertir hipervínculosle permite realizar rápidamente las siguientes operaciones:
- Extraiga las direcciones reales de los hipervínculos;
- Convierta texto de URL en hipervínculos activos.
Si ha instalado Kutools para Excel, siga estos pasos:
1. Seleccione el rango que contiene los hipervínculos que desea extraer.
2. Haga clic en Kutools > Vínculo > Convertir hipervínculos. Consulte 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 y haga clic en el botón 
desde Rango de resultados para especificar la celda donde desea colocar el resultado.
4. A continuación, haga clic en Aceptar; las direcciones reales se habrán extraído de los hipervínculos. Consulte la captura de pantalla:
Nota: Si desea colocar las direcciones reales en el rango original, active la casilla Convertir rango de origen.
¡Descargue y pruebe gratis Kutools para Excel ahora!
Extraiga las direcciones reales de los hipervínculos con código VBA
Con numerosos hipervínculos, el método anterior resulta tedioso y consume mucho tiempo; por eso, el siguiente código VBA le permite extraer de inmediato múltiples direcciones de hipervínculos.
1. Mantén pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del 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 Sub3. A continuación, pulse la tecla F5 para ejecutar el código; aparecerá un cuadro de diálogo en el que podrá seleccionar los hipervínculos de los que desea extraer las direcciones reales. Consulte la captura de pantalla:
4. Luego, haga clic en Aceptar; los contenidos de las celdas seleccionadas se convertirán en las verdaderas direcciones de hipervínculo del rango original. Consulte las capturas de pantalla:
 |  |  |
Extraiga las 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. Mantenga pulsadas las teclas ALT + F11para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del módulo.
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
3. Guarde el código y cierre esta ventana; seleccione una celda vacía e introduzca la fórmula =GetURL(A2) (A2 es la celda que contiene el hipervínculo) y pulse la tecla Entrar. Verá que se ha extraído la verdadera dirección del hipervínculo.
Artículo relacionado:
¿Cómo convertir texto de URL en un hipervínculo activo 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