Come cercare rapidamente un valore in più fogli o cartelle di lavoro?
Hai mai immaginato di cercare un determinato valore in più fogli o cartelle di lavoro in Excel? Questo tutorial introduce alcuni metodi diversi per risolvere i problemi relativi alla ricerca in più fogli o alla ricerca in più cartelle di lavoro.
Cerca un valore in più fogli di una cartella di lavoro con la funzione Trova e sostituisci
Cerca un valore in tutte le cartelle di lavoro di una cartella con VBA
Cerca rapidamente un valore su più cartelle di lavoro aperte con Kutools per Excel
Cerca un valore in più fogli di una cartella di lavoro con la funzione Trova e sostituisci
Con Excel Trova e sostituisci funzione, puoi trovare un determinato valore su più fogli.
1. Selezionare più schede di fogli da cui si desidera trovare il valore tenendo premuto il tasto Ctrl e facendo clic sui fogli di lavoro nel file Barra delle schede del foglio uno per uno. Vedi screenshot:
2. Quindi premere Ctrl + F per abilitare il Trova e sostituisci e digita il valore che desideri cercare nel file Trova quello che casella di testo sotto Trovare Scheda, quindi fare clic su OK Trova tutto pulsante per elencare tutti i risultati. Vedi screenshot:
Trova e sostituisci il valore tra fogli e cartelle di lavoro
|
Kutools for Excelè avanzato Trova e sostituisci , può aiutarti a trovare e sostituire un valore su più fogli e cartelle di lavoro aperte. Scarica gratis |
Kutools per Excel: con oltre 300 pratici componenti aggiuntivi di Excel, provabili gratuitamente senza limitazioni in 30 giorni. |
Cerca un valore in tutte le cartelle di lavoro di una cartella con VBA
Se vuoi cercare un valore in tutte le cartelle di lavoro chiuse da una cartella, puoi solo applicare un VBA per risolverlo.
1. Abilitare una nuova cartella di lavoro e selezionare una cella, quindi premere Alt + F11 chiavi per aprire Microsoft Visual per applicazioni di base finestra.
2. Clic inserire > Moduli e incolla sotto VBA nella nuova finestra del modulo.
VBA: cerca un valore in tutte le cartelle di lavoro di una cartella.
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. Quindi premere F5 chiave o Correre pulsante per eseguire questo VBA e un Seleziona una cartella viene visualizzata la finestra di dialogo per ricordare di selezionare una cartella da cui si desidera cercare il valore. Vedi screenshot:
4. Quindi fare clic su OK e viene visualizzata un'altra finestra di dialogo per ricordarti che il numero di celle è stato trovato. Vedi screenshot:
5. Clic OK a close e tutte le celle trovate sono elencate nel foglio di lavoro corrente con le informazioni corrispondenti.
Mancia: In VBA sopra, cerchi il valore "KTE"e puoi cambiare "KTE" da questo xStrSearch = "KTE" a un altro valore di cui hai bisogno.
Cerca rapidamente un valore in più cartelle di lavoro aperte con Kutools per Excel
Se vuoi solo cercare un valore in più cartelle di lavoro aperte, puoi usare Kutools per Excel'è avanzato Trova e sostituisci utilità.
Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. | ||
Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:
1. In una delle cartelle di lavoro aperte, fare clic su Kutools > Navigazionee quindi fare clic su Trova e sostituisci pulsante andare Trova e sostituisci Pannello. Vedi screenshot:
2. Quindi fare clic Trovare scheda e digita il valore che desideri cercare nel file Trova quello che casella di testo, quindi seleziona Tutte le cartelle di lavoro dal Nel quadro di elenco a discesa e vai a fare clic Trova tutto per elencare tutte le celle trovate. Vedi screenshot:
Mancia:
Con Kutools for Excelè avanzato Trova e sostituisci utility, puoi cercare e sostituire il valore nei fogli selezionati su più cartelle di lavoro, tutte le cartelle di lavoro, cartella di lavoro attiva, foglio attivo o selezione.
Valore di ricerca in più cartelle di lavoro aperte
Articoli relativi:
- Come trovare e sostituire rapidamente su più fogli di lavoro o l'intera cartella di lavoro?
- Come trovare e sostituire rapidamente in più file Excel aperti?
- Come trovare il valore negativo più grande (inferiore a 0) in Excel?
- Come estrarre tutti i duplicati da una colonna in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!