Como obtenho URLs de hiperlinks no Excel 2010?

Question

Eu tenho uma coluna de células com hiperlinks (para endereços da web) e preciso que seus URLs sejam textos regulares. Existe uma maneira de extrair os URLs de hiperlinks? Exemplo: Cell diz: "CLICKME" Links para: www.www.com

Eu quero que o celular diga apenas www.www.com. Eu explorei os recursos especiais e não encontrei nenhuma resposta lá. Eu sei como substituir o texto de exibição com a URL de uma única célula, mas minha tabela tem mais de 700 dessas células para as quais eu preciso e não posso passar o dia todo fazendo uma célula de cada vez. Sugestão?

    

Answer 1

Isso é fácil com alguns VBA -

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

Execute isso e todos os endereços aparecerão na célula à direita do hiperlink.