Como encontrar e listar todas as ligações (referências externas) no Excel?
No Excel, pode referenciar o conteúdo de células de outro livro criando uma referência externa. Contudo, quando pretende listar todas as ligações de um livro no Excel, pode parecer difícil localizar e enumerar todas as referências externas (ligações). O método prático apresentado neste artigo ajudá-lo-á a identificar e listar rapidamente todas as ligações presentes no livro.
Encontrar e listar todas as ligações com o comando Localizar
Encontrar e listar todas as ligações com Kutools para Excel
Encontrar e listar todas as ligações com macro VB
Encontrar e listar todas as ligações com o comando Localizar
Como as ligações externas contêm o sinal de parênteses reto [, conseguimos identificá-las se obtivermos todos os sinais de parênteses retos em todo o livro.
1. Clique em Base > Localizar e Selecionar > Localizar para abrir a caixa de diálogo Localizar e Substituir. Também pode abrir a caixa de diálogo Localizar e Substituir ao premir as teclas Ctrl + F.
2. Na caixa Localizar:, introduza o parêntesis reto esquerdo "[".
3. Clique em Opções. Na lista pendente Em, selecione Folha ou Livro a partir do qual pretende encontrar as ligações. Veja a imagem:
4. Em seguida, clique no botão Localizar Tudo. Assim, todas as referências externas são imediatamente listadas na caixa de diálogo Localizar e Substituir. Prima Ctrl + A para selecionar todas as células com ligações, conforme mostrado na imagem seguinte:
O lado esquerdo do sinal de parênteses retos permite identificar as ligações externas em todo o livro. Se pretender encontrar todos os tipos de ligações — incluindo ligações internas e externas —, basta introduzir o sinal de exclamação "!" na caixa Localizar:.
Encontrar e listar todas as ligações com Kutools para Excel
Com a funcionalidade Localizar e Quebrar Links do Kutools para Excel, pode identificar todas as ligações externas na folha ativa e eliminar, de forma rápida e precisa, apenas as que desejar.
Se tiver instalado o Kutools para Excel, proceda da seguinte forma:
1.Ative a folha onde pretende encontrar as ligações e clique em Kutools>Ligações>Localizar e Quebrar Links, veja a imagem:
2. Na caixa de diálogo Localizar e Quebrar Links, clique na lista pendente Filtrar para escolher Todas as ligações. Assim, todas as ligações na folha ativa são listadas e pode também visualizar o respetivo estado: OK indica que a ligação é válida e Erro significa que a ligação está quebrada.
Notas:
1. Se a opção Ativar Célula estiver marcada, ao clicar numa ligação da lista será redirecionado para a célula específica que contém essa ligação na folha.
2. Se quiser eliminar uma ligação, basta selecioná-la na lista e clicar em Quebrar Link.
Clique para transferir o Kutools para Excel e experimente-o gratuitamente já!
Se pretender saber mais sobre esta funcionalidade, clique em Localizar e Quebrar Links.
Encontrar e listar todas as ligações com macro VB
A seguinte macro VBA permite listar todos os livros de origem das ligações numa nova folha do livro ativo.
1. Mantenha premidas as teclas ALT+F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.
VBA: Liste todas as ligações no Excel.
Sub ListLinks()
Dim xSheet As Worksheet
Dim xRg As Range
Dim xCell As Range
Dim xCount As Long
Dim xLinkArr() As String
On Error Resume Next
For Each xSheet In Worksheets
Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If xRg Is Nothing Then GoTo LblNext
For Each xCell In xRg
If InStr(1, xCell.Formula, "[") > 0 Then
xCount = xCount + 1
ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
xLinkArr(1, xCount) = xCell.Address(, , , True)
xLinkArr(2, xCount) = "'" & xCell.Formula
End If
Next
LblNext:
Next
If xCount > 0 Then
Sheets.Add(Sheets(1)).Name = "Link Sheet"
Range("A1").Resize(, 2).Value = Array("Location", "Reference")
Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
Columns("A:B").AutoFit
Else
MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
End If
End Sub
3. Prima a tecla F5 para executar esta macro. Será então criada uma nova folha com o nome Link Sheet, listando de imediato a localização de todas as ligações, bem como os nomes e os caminhos dos livros de origem do link. Veja a imagem:
Encontrar e listar todas as ligações com Kutools para 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