Skip to main content

Como listar rapidamente todos os hiperlinks no Excel?

Author: Xiaoyang Last Modified: 2025-06-04

Quando usamos uma planilha, talvez criemos muitos hiperlinks nela, e às vezes precisamos saber para onde os textos estão vinculados. Se você clicar em cada um deles individualmente, será tedioso e demorado. Se pudermos listar todos os hiperlinks com os textos e os endereços dos hiperlinks em uma planilha, será fácil verificar todos os hiperlinks no Excel.

Listar todos os hiperlinks selecionados com código VBA

Extrair todos os endereços reais dos hiperlinks com o Kutools para Excel


arrow blue right bubble Listar todos os hiperlinks selecionados com código VBA

1. Selecione o intervalo que contém os hiperlinks que deseja listar.

2. Clique em Desenvolvedor > Visual Basic, uma nova janela do Microsoft Visual Basic para Aplicativos será exibida, clique em Inserir > Módulo e insira 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 Sub

3. Em seguida, clique Run button no botão para executar o código. E todos os hiperlinks serão exibidos em uma nova planilha chamada Lista de Hiperlinks. Veja a captura de tela:

A screenshot showing a list of hyperlinks displayed in a new worksheet in Excel


arrow blue right bubble Extrair todos os endereços reais dos hiperlinks com o Kutools para Excel

Com o recurso Converter Hiperlinks do Kutools para Excel, você pode extrair rapidamente os endereços reais dos hiperlinks.

Kutools para Excel oferece mais de 300 recursos avançados para simplificar tarefas complexas, aumentando a criatividade e a eficiência. Integrado com capacidades de IA, o Kutools automatiza tarefas com precisão, tornando a gestão de dados fácil e eficiente. Mais informações sobre o Kutools para Excel...  Teste gratuito...

1. Selecione os hiperlinks dos quais deseja extrair os destinos reais.

2. Em seguida, clique em Kutools > Vincular > Converter Hiperlinks, veja a captura de tela:

A screenshot showing the Convert Hyperlinks option in Kutools tab on the ribbon

3. Na caixa de diálogo Converter Hiperlinks, selecione a opção Endereços de hiperlinks substituem o conteúdo da célula na seção Tipo de conversão e, em seguida, especifique uma célula onde deseja colocar o resultado na seção Intervalo de resultados, veja a captura de tela:

A screenshot of the Convert Hyperlinks dialog box

4. Em seguida, clique no botão OK, todos os endereços reais foram extraídos dos hiperlinks, veja a captura de tela:

A screenshot showing extracted hyperlink addresses in Excel using Kutools

Observação: Converter intervalo de origem: os resultados extraídos estarão localizados no intervalo de células original se você marcar esta opção.

Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora


Artigo Relacionado:

Como excluir rapidamente todos os hiperlinks no Excel?

Melhores Ferramentas de Produtividade para Office

🤖 Assistente AI do KUTOOLS: Revolucione a análise de dados com base em: Execução Inteligente | Gerar Código | Criar Fórmulas Personalizadas | Analisar Dados e Gerar Gráficos | Invocar Funções Aprimoradas
Recursos Populares: Encontrar, Destacar ou Marcar Duplicatas | Excluir Linhas em Branco | Combinar Colunas ou Endereço sem Perder Dados | Arredondar...
Super PROC: PROC com Múltiplos Critérios | PROC com Múltiplos Valores | Procura em várias planilhas | Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente uma Lista Suspensa | Lista Suspensa Dependente | Lista Suspensa com Múltipla Seleção...
Gerenciador de Colunas: Adicionar um Número Específico de Colunas | Mover Colunas | Alternar Estado de Visibilidade das Colunas Ocultas | Comparar Intervalo & Colunas...
Recursos em Destaque: Grade de foco | Visualização de Design | Barra de fórmulas aprimorada | Gerenciador de Pasta de trabalho & Planilha | Biblioteca de AutoTexto | Selecionador de Data | Mesclar Dados | Criptografar/Descriptografar Células | Enviar Email por Lista | Super Filtro | Filtro Especial (filtrar negrito/itálico/tachado...)...
Top15 Conjuntos de Ferramentas:12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...) | Mais de50 Tipos de Gráficos (Gráfico de Gantt, ...) | Mais de40 Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...) |19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem a partir do Caminho, ...) |12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...) |7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ... e muito mais

Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...


O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho

  • Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
  • Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!