Extraer Hipervinculos en excel

Suponiendo que tenemos una tabla como el siguiente ejemplo:

para extraer los hiperviculos de la columna "item" hacia la columna "enlaces" tenemos que ir a la opcion "Ver código" de la tabla

En la siguiente vetana seleccionamos Worksheet

 

Borramos el contenido que se encuentre y copiamos el siguiente código:

Sub extrae_enlaces()

For Each Hyp In ActiveSheet.Hyperlinks
Hyp.Range.Offset(0, 1) = Hyp.Address
Next Hyp
End Sub

Ejecutamos el código, cerramos la ventana y obtendremos los hipervinculos en la columna "enlaces"

Este recurso nos ahorra tiempo al momento de extraer los hipervinculos, evitando hacerlo uno por uno.