Cuando queremos extraer los hipervínculos y las palabras a las que están conectados de de celdas de una hoja Excel, podremos extraer ambas cosas, en las celdas contiguas, para poder trabajar con esa información. Tendremos una lista de anchor text enlazados de la que obtner la información.

1. Pulsamos ALT+F11 y abrimos el editor VBA.
2. Una vez ahí, nos vamos al menú horizontal, "insertar" + "modulo". Añadiremos por copiando y pegando, la función "extraer_anchor":



Function Extraer_Anchor(Rango As Range)
Dim anchor As String
texto = Rango.Hyperlinks(1).Name
Extraer_Anchor = texto
End Function




Esta función extraerá el anchor text que contiene un vínculo y mostrarlo sin vínculo en la celda que indiquemos.


3. Cerramos el editor VBA pulsando ALT+Q, o bien, accediendo al menú horizontal en "Archivo" y "Cerrar y Volver a Excel".
4. Podemos usar esta función llamada "extraer_anchor".


y nos devolverá el siguiente resultado...


5. A continuación queremos extraer el hipervínculo y para ello repetimos el proceso desde el primer paso, pero en este caso añadimos la función "extraer_hipervinculo":



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



6. Ahora podemos usar esta nueva función llamada "Extraer_Hipervinculo".


y nos devolverá el siguiente resultado...