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 Trova 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 più di 300 utili componenti aggiuntivi di Excel, liberi di provare 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 > Modulo 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 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 Trova 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 una lunga 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
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
