Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Accedi
x
or
x
x
Registrati
x

or

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 tra più cartelle di lavoro aperte con Kutools per Excel buona idea3


Trova e sostituisci il valore tra fogli e cartelle di lavoro

Kutools for Excelè avanzato Trova e sostituisci funzione, può aiutarti a trovare e sostituire un valore tra più fogli e cartelle di lavoro aperte. Scarica gratis
doc trova attraverso le cartelle di lavoro
Kutools per Excel: con più di 300 utili componenti aggiuntivi di Excel, prova gratuita senza limiti nei giorni 30.

Con Excel Trova e sostituisci funzione, è possibile trovare un determinato valore su più fogli.

1. Seleziona più schede del foglio da cui desideri trovare il valore tenendo premuto il pulsante Ctrl chiave e facendo clic sui fogli di lavoro in Barra Scheda uno per uno. Vedi screenshot:

valore di ricerca doc in più fogli 1

2. Quindi premere Ctrl + F per abilitare il Trova e sostituisci finestra e digitare il valore che si desidera 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:

valore di ricerca doc in più fogli 2


Se si desidera cercare un valore in tutte le cartelle di lavoro chiuse da una cartella, è possibile solo applicare un VBA per risolverlo.

1. Abilita una nuova cartella di lavoro e seleziona una cella, quindi premi Alt + F11 chiavi per aprire Microsoft Visual per le applicazioni di base finestra.

2. Clic inserire > Modulo e incollare sotto VBA nella nuova finestra del modulo.

VBA: cerca un valore su tutte le cartelle di lavoro di una cartella.

Sub SearchFolders()
'UpdatebyKutoolsforExcel20151202
    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
    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 <> ""
            Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
            For Each xWk In xWb.Worksheets
                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
            Next
            xWb.Close (False)
            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 a Seleziona una cartella viene visualizzata una finestra di dialogo per ricordarti di selezionare una cartella da cui cercare il valore. Vedi screenshot:

valore di ricerca doc in più fogli 3

4. E poi clicca OK e viene visualizzata un'altra finestra di dialogo per ricordare il numero di celle trovate. Vedi screenshot:

valore di ricerca doc in più fogli 4

5. Clic OK a close e tutte le celle trovate sono elencate nel foglio di lavoro corrente con le informazioni corrispondenti.

valore di ricerca doc in più fogli 5

Mancia: In VBA sopra, si ricerca il valore “KTE”e puoi cambiare “KTE” da questo xStrSearch = "KTE" ad un altro valore di cui hai bisogno.


Se si desidera semplicemente cercare un valore tra più cartelle di lavoro aperte, è possibile utilizzare Kutools per Excel 's avanzato Trova e sostituisci utilità.

Kutools for Excel, con oltre 300 funzioni a portata di mano, rende più facile il lavoro.

Dopo installazione gratuita Kutools per Excel, si prega di fare come di seguito:

1. In una delle cartelle di lavoro aperte, fare clic su Kutools > Navigazionee quindi fare clic su Trova e sostituisci pulsante pulsante di ricerca doc andare Trova e sostituisci riquadro. Vedi screenshot:

valore di ricerca doc in più fogli 6

2. Quindi fare clic Trova scheda e digitare il valore che si desidera cercare nel file Trova quello che casella di testo, quindi selezionare 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:

valore di ricerca doc in più fogli 7

Mancia:

Con Kutools for Excelè avanzato Trova e sostituisci utilità, è possibile cercare e sostituire il valore in fogli selezionati su più cartelle di lavoro, tutte le cartelle di lavoro, cartella di lavoro attiva, foglio attivo o selezione.

valore di ricerca doc in più fogli 8


Navigazione a schede e modifica di più documenti di Word / cartelle di lavoro di Excel come Firefox, Chrome, Internet Esplora 10!

Potrebbe essere familiare visualizzare più pagine Web in Firefox / Chrome / IE e passare da una all'altra facendo clic sulle schede corrispondenti facilmente. Qui, Office Tab supporta l'elaborazione simile, che consente di sfogliare più documenti di Word o cartelle di lavoro di Excel in una finestra di Word o in una finestra di Excel e passare facilmente da una all'altra facendo clic sulle relative schede.
Clicca per la prova gratuita di Office Tab!

Sfoglia più documenti di parole in una finestra come Firefox

Articoli relativi:


Kutools per Excel risolve la maggior parte dei problemi e aumenta la produttività del 80%

  • Riutilizzo: Inserire rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Cifra le celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggere e modificare facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere i dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Previeni celle duplicate; Confronta le gamme...
  • Seleziona Duplica o Unica Righe; Seleziona righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molti libri di esercizi; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento alla formula; Creazione automatica di riferimenti a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • estrarre il testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare subtotali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtro ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale di grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle basate su colonne chiave; Dividi i dati in più fogli; Converti in batch xls, xlsx e PDF...
  • Oltre alle potenti funzionalità di 300. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzioni complete di prova gratuita di 30-day.
kte tab 201905

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, Editore, accesso, Visio e progetto.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la tua produttività di 50% e riduce centinaia di clic del mouse per te ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Rafael · 4 months ago
    como generar códigos qr
  • To post as a guest, your comment is unpublished.
    MM · 1 years ago
    Awesome this works perfect,
    Could you help me, I would like to create an hyperlink to each cell where the value was found.

    Thanks in advance
  • To post as a guest, your comment is unpublished.
    James · 1 years ago
    Perfect for what I need except for the fact that it creates a new sheet every search. How would I modify the code to use a single sheet for each search instead of creating a new one? Thanks, James
  • To post as a guest, your comment is unpublished.
    Ray · 1 years ago
    Your code works great, I look for a code that finds two texts in excel files, do you know how is it possible?
  • To post as a guest, your comment is unpublished.
    Matt Sabin · 1 years ago
    How can I add another column and bring the value that is always 3 columns to the right on the value found?
  • To post as a guest, your comment is unpublished.
    André · 1 years ago
    Thanks. It helped me a lot =)
  • To post as a guest, your comment is unpublished.
    Orlando B · 1 years ago
    This is what i want it to return "Site Instruction" which is allocated to all Text in Cell
    Workbook Worksheet Cell Text in Cell Site Instruction
    Shift report Emicc 01-10-17.xlsx Sheet1 $D$20 CMS install 1773
    Shift report Emicc 01-10-17.xlsx Sheet1 $D$21 CMS install 1763
    Shift report Emicc 01-10-17.xlsx Sheet1 $D$24 CMS install 1551
  • To post as a guest, your comment is unpublished.
    Orlando B · 1 years ago
    Thanks for that VBA, it works perfectly to search multiple excel files, however it is possible to get it to return a 5th Column with Reference number? 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
    .Cells(xRow, 5) = ???
  • To post as a guest, your comment is unpublished.
    Orly B · 1 years ago
    Thanks for that VBA, it works perfectly to search multiple excel files, however it is possible to get it to return a 5th Column with Reference number? 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
    .Cells(xRow, 5) = ???