¿Cómo obtengo URL de hipervínculos en Excel 2010?

0

Tengo una columna de celdas con hipervínculos (a direcciones web) y necesito que sus URL sean texto normal. ¿Hay alguna forma de extraer las URL de los hipervínculos? Ejemplo: Cell dice: "CLICKME" Enlaces a: www.www.com

Quiero que el celular solo diga www.www.com. Exploré las características especiales de pegar y no encontré ninguna respuesta allí. Sé cómo reemplazar el texto para mostrar con la URL de una sola celda, pero mi tabla tiene más de 700 celdas de este tipo para las que necesito esto y no puedo pasar todo el día haciéndolo una celda a la vez. ¿Sugerencia?

Chapin Hawkins
fuente

Respuestas:

2

Esto es fácil con algunos VBA :

Sub test()
    Dim link As Hyperlink
    For Each link In ActiveSheet.Hyperlinks
        link.Range.Offset(0, 1).Value = link.Address
    Next
End Sub

Ejecute esto y todas las direcciones aparecerán en la celda a la derecha del hipervínculo.

Raystafarian
fuente