Como listar rapidamente todas as hiperligações no Excel?
Ao utilizar uma folha de cálculo, é comum criar várias hiperligações — e, por vezes, precisamos saber exatamente para onde cada texto está a apontar. Clicar em cada uma individualmente torna-se tedioso e demorado. No entanto, se conseguir listar todas as hiperligações juntamente com os respetivos textos e endereços numa única folha de cálculo, verificar todas as hiperligações no Excel torna-se rápido e simples.
Listar todas as hiperligações selecionadas com código VBA
Extrair todos os endereços reais das hiperligações com Kutools para Excel
Listar todas as hiperligações selecionadas com código VBA
1. Selecione o intervalo que contém as hiperligações que pretende listar.
2. Clique em Programador > Visual Basic. Será apresentada uma nova janela do Microsoft Visual Basic para Aplicações; clique em Inserir > Módulo e introduza o seguinte código no módulo:
Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub3. Em seguida, clique no botão 
para executar o código. Todas as hiperligações serão apresentadas numa nova planilha denominada Lista de Hiperligações. Veja a imagem:
Extrair todos os endereços reais das hiperligações com Kutools para Excel
Com a funcionalidade Kutools para Excel’s Converter Hiperlinks, pode extrair rapidamente os endereços reais das hiperligações.
1. Selecione as hiperligações cujos destinos reais pretende extrair.
2. Em seguida, 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 na secção Tipo de Conversão e, de seguida, especifique uma célula onde pretende colocar o resultado na secção Intervalo do resultado. Veja a imagem:
4. Em seguida, clique no botão OK; todos os endereços reais foram extraídos das hiperligações. Veja a imagem:
Nota: Converter Intervalo de Origem: ao ativar esta opção, os resultados extraídos serão colocados no intervalo de células original.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Artigo relacionado:
Como remover rapidamente todas as hiperligações 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