Convertir hipervínculos a texto

Hace un poco más de un año atrás publiqué una nota mostrando una técnica para seleccionar celdas que contienen un hipervínculo.

Uno de mis lectores me consulta ahora cómo convertir la dirección del hipervínculo a texto que aparezca como valor de la celda. En otras palabras, queremos que en las celdas de la columna B aparezca las direcciones de los hipervínculos de las celdas en la columna A

Excel no tiene una función nativa para esta tarea por lo que tendremos que usar una UDF, es decir, escribir nuestra propia función.

Esta función es muy sencilla

Function hyp_to_text(rngCell As Range) As String
  
    hyp_to_text = rngCell.Hyperlinks(1).Address

End Function


Para usarla podemos ponerla en una módulo común del cuaderno Personal y la aplicamos usando el asistente de funciones con la categoría "Definidas por el usuario"

y finalmente apretamos Aceptar

Si la celda no contiene un hipervínculo, el resultado es #¡VALOR!