Extraer hipervinculos con Excel

Hay veces que necesitamos extraer de un excel con una cantidad ingente de hipervinculos, el hipervínculo limpio. Quiero decir, que tienes por ejemplo esto: "hola", un hola en excel, pero que si pinchas en el, vemos que nos lleva a www.google.es. Y asi con un listado de excel de unos miles de enlaces.

Con unos pocos pasos, vamos a generar una macro en excel que nos permita la extraccion de todos los vínculos en una celda contigua, sin dificultad alguna.

1. Pulsamos Alt + F11 en la hoja de excel sobre la que queremos trabajar. Esto lanza el editor de VBA.
2. En el menú de la aplicacion que se ha abierto, vamos a Insertar -> modulo. 
3. En el cuadro en blanco que aparece, pegamos la siguiente funcion, que es lo que generará la extraccion del hipervínculo:

Function Extraer_Hipervinculo(Rango As Range)
Dim Hipervinculo As String
Hipervinculo = Rango.Hyperlinks(1).Address
Extraer_Hipervinculo = Hipervinculo
End Function

Despues, solo tenemos que aplicar la funciona nueva. Se hace de la siguiente manera:

En la celda contigua al priner enlace, escribimos "=extraer_hipervinculo", sin las comillas. Como ves en la imagen, practicamente aparece la opcion, segun lo escribes. Pinchas sobre la funcion que aparece, y seguidamente, pinchas sobre la casilla izquierda, la casilla que contiene la palabra con el hipervínculo. Verás que ha agregado al texto de la casill sobre la que hemos escrito la funcion (el =extraer_hipervinculo un "(A1". Sin tocar nada mas, pulsamos Intro.

Aparece algo asi, como lo del cuadro superior. Si queremos aplicarlo a más celdas, es muy facil. Pinchamos sobre la celda sobre la que se ha aplicado la funcion, en el caso de la foto superior, la celda B1. Veras que en la esquina inferior derecha de la celda hay como un cuadradito. Pincha sobre el, y tira hasta la celda en la que quieras aplicar la formula.

Claro, las celdas que no contengan nada obviamente no muestran valores, pero sobre todas las demás, se aplica la macro creada al comienzo. ¡Y ya esta!No tiene mayor dificultad. ¡Espero que te sea útil!