Como extrair endereços reais de hiperlinks no Excel?

Suponha que você tenha um intervalo de células que contêm hiperlinks, e agora você precisa ver o destino real desses hiperlinks e extraí-los conforme mostrado na captura de tela a seguir. Existem maneiras fáceis de resolver esse problema rapidamente? Este artigo irá guiá-lo para extrair endereços reais de vários hiperlinks.

Extrair endereços reais de hiperlinks com o recurso Editar Hiperlink

Extrair endereços reais de hiperlinks com Kutools para Excel de forma rápida e fácil

Extrair endereços reais de hiperlinks com código VBA

Extrair endereços reais de hiperlinks com Função Definida pelo Usuário

Extrair endereços reais de hiperlinks com o recurso Editar Hiperlink

Aqui, a função Editar Hiperlink pode ajudá-lo a extrair a URL subjacente de cada um desses hiperlinks e colocar esse endereço real em uma célula diferente. Você pode fazer assim:

1. Selecione a célula com o hiperlink e clique com o botão direito do mouse, no menu de contexto, escolha Editar Hiperlink, veja a captura de tela:

2. E uma caixa de diálogo Editar Hiperlink será exibida, selecione e copie (Ctrl+C) toda a URL no campo Endereço da caixa de diálogo.

3. Em seguida, feche a caixa de diálogo e cole o endereço real em qualquer célula que desejar.

Observação: Com este método, você pode extrair apenas um endereço de hiperlink por vez, mas se tiver vários hiperlinks para extrair, precisará aplicar essa função repetidamente.

Extrair endereços reais de hiperlinks com Kutools para Excel de forma rápida e fácil

Aqui está uma ferramenta prática, chamada Kutools para Excel, com seu recurso Converter Hiperlinks, você pode lidar rapidamente com as seguintes operações:

• Extrair endereços reais de hiperlinks;
• Converter texto de URL em hiperlinks clicáveis.

Se você instalou o Kutools para Excel, faça o seguinte:

1. Selecione o intervalo que contém os hiperlinks que precisam ser extraídos.

2. Clique em Kutools > Vincular > Converter Hiperlinks, veja a captura de tela:

3No Converter Hiperlinks caixa de diálogo, selecione Converter Endereço de Hiperlink para Conteúdo da Célula opção, e clique no botão Intervalo de Resultados para especificar uma célula onde colocar o resultado.

4. E então clique em OK, os endereços reais foram extraídos dos hiperlinks. Veja a captura de tela:

Observação: Se quiser colocar os endereços reais no intervalo original, marque Converter Intervalo de Origem.

Baixe e experimente gratuitamente o Kutools para Excel agora!

Extrair endereços reais de hiperlinks com código VBA

Para muitos hiperlinks, o método acima será tedioso e demorado, então o seguinte código VBA pode ajudá-lo a extrair rapidamente múltiplos endereços dos hiperlinks de uma só vez.

1. Mantenha pressionadas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Em seguida, pressione a tecla F5 para executar o código, e uma caixa de diálogo aparecerá para você selecionar os hiperlinks dos quais deseja extrair os endereços reais, veja a captura de tela:

4. Em seguida, clique em OK, e os conteúdos das células selecionadas serão convertidos nos endereços reais dos hiperlinks no intervalo original. Veja as capturas de tela:

Extrair endereços reais de hiperlinks com Função Definida pelo Usuário

A seguinte Função Definida pelo Usuário também pode extrair a URL real dos hiperlinks.

1. Mantenha pressionadas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Salve o código e feche a janela, selecione uma célula em branco para digitar esta fórmula =GetURL(A2) (A2 é a célula que contém o hiperlink), e pressione o botão Enter. Você pode ver que o endereço real do hiperlink foi extraído.

Artigo relacionado:

Como converter texto de URL em hiperlink clicável no Excel?