Como encontrar e listar todos os links (referências externas) no Excel?
No Excel, você faz referência ao conteúdo de células em outra pasta de trabalho criando uma referência externa. Mas quando você deseja listar todos os links de uma pasta de trabalho no Excel, parece difícil encontrar e listar todas as referências externas (links). O método engenhoso neste artigo ajudará você a descobrir e listar rapidamente todos os links na pasta de trabalho.
Encontrar e listar todos os links com o comando Localizar
Encontrar e listar todos os links com o Kutools para Excel
Encontrar e listar todos os links com macro VB
Encontrar e listar todos os links com o comando Localizar
Como os links externos contêm o sinal de colchete [ , podemos encontrar os links externos se conseguirmos localizar todos os sinais de colchetes em toda a pasta de trabalho.
1. Clique em Página Inicial > Localizar e Selecionar > Localizar para abrir a caixa de diálogo Localizar e Substituir. Você também pode abrir a caixa de diálogo Localizar e Substituir pressionando as teclas Ctrl + F.
2. Na caixa Localizar:, insira a parte esquerda do sinal de colchete "[".
3. Clique em Opções, na lista suspensa Dentro , escolha Planilha ou Pasta de Trabalho da qual deseja encontrar os links. Veja a captura de tela:
4. E então clique no botão Localizar Tudo. Em seguida, ele lista todas as referências externas na caixa de diálogo Localizar e Substituir imediatamente. Pressione Ctrl + A para selecionar todas as células de link como mostrado na seguinte captura de tela:
A parte esquerda do sinal de colchete pode encontrar os links externos em toda a pasta de trabalho. Se você quiser encontrar todos os tipos de links, incluindo os links internos e externos, pode inserir o sinal de exclamação "!" na caixa Localizar.
Encontrar e listar todos os links com o Kutools para Excel
Com o recurso Localizar e Quebrar Links Quebrados do Kutools para Excel, você pode encontrar todos os links externos da planilha ativa e, ao mesmo tempo, pode quebrar links específicos conforme necessário.
Se você instalou o Kutools para Excel, siga estas instruções:
1. Ative a planilha onde deseja encontrar os links e clique em Kutools > Link > Localizar e Quebrar Links Quebrados, veja a captura de tela:
2. Na caixa de diálogo Localizar e Quebrar Links Quebrados, clique na lista suspensa Filtrar para escolher Todos os links, e todos os links na planilha ativa serão listados. Você também pode visualizar o status dos links, OK significa que o link é válido, Erro significa que o link está quebrado.
Notas:
1. Se a opção Ativar Célula estiver marcada, ao clicar no link na lista, ele encontrará e navegará até a célula específica que contém o link na planilha.
2. E se você quiser quebrar um link, pode selecionar o link da lista e depois clicar em Quebrar Link.
Clique para baixar o Kutools para Excel e experimente agora gratuitamente!
Se você quiser saber mais sobre este recurso, clique em Localizar e Quebrar Links Quebrados.
Encontrar e listar todos os links com macro VB
A seguinte macro VBA pode nos ajudar a listar todas as pastas de trabalho de origem vinculadas em uma nova planilha da pasta de trabalho atual.
1. Mantenha pressionadas as teclas ALT + F11 , e isso abrirá a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo.
VBA: Listar todos os links 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. Pressione a tecla F5 para executar esta macro. Em seguida, ela cria uma nova planilha chamada Link Sheet e lista todos os locais dos links e os nomes das pastas de trabalho de origem vinculadas e seus caminhos de salvamento nela imediatamente. Veja a captura de tela:
Encontrar e listar todos os links com o Kutools para 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