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
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 Sub3. 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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins