Como pesquisar rapidamente um valor em várias planilhas ou pastas de trabalho?
Você já imaginou pesquisar um determinado valor em várias planilhas ou pastas de trabalho no Excel? Este tutorial apresenta alguns métodos diferentes para resolver os problemas de pesquisa em várias planilhas ou em várias pastas de trabalho.
Pesquise um valor em várias planilhas de uma pasta de trabalho com a função Localizar e Substituir
Pesquise um valor em todas as pastas de trabalho de uma pasta com VBA
Pesquise rapidamente um valor em várias pastas de trabalho abertas com o Kutools para Excel
Pesquise um valor em várias planilhas de uma pasta de trabalho com a função Localizar e Substituir
Com Excel's Localizar e substituir função, você pode encontrar um determinado valor em várias folhas.
1. Selecione várias guias de folha das quais deseja encontrar o valor, segurando o Ctrl e clicando nas planilhas no Barra de guia de folha um por um. Veja a imagem:
2. Em seguida, pressione Ctrl + F para habilitar o Localizar e substituir janela e digite o valor que deseja pesquisar na Encontre o que caixa de texto sob Encontre Guia e, em seguida, clique em Encontrar tudo botão para listar todos os resultados. Veja a imagem:
Encontre e substitua o valor em planilhas e pastas de trabalho
|
Kutools for Excelé avançado Localizar e substituir , pode ajudá-lo a localizar e substituir um valor em várias planilhas e pastas de trabalho abertas. Download grátis |
Kutools para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Pesquise um valor em todas as pastas de trabalho de uma pasta com VBA
Se você deseja pesquisar um valor em todas as pastas de trabalho fechadas de uma pasta, só pode aplicar um VBA para resolvê-lo.
1. Habilite uma nova pasta de trabalho, selecione uma célula e pressione Alt + F11 chaves para abrir Microsoft Visual para aplicativos básicos janela.
2. Clique inserção > Módulo e cole abaixo do VBA na nova janela do módulo.
VBA: Pesquise um valor em todas as pastas de trabalho 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. Em seguida, pressione F5 chave ou Execute botão para executar este VBA, e um Selecione uma pasta A caixa de diálogo aparece para lembrá-lo de selecionar uma pasta na qual deseja pesquisar o valor. Veja a imagem:
4. E então clique OK e outra caixa de diálogo é exibida para lembrá-lo do número de células encontradas. Veja a imagem:
5. Clique OK para fechar ele, e todas as células encontradas são listadas na planilha atual com as informações correspondentes.
Dica: No VBA acima, você pesquisa o valor "KTE", e você pode mudar "KTE" disto xStrSearch = "KTE" para outro valor conforme necessário.
Pesquise rapidamente um valor em várias pastas de trabalho abertas com o Kutools para Excel
Se você deseja apenas pesquisar um valor em várias pastas de trabalho abertas, pode usar Kutools para Excel’é avançado Localizar e substituir utilidade.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. | ||
Depois de instalação grátis Kutools para Excel, faça o seguinte:
1. Em uma das pastas de trabalho abertas, clique em Kutools > Navegação, e depois clique no Localizar e substituir botão para ir para Localizar e substituir painel. Veja a imagem:
2. Então clique Encontre guia e digite o valor que deseja pesquisar na Encontre o que caixa de texto e selecione Todas as pastas de trabalho do Dentro lista suspensa e clique em Encontrar tudo para listar todas as células encontradas. Veja a imagem:
Dica:
Com o Kutools for Excelé avançado Localizar e substituir utilitário, você pode pesquisar e substituir o valor em planilhas selecionadas em várias pastas de trabalho, todas as pastas de trabalho, pasta de trabalho ativa, planilha ativa ou seleção.
Valor de pesquisa em várias pastas de trabalho abertas
Artigos relativos:
- Como localizar e substituir rapidamente em várias planilhas ou em toda a pasta de trabalho?
- Como localizar e substituir rapidamente em vários arquivos do Excel abertos?
- Como encontrar o maior valor negativo (menor que 0) no Excel?
- Como extrair todas as duplicatas de uma coluna no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!