Extraia URL do texto âncora no Excel

Question

Procurei neste tópico algo que se encaixe na minha consulta, mas a maioria dos tópicos chegou perto, mas não era específico da minha.

Estou tentando extrair a URL de um texto âncora no Excel.

Existe uma fórmula para isso? Quando tento =GETURLou =HYPERLINKainda coloca o texto âncora com a URL vinculada a ele.

Alguma ideia? As soluções macro são bastante inúteis, então uma fórmula seria ótima. Caso contrário, coloque as macros em mim.

Answer 1

Se você tiver uma célula que contém um hiperlink e desejar ver o URL em vez do "nome amigável", considere a seguinte função definida pelo usuário (UDF):

Public Function hyp(r As Range) As String
    hyp = ""
    If r.Hyperlinks.Count > 0 Then
        hyp = r.Hyperlinks(1).Address
        Exit Function
    End If
    If r.HasFormula Then
        rf = r.Formula
        dq = Chr(34)
        If InStr(rf, dq) = 0 Then
        Else
            hyp = Split(r.Formula, dq)(1)
        End If
    End If
End Function

Esta UDF funciona com hiperlinks inseridos e funções =HYPERLINK().

Funções definidas pelo usuário (UDFs) são muito fáceis de instalar e usar:

1. ALT-F11 abre a janela VBE
2. ALT-I ALT-M abre um novo módulo
3. cole o material e feche a janela do VBE

Se você salvar a pasta de trabalho, a UDF será salva com ela. Se você estiver usando uma versão do Excel posterior a 2003, deverá salvar o arquivo como .xlsm em vez de .xlsx

Para remover a UDF:

1. abra a janela VBE como acima
2. limpar o código
3. feche a janela do VBE

Para usar a UDF do Excel:

=hip(A1)

Para saber mais sobre macros em geral, consulte:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

e

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

e

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

para detalhes sobre UDFs

As macros devem estar habilitadas para que isso funcione!