Πώς να αναζητήσετε γρήγορα μια τιμή σε πολλά φύλλα ή βιβλία εργασίας;

Έχετε ποτέ απεικονίσει να αναζητήσετε μια συγκεκριμένη τιμή σε πολλά φύλλα ή βιβλία εργασίας στο Excel; Αυτό το σεμινάριο εισάγει μερικές διαφορετικές μεθόδους για την επίλυση των προβλημάτων σχετικά με την αναζήτηση σε πολλά φύλλα ή την αναζήτηση σε πολλά βιβλία εργασίας.

Αναζήτηση τιμής σε πολλά φύλλα ενός βιβλίου εργασίας με τη λειτουργία Εύρεση και αντικατάσταση

Αναζητήστε μια τιμή σε όλα τα βιβλία εργασίας ενός φακέλου με VBA

Αναζητήστε γρήγορα μια τιμή σε πολλά ανοιχτά βιβλία εργασίας με το Kutools για Excel

  Αναζήτηση τιμής σε πολλά φύλλα ενός βιβλίου εργασίας με τη λειτουργία Εύρεση και αντικατάσταση

Με το Excel Εύρεση και αντικατάσταση συνάρτηση, μπορείτε να βρείτε μια συγκεκριμένη τιμή σε πολλά φύλλα.

1. Επιλέξτε πολλές καρτέλες φύλλων από τις οποίες θέλετε να βρείτε τιμή κρατώντας πατημένο το Ctrl κλειδί και κάνοντας κλικ στα φύλλα εργασίας στο Γραμμή καρτέλας φύλλου ένα ένα. Δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια πατήστε Ctrl + F για να ενεργοποιήσετε το Εύρεση και αντικατάσταση παράθυρο και πληκτρολογήστε την τιμή που θέλετε να αναζητήσετε στο βρείτε αυτό πλαίσιο κειμένου κάτω Εύρεση , και στη συνέχεια κάντε κλικ στο κουμπί OK Βρείτε όλα κουμπί για να εμφανίσετε όλα τα αποτελέσματα. Δείτε το στιγμιότυπο οθόνης:

Βρείτε και αντικαταστήστε την τιμή σε φύλλα και βιβλία εργασίας

Kutools για Excelείναι προχωρημένο Εύρεση και αντικατάσταση λειτουργία, μπορεί να σας βοηθήσει να βρείτε και να αντικαταστήσετε μια τιμή σε πολλά φύλλα και ανοιχτά βιβλία εργασίας.  Δωρεάν κατέβασμα

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες.

Αναζητήστε μια τιμή σε όλα τα βιβλία εργασίας ενός φακέλου με VBA

Εάν θέλετε να αναζητήσετε μια τιμή σε όλα τα κλειστά βιβλία εργασίας από ένα φάκελο, μπορείτε να εφαρμόσετε μόνο ένα VBA για να το λύσετε.

1. Ενεργοποιήστε ένα νέο βιβλίο εργασίας και επιλέξτε ένα κελί και, στη συνέχεια, πατήστε Alt + F11 κλειδιά για άνοιγμα Microsoft Visual για βασικές εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης και επικολλήστε κάτω από το VBA στο νέο παράθυρο Module.

VBA: Αναζήτηση τιμής σε όλα τα βιβλία εργασίας ενός φακέλου.

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. Στη συνέχεια, πατήστε F5 κλειδί ή τρέξιμο κουμπί για την εκτέλεση αυτού του VBA, και a Επιλέξτε ένα φάκελο εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει να επιλέξετε έναν φάκελο από τον οποίο θέλετε να αναζητήσετε αξία. Δείτε το στιγμιότυπο οθόνης:

4. Και μετά κάντε κλικ στο OK και ένας άλλος διάλογος εμφανίζεται για να σας υπενθυμίσει τον αριθμό των κελιών που έχουν βρεθεί. Δείτε το στιγμιότυπο οθόνης:

5. κλικ OK προς την κοντά αυτό, και όλα τα κελιά που βρέθηκαν περιλαμβάνονται στο τρέχον φύλλο εργασίας με τις αντίστοιχες πληροφορίες.

Συμβουλή: Στο παραπάνω VBA, αναζητάτε την τιμή «ΚΤΕ»και μπορείτε να αλλάξετε «ΚΤΕ» από αυτό xStrSearch = "KTE" σε άλλη τιμή όπως χρειάζεστε.

Αναζητήστε γρήγορα μια τιμή σε πολλά ανοιχτά βιβλία εργασίας με το Kutools για Excel

Εάν θέλετε απλώς να αναζητήσετε μια τιμή σε πολλά ανοιχτά βιβλία εργασίας, μπορείτε να χρησιμοποιήσετε Kutools για Excel 'προχωρημένο Εύρεση και αντικατάσταση χρησιμότητα.

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Σε ένα από τα ανοιχτά βιβλία εργασίας, κάντε κλικ στο Kutools > Πλοήγηση, και στη συνέχεια κάντε κλικ στο κουμπί Εύρεση και αντικατάσταση κουμπί  να παω σε Εύρεση και αντικατάσταση τζάμι. Δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια κάντε κλικ στο κουμπί Εύρεση και πληκτρολογήστε την τιμή που θέλετε να αναζητήσετε στο βρείτε αυτό πλαίσιο κειμένου και, στη συνέχεια, επιλέξτε Όλα τα βιβλία εργασίας από το Εντός αναπτυσσόμενη λίστα και μεταβείτε στο κλικ Βρείτε όλα για να εμφανίσετε όλα τα κελιά που βρέθηκαν. Δείτε το στιγμιότυπο οθόνης:

Συμβουλή:

Με Kutools για Excelείναι προχωρημένο Εύρεση και αντικατάσταση βοηθητικό πρόγραμμα, μπορείτε να αναζητήσετε και να αντικαταστήσετε την τιμή σε επιλεγμένα φύλλα σε πολλά βιβλία εργασίας, όλα τα βιβλία εργασίας, ενεργό βιβλίο εργασίας, ενεργό φύλλο ή επιλογή.

  Αξία αναζήτησης σε πολλά βιβλία εργασίας που έχουν ανοίξει

Σχετικά άρθρα:

• Πώς να βρείτε γρήγορα και να αντικαταστήσετε πολλά φύλλα εργασίας ή ολόκληρο το βιβλίο εργασίας;
• Πώς να βρείτε γρήγορα και να αντικαταστήσετε σε πολλά αρχεία Excel που έχουν ανοίξει;
• Πώς να βρείτε τη μεγαλύτερη αρνητική τιμή (λιγότερο από 0) στο Excel;
• Πώς να εξαγάγετε όλα τα διπλότυπα από μια στήλη στο Excel;