Como pesquisar rapidamente um valor em várias folhas ou livros?
Já precisou de localizar um valor específico que possa surgir em folhas diferentes ou até em múltiplos livros do Excel? Este é um cenário comum, especialmente ao lidar com grandes projetos, relatórios mensais ou quando consolida informação distribuída por vários ficheiros. Procurar manualmente em cada folha ou ficheiro não só é extremamente demorado como também está sujeito a erros. Neste tutorial, vai descobrir métodos eficazes para pesquisar dados de forma rápida e precisa — quer esteja a trabalhar dentro de um único livro, em vários livros, ou precise de uma solução baseada em fórmulas ou em dados consolidados. Estas abordagens respondem a necessidades práticas que certamente encontrará nas suas rotinas diárias no Excel ou em projetos de Análise de Dados.
Pesquise um valor em várias folhas de um livro com a função Localizar e Substituir
Pesquise um valor em todos os livros de uma pasta com VBA
Pesquise rapidamente um valor em vários livros abertos com Kutools para Excel 
Pesquise um valor em várias folhas utilizando fórmulas do Excel
Pesquise um valor em várias folhas de um livro com a função Localizar e Substituir
A função Localizar e Substituir do Excel é uma forma simples, mas poderosa, de encontrar rapidamente valores específicos em várias folhas de cálculo dentro do mesmo livro. Este método revela-se especialmente útil quando já sabe quais as folhas que pretende pesquisar ou quando os seus dados estão bem estruturados num único ficheiro. Embora não permita pesquisas em ficheiros diferentes nem em livros fechados, oferece uma solução direta e eficaz para consultas rápidas.
1. Para começar, selecione as guias de folha que pretende incluir na sua pesquisa, mantendo premida a tecla Ctrl e clicando em cada folha de cálculo no separador da barra de guias individualmente. Desta forma, garante que a pesquisa será aplicada a todas as folhas selecionadas simultaneamente. Veja a imagem:
2. Depois de selecionar as folhas pretendidas, prima Ctrl + F para abrir a caixa de diálogo Localizar e Substituir. Introduza o valor que pretende encontrar na caixa de texto Localizar, no separador Localizar, e clique no botão Localizar tudo. O Excel apresentará imediatamente uma lista de todas as células nas folhas selecionadas que contêm o seu valor de pesquisa, juntamente com as respetivas localizações. Veja a imagem:
Dica: A ferramenta Localizar e Substituir procura apenas nas folhas selecionadas que estão abertas e visíveis. Se pretender alargar a pesquisa a outras folhas, certifique-se de as selecionar conforme descrito acima. Caso tenha omitido acidentalmente uma folha, basta repetir a operação após a incluir na sua seleção.
Precauções: Este método não pesquisa em livros fechados ou ocultos e não destaca automaticamente as células – apenas lista os resultados para navegação.
Resolução de problemas: Se não vir os resultados esperados, verifique novamente a seleção das folhas e confirme se não aplicou filtros ou proteções nas células que possam ocultar ou restringir a pesquisa.
Substitua valores em várias folhas e livros de forma simples |
Kutools para Excel avançada do Localizar e Substituir oferece uma forma eficiente de procurar e substituir valores em várias folhas ou mesmo em todos os livros abertos. Com esta funcionalidade avançada, pode economizar tempo e eliminar erros ao trabalhar com grandes conjuntos de dados, tornando as suas tarefas no Excel mais rápidas e precisas. |
 |
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á |
Pesquise um valor em todos os livros de uma pasta com VBA
Se precisar de procurar um valor específico em vários livros guardados numa pasta — incluindo ficheiros que ainda não abriu — as ferramentas incorporadas do Excel não o conseguem fazer diretamente. Neste caso, uma macro VBA (Visual Basic for Applications) pode automatizar todo o processo: abre sistematicamente cada livro da pasta, analisa todas as folhas de cálculo e regista exatamente onde forem encontradas correspondências. Esta abordagem revela-se altamente prática para auditorias periódicas ou para verificar valores em ficheiros arquivados ou processados em lote.
1. Comece por abrir um novo livro (ou em branco) no Excel. Selecione a célula onde pretende que os resultados da pesquisa apareçam (normalmente a célula A1). Prima Alt + F11 para abrir a janela do editor Microsoft Visual Basic for Applications.
2. No editor do VBA, vá a Inserir > Módulo para criar um novo módulo e cole o seguinte código VBA na janela do módulo.
VBA: Procure um valor em todos os livros de uma pasta.
Sub SearchFolders()
'UpdatebyKutoolsforExcel20200913
Dim xFso As Object
Dim xFld As Object
Dim xStrSearch As String
Dim xStrPath As String
Dim xStrFile As String
Dim xOut As Worksheet
Dim xWb As Workbook
Dim xWk As Worksheet
Dim xRow As Long
Dim xFound As Range
Dim xStrAddress As String
Dim xFileDialog As FileDialog
Dim xUpdate As Boolean
Dim xCount As Long
Dim xAWB As Workbook
Dim xAWBStrPath As String
Dim xBol As Boolean
Set xAWB = ActiveWorkbook
xAWBStrPath = xAWB.Path & "\" & xAWB.Name
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a forlder"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
xStrSearch = "KTE"
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xOut = Worksheets.Add
xRow = 1
With xOut
.Cells(xRow, 1) = "Workbook"
.Cells(xRow, 2) = "Worksheet"
.Cells(xRow, 3) = "Cell"
.Cells(xRow, 4) = "Text in Cell"
Set xFso = CreateObject("Scripting.FileSystemObject")
Set xFld = xFso.GetFolder(xStrPath)
xStrFile = Dir(xStrPath & "\*.xls*")
Do While xStrFile <> ""
xBol = False
If (xStrPath & "\" & xStrFile) = xAWBStrPath Then
xBol = True
Set xWb = xAWB
Else
Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
End If
For Each xWk In xWb.Worksheets
If xBol And (xWk.Name = .Name) Then
Else
Set xFound = xWk.UsedRange.Find(xStrSearch)
If Not xFound Is Nothing Then
xStrAddress = xFound.Address
End If
Do
If xFound Is Nothing Then
Exit Do
Else
xCount = xCount + 1
xRow = xRow + 1
.Cells(xRow, 1) = xWb.Name
.Cells(xRow, 2) = xWk.Name
.Cells(xRow, 3) = xFound.Address
.Cells(xRow, 4) = xFound.Value
End If
Set xFound = xWk.Cells.FindNext(After:=xFound)
Loop While xStrAddress <> xFound.Address
End If
Next
If Not xBol Then
xWb.Close (False)
End If
xStrFile = Dir
Loop
.Columns("A:D").EntireColumn.AutoFit
End With
MsgBox xCount & " cells have been found", , "Kutools for Excel"
ExitHandler:
Set xOut = Nothing
Set xWk = Nothing
Set xWb = Nothing
Set xFld = Nothing
Set xFso = Nothing
Application.ScreenUpdating = xUpdate
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation
Resume ExitHandler
End Sub
3. Prima a tecla F5 ou clique no botão Executar para executar esta macro. Aparecerá uma janela de diálogo Selecionar uma pasta, que lhe permite escolher a pasta contendo os livros que pretende pesquisar. Veja a imagem:
4. Clique em OK. Após a conclusão da pesquisa, uma caixa de mensagem informá-lo-á do número total de células encontradas que contêm o valor especificado. Veja a imagem:
5. Clique em OK para fechar a mensagem. Todas as localizações onde o valor foi encontrado são listadas numa nova planilha, incluindo o nome da pasta de trabalho, o nome da planilha, a referência da célula e o conteúdo exato da célula para análise.
Dica: O termo de pesquisa atual está definido no VBA como «KTE». Pode personalizá-lo alterando a linha xStrSearch = "KTE" no código para qualquer valor que deseje procurar.
Precauções: Antes de executar, certifique-se de que todos os livros relevantes estão guardados e fechados (exceto aquele em que executa a macro, que pode permanecer aberto). Pastas grandes com muitos ficheiros do Excel ou ficheiros complexos podem demorar algum tempo a processar. Não interrompa a macro durante a execução.
Resolução de problemas: Se encontrar erros, verifique se todos os ficheiros são livros do Excel genuínos (não corrompidos nem protegidos por palavra-passe) e se as definições de segurança das macros permitem a execução de código. Caso a macro não termine, experimente executá-la primeiro num conjunto mais pequeno de ficheiros.
Pesquise rapidamente um valor em vários livros abertos com Kutools para Excel
Quando pretende realizar uma pesquisa em vários livros já abertos na sua sessão do Excel, o Kutools para Excel oferece um painel dedicado Localizar e Substituir que torna o processo muito mais fácil e organizado. Esta funcionalidade é especialmente útil para analisar rapidamente os seus livros sem necessidade de programação ou configurações complicadas — ideal para utilizadores que frequentemente trabalham com múltiplos ficheiros em simultâneo e precisam de uma ferramenta simples e intuitiva para gerir pesquisas.
1. Num dos seus livros abertos, aceda ao separador Kutools e selecione Navegação. Em seguida, clique no botão Localizar e Substituir
para abrir o painel Localizar e Substituir, normalmente localizado no lado esquerdo da janela do Excel. Veja a imagem:
2. No separador Localizar, introduza o valor que pretende pesquisar na caixa de texto Localizar. Escolha Todos os livros no menu pendente Em para pesquisar em todos os livros abertos. Em seguida, clique em Localizar tudo para obter imediatamente uma lista de todas as células correspondentes, juntamente com as respetivas localizações. Veja a imagem:
Dica: O utilitário avançado Localizar e Substituir do Kutools para Excel permite-lhe pesquisar e substituir dados não só em todos os livros abertos, mas também especificamente em Planilhas Selecionadas, no Livro Atual, na Planilha Atual ou mesmo apenas na sua Seleção Atual. Isto dá-lhe um controlo totalmente personalizado, adaptado às suas necessidades.
Precauções: Certifique-se de que todos os livros que pretende pesquisar estão abertos antes de iniciar a pesquisa, pois esta ferramenta não consegue pesquisar ficheiros que não estejam atualmente abertos no Excel.
Resolução de problemas: Se alguns ficheiros não aparecerem nos resultados da pesquisa, verifique se estão totalmente carregados no Excel e se não estão em modo de visualização protegida ou em modo de leitura apenas, o que pode limitar o acesso à pesquisa.
Demonstração: Valor de pesquisa em vários livros abertos com Kutools para Excel
Pesquise um valor em várias folhas utilizando fórmulas do Excel
Em situações em que tem vários nomes de folhas conhecidos no seu livro e precisa de verificar se — e onde — um determinado valor existe entre essas folhas, pode utilizar fórmulas do Excel para pesquisar dinamicamente por elas. Esta abordagem revela-se particularmente eficaz quando pretende que os resultados da pesquisa se mantenham automaticamente atualizados e a sua lista de folhas é relativamente estática ou gerida numa tabela separada.
Este método exige que já conheça ou liste os nomes de todas as folhas a pesquisar. É ideal para verificações automatizadas, painéis de controlo ou sempre que pretender criar uma referência resumo sem ter de executar uma análise completa de cada vez.
Vantagens: Os resultados são atualizados automaticamente à medida que os dados mudam — não é necessário recorrer a scripts nem a extras; tudo é tratado diretamente no próprio livro.
Desvantagens: Não é adequado para situações em que os nomes das folhas mudam frequentemente ou quando se tem um número muito elevado de folhas.
Cenário de exemplo: Imagine que tem três folhas com os nomes Folha1, Folha2 e Folha3. Pretende saber em qual(is) folha(s) um determinado valor — por exemplo, «Invoice123» — aparece na célula A1 ou simplesmente verificar se esse valor existe em qualquer uma dessas folhas.
Passo 1. Suponha que tem uma lista de nomes de folhas em D2:D4 (D2: Folha1, D3: Folha2, D4: Folha3). Introduza o valor a pesquisar (por exemplo, «Invoice123») em E1. Em seguida, em F2, introduza esta fórmula:
=IF(COUNTIF(INDIRECT("'"&D2&"'!A:A"), $E$1) >0, "Found", "Not Found")Passo 2. Arraste a fórmula de F2 até F4 para verificar todas as folhas listadas em D2:D4. Isto devolverá «Encontrado» ou «Não encontrado» para cada folha.
Como funciona: A fórmula utiliza a função INDIRECTO para criar uma referência a cada folha listada e a função CONTAR.SE para verificar se o valor em E1 aparece na coluna A de cada folha. Ajuste o intervalo A:Apara focar outra coluna ou um intervalo específico (por exemplo,)A1:Z100), se necessário.
Dica adicional:Para obter o(s) nome(s) da(s) folha(s) que contém(êm) o valor, utilize a seguinte fórmula matricial (introduzida com Ctrl + Shift + Enter nas versões mais antigas do Excel ou como uma fórmula normal no Microsoft 365/Excel 2021+):
=TEXTJOIN(", ",TRUE,IF(COUNTIF(INDIRECT("'"&D2:D4&"'!A:A"), $E$1)>0, D2:D4, ""))Isto devolverá uma lista separada por vírgulas com todos os nomes das folhas onde o valor for encontrado. Tenha cuidado com a função INDIRECTO – só funciona com livros abertos e não permite pesquisar em ficheiros fechados.
Precauções: Se os nomes das folhas forem alterados ou eliminados, a fórmula devolverá um erro #REF!; certifique-se sempre de que a lista de nomes das folhas está correta. Em livros maiores, as fórmulas com base em INDIRECTO podem afetar negativamente o desempenho do seu livro.
Resolução de problemas: Se surgirem erros, verifique se todas as folhas referenciadas existem e se o intervalo de pesquisa está correto. Para listas dinâmicas de folhas, considere utilizar intervalos com nome ou Validação de Dados para manter automaticamente a lista de folhas atualizada.
Artigos relacionados:
- Como localizar e substituir rapidamente em várias folhas de cálculo ou em todo o livro?
- Como localizar e substituir rapidamente em vários ficheiros do Excel abertos?
- Como encontrar o maior valor negativo (inferior a 0) no Excel?
- Como extrair todos os duplicados de uma coluna 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