Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
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 pratici componenti aggiuntivi di Excel, liberi di provare senza limiti nei giorni 60.

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:



Strumenti di produttività consigliati per Excel

Kutools per Excel ti aiuta a terminare sempre il lavoro in anticipo e a distinguerti dalla folla

  • Oltre alle potenti funzionalità avanzate 300, progettate per gli scenari di lavoro 1500, che aumentano la produttività di 70%, offre più tempo per prendersi cura della famiglia e godersi la vita.
  • Non è più necessario memorizzare formule e codici VBA, da ora in poi lasciare riposare il cervello.
  • Diventa un esperto di Excel in 3 minuti, operazioni complicate e ripetute possono essere eseguite in pochi secondi,
  • Riduci ogni giorno migliaia di operazioni con tastiera e mouse, per esempio addio alle malattie professionali.
  • 110,000 persone altamente efficaci e 300 + la scelta delle aziende di fama mondiale.
  • 60-day completa funzionalità di prova gratuita. Garanzie di rimborso 60-day. 2 anni di upgrade e supporto gratuiti.

Porta la navigazione e l'editing a schede in Microsoft Office, molto più potente delle schede del browser

  • Office Tab è progettato per Word, Excel, PowerPoint e altre applicazioni Office: Publisher, Access, Visio e Project.
  • 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!
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.
    MM · 7 months 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 · 11 months 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 · 11 months 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 =)