Cum să căutați rapid o valoare în mai multe foi sau registre de lucru?

Ați avut vreodată nevoie să căutați o anumită valoare pe mai multe foi sau chiar diferite registre de lucru în Excel? Acest tutorial vă va ghida prin diferite metode pentru a căuta în mod eficient date, indiferent dacă lucrați într-un singur registru de lucru sau în mai multe registre de lucru.

Căutați o valoare în mai multe foi ale unui registru de lucru cu funcția Găsiți și înlocuiți

Căutați o valoare în toate registrele de lucru ale unui folder cu VBA

Căutați rapid o valoare în mai multe registre de lucru deschise cu Kutools pentru Excel

Căutați o valoare în mai multe foi ale unui registru de lucru cu funcția Găsiți și înlocuiți

Cu Excel Găsiți și înlocuiți funcție, puteți găsi o anumită valoare pe mai multe foi.

1. Selectați mai multe file de pe care doriți să găsiți valoarea ținând apăsat butonul Ctrl și făcând clic pe foile de lucru din Bara de file Foaie unul câte unul. Vedeți captura de ecran:

2. Apoi apăsați Ctrl + F pentru a activa funcția Găsiți și înlocuiți și introduceți valoarea pe care doriți să o căutați în Gaseste ce casetă text sub Găsi , apoi faceți clic pe Găsiți toate pentru a enumera toate rezultatele. Vedeți captura de ecran:

Găsiți și înlocuiți fără efort valori în mai multe foi și registre de lucru

Kutools pentru Excele avansat Găsiți și înlocuiți caracteristica oferă o modalitate eficientă de căutare și înlocuire a valorilor în mai multe foi sau chiar în toate registrele de lucru deschise. Cu această caracteristică avansată, puteți economisi timp și elimina erorile atunci când lucrați cu seturi mari de date, făcând sarcinile dvs. Excel mai rapide și mai precise.

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de funcțiile AI gratuite permanent! Ia-L Acum

Căutați o valoare în toate registrele de lucru ale unui folder cu VBA

Dacă doriți să căutați o valoare în toate registrele de lucru închise dintr-un folder, puteți utiliza doar un VBA pentru a face acest lucru.

1. Activați un registru de lucru nou și selectați o celulă, apoi apăsați Alt + F11 tastele pentru a deschide Microsoft Visual pentru aplicații de bază fereastră.

2. clic Insera > Module și lipiți sub VBA în noua fereastră a modulului.

VBA: Căutați o valoare în toate registrele de lucru ale unui folder.

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. Apoi apăsați F5 cheie sau Alerga pentru a executa acest VBA și a Selectați un folder apare o fereastră de dialog pentru a vă reaminti să selectați un folder din care doriți să căutați valoarea. Vedeți captura de ecran:

4. clic OK, iar un alt dialog va apărea pentru a vă informa despre numărul de celule care au fost găsite. Vedeți captura de ecran:

5. clic OK la închide și toate celulele găsite sunt listate în foaia de lucru curentă cu informațiile corespunzătoare.

Sfat: În VBA de mai sus, căutați valoarea „KTE”, și vă puteți schimba „KTE” Din acest xStrSearch = "KTE" la o altă valoare după cum aveți nevoie.

Căutați rapid o valoare în mai multe registre de lucru deschise cu Kutools pentru Excel

Dacă doriți doar să căutați o valoare în mai multe registre de lucru deschise, puteți utiliza Kutools pentru Excel 's avansat Găsiți și înlocuiți utilitate.

1. Într-unul din registrele de lucru deschise, faceți clic pe Kutools > Navigare, apoi faceți clic pe Găsiți și înlocuiți buton  a merge la Găsiți și înlocuiți panou. Vedeți captura de ecran:

2. Apoi apasa Găsi și introduceți valoarea pe care doriți să o căutați în Gaseste ce caseta text, apoi selectați Toate registrele de lucru de la În lista verticală și accesați clic Găsiți toate pentru a lista toate celulele găsite. Vedeți captura de ecran:

Sfat:

cu Kutools pentru Excele avansat Găsiți și înlocuiți utilitar, puteți căuta și înlocui valoarea în foile selectate în mai multe registre de lucru, toate registrele de lucru, registrul de lucru activ, foaia activă sau selecția.

Demo: Căutare valoare în mai multe cărți de lucru deschise cu Kutools pentru Excel

Articole pe aceeaşi temă:

• Cum să găsiți și să înlocuiți rapid mai multe foi de lucru sau întregul registru de lucru?
• Cum să găsiți și să înlocuiți rapid în mai multe fișiere Excel deschise?
• Cum se găsește cea mai mare valoare negativă (mai mică de 0) în Excel?
• Cum se extrag toate duplicatele dintr-o coloană din Excel?