Como extrair os endereços reais das hiperligações no Excel?
Imagine que tem um intervalo de células que contém hiperligações e precisa agora de ver o destino real dessas hiperligações e extraí-las, tal como mostrado na seguinte imagem. Existirão formas simples de resolver este problema rapidamente? Este artigo irá orientá-lo na extração de endereços reais a partir de múltiplas hiperligações.
Extraia endereços reais a partir de hiperligações com a funcionalidade Editar Hiperligação
Extraia endereços reais a partir de hiperligações com Kutools para Excel de forma rápida e fácil
Extraia endereços reais a partir de hiperligações com código VBA
Extraia endereços reais a partir de hiperligações com Função Definida pelo Utilizador
Extraia endereços reais a partir de hiperligações com a funcionalidade Editar Hiperligação
Aqui, a função Editar Hiperligação pode ajudá-lo a extrair o URL subjacente de cada uma destas hiperligações e colocar esse endereço real numa célula diferente. Basta seguir estes passos:
1. Selecione a célula com a hiperligação, clique com o botão direito do rato e, no menu de contexto, escolha Editar Hiperligação. Veja a imagem:
2. Irá aparecer uma caixa de diálogo Editar Hiperligação; selecione e copie ()Ctrl+C) todo o URL do campo Endereço da caixa de diálogo.
3. Depois, feche a caixa de diálogo e cole o endereço real em qualquer célula pretendida.
Nota: Com este método, só é possível extrair um endereço de hiperligação de cada vez; se tiver várias hiperligações para extrair, terá de aplicar esta função repetidamente.
Extraia endereços reais a partir de hiperligações com Kutools para Excel de forma rápida e fácil
Existe uma ferramenta prática, denominada Kutools para Excel, cuja funcionalidade Converter Hiperlinkslhe permite tratar rapidamente as seguintes operações:
- Extraia endereços reais a partir de hiperligações;
- Converter texto de URL em hiperligações clicáveis.
Se tiver instalado o Kutools para Excel, proceda da seguinte forma:
1. Selecione o intervalo que contém as hiperligações a extrair.
2. Clique em Kutools > Ligação > Converter Hiperlinks, conforme ilustrado:
3. Na caixa de diálogo Converter Hiperlinks, selecione a opção Converter Endereço de Hiperlink para Conteúdo da Célula e clique no botão 
OK. Em seguida, defina o Intervalo de resultados para especificar a célula onde deseja colocar o resultado.
4. Em seguida, clique em OK; os endereços reais foram extraídos das hiperligações. Veja a imagem:
Nota: Se pretender utilizar os endereços reais no intervalo original, assinale a opção Converter Intervalo de Origem.
Transfira e experimente gratuitamente o Kutools para Excel agora!
Extraia endereços reais a partir de hiperligações com código VBA
Com muitas hiperligações, o método acima torna-se tedioso e demorado; por isso, o código VBA seguinte permite-lhe extrair múltiplos endereços de hiperligações de uma só vez.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do 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, prima a tecla F5 para executar o código; irá surgir uma caixa de diálogo que lhe permite selecionar as hiperligações cujos endereços reais pretende extrair — veja a imagem:
4. Depois, clique em OK; os conteúdos das células selecionadas foram convertidos nos respetivos endereços de hiperligação reais no intervalo original. Veja as imagens:
 |  |  |
Extraia endereços reais a partir de hiperligações com Função Definida pelo Utilizador
A seguinte Função Definida pelo Utilizador também permite extrair o URL real das hiperligações.
1. Mantenha premidas as teclas ALT + F11para abrir a janela do 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. Guarde o código e feche esta janela; selecione uma célula vazia e introduza a fórmula =GetURL(A2) (A2 é a célula que contém a hiperligação) e prima a tecla Enter. Verá que o endereço do hiperlink real foi extraído.
Artigo relacionado:
Como converter um URL em texto numa hiperligação clicável no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos