Extrai URL da âncora Texto no Excel

Question

Eu examinei este tópico para algo que se encaixa na minha consulta, mas a maioria dos tópicos chegou perto, mas não era específica da minha.

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

Existe uma fórmula para isso? Quando tento =GETURL ou =HYPERLINK , ele ainda coloca o texto da âncora com o URL vinculado a ele.

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

    

Answer 1

Se você tiver uma célula que contenha um hiperlink e desejar ver a 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 as funções Hyperlinks inseridos e = HYPERLINK ().

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

1. ALT-F11 exibe a janela do 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 o UDF:

1. abrir a janela do VBE como acima
2. limpe o código
3. feche a janela do VBE

Para usar o UDF do Excel:

= hip (A1)

Para saber mais sobre macros em geral, consulte:

link

e

link

e

link

para detalhes sobre UDFs

As macros devem estar ativadas para que isso funcione!