Excel: convertir una columna con hipervínculos para que sólo muestre los enlaces

Respuesta corta: no se puede automatizar esto sin VBA.

Manual

Esto es en un ordenador con Windows 7; simplemente sustituye los accesos directos por sus correspondientes equivalentes en Mac.

1. Resalta una celda con un hipervínculo.
2. Pulsa CTRL+K. Esto abre el cuadro de diálogo del hipervínculo (ver imagen inferior). Una vez abierto, verás que el cursor ya está en el campo Dirección.
3. Pulsa CTRL+A para resaltar toda la URL.
4. Pulsa CTRL+C para copiarla.
5. Pulsa ESC o Enter para cerrar el cuadro de diálogo del hipervínculo.
6. Pega la URL en algún sitio mediante CTRL + V.

Public Function GetURL(c As Range) As String
    On Error Resume Next
    GetURL = c.Hyperlinks(1).Address
End Function

VBA

Aquí tienes una solución VBA para los que puedan usarla.

Crea un módulo VBA con el siguiente código:

=GetURL(A1)

Para utilizarlo, introduce lo siguiente en cualquier celda:

donde A1 contiene un hipervínculo.

La función en el trabajo:

Puede parecer un método de fuerza bruta, pero es la mejor manera que se me ha ocurrido. (Descubrí esta página cuando yo mismo tenía la misma pregunta hace una hora… podrías pasarte todo el día buscando, pero a veces es más fácil hacerlo y acabar con ello).

1) Copiar y pegar sólo las celdas que contienen los hipervínculos en una nueva hoja de cálculo.

2) Exporta la hoja de cálculo, haz clic en “Cambiar tipo de archivo”, selecciona “Guardar como otro tipo de archivo” y guárdalo como página web (también conocido como archivo HTML).

3) Abra la página web en su navegador y vea la fuente.

4) Copie y pegue la fuente en un editor de texto.

5) Utilizando la función Buscar/Reemplazar del editor de texto, elimine el texto inicial y final de cada hipervínculo. (En otras palabras, sustituya dicho texto por nada: “”) Tenga en cuenta que este texto debe ser idéntico para cada hipervínculo.

6) Ahora debería tener un archivo de texto con nada más que hipervínculos. Copie y pegue lo que necesite en su hoja de cálculo original o utilícelo como quiera.

Editado para indicar que en realidad se puede exportar a un archivo separado que es HTM. Cierre el archivo y vuelva a abrirlo en Excel de nuevo y se resolverá el problema. La fórmula =Hyperlink desaparece y los enlaces se convierten en enlaces normales. Este método me ahorró horas y fue muy simple y no tuve que lidiar con scripts o fórmulas o VBA o Macros.

Yo uso un mac y esto me funcionó: resalte la columna que necesita convertir, en el menú Insertar, abra “Hipervínculo”. Elimine cualquier texto que aparezca en el cuadro de visualización. Dirán “[varias celdas seleccionadas]” si su texto de visualización es diferente entre las celdas. Una vez que haga clic en Aceptar, sólo aparecerán los enlaces en su hoja de cálculo. Si necesitas convertir celdas individuales en lugar de una columna entera, resalta todas las celdas que necesites convertir, haz clic con el botón derecho, selecciona “editar hipervínculo” y sigue los mismos pasos para eliminar el texto del cuadro de visualización.

Estoy seguro de que hay con VBA sin embargo, en el ínterin haga clic derecho, H, y copiar y pegar la dirección en la pantalla para mostrar cuadro

En los años transcurridos desde que se formuló esta pregunta, Excel añadió la función =GetURL(cell) para que pueda hacer esto sin necesidad de utilizar su propio VBA.