Μετάβαση στο κύριο περιεχόμενο

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

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

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

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

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


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

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

τιμή αναζήτησης εγγράφων σε πολλά φύλλα 1

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

τιμή αναζήτησης εγγράφων σε πολλά φύλλα 2


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

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

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

τιμή αναζήτησης εγγράφων σε πολλά φύλλα 3

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

τιμή αναζήτησης εγγράφων σε πολλά φύλλα 4

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

τιμή αναζήτησης εγγράφων σε πολλά φύλλα 5

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


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

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

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

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

τιμή αναζήτησης εγγράφων σε πολλά φύλλα 6

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

Συμβουλή:

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


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

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (18)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
program stops here:

Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
This comment was minimized by the moderator on the site
Hi, Mike, I have update the VBA in the article, please try again. If there is any problem, please let me know, thank you.
This comment was minimized by the moderator on the site
HI in my case worksheet with more than 1 Lakhs record, scripts failed.
This comment was minimized by the moderator on the site
Hi, Dhireesh, VBA code has its own limitation. You could try Kutools for Excel's Fiind and Replace, but it may run slowly, please be patience, and had better save the workbooks before.
This comment was minimized by the moderator on the site
How do i create hyperlink under column C for all cell values in the same code?
This comment was minimized by the moderator on the site
como generar códigos qr
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
me too I would like! :)
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Your code works great, I look for a code that finds two texts in excel files, do you know how is it possible?
This comment was minimized by the moderator on the site
Sorry, I have no idea on this problem, you can go to our forum https://www.extendoffice.com/forum.html to carry on the problem, maybe someone know the answer.
This comment was minimized by the moderator on the site
How can I add another column and bring the value that is always 3 columns to the right on the value found?
This comment was minimized by the moderator on the site
Did you ever figure this out? I need that as well.
This comment was minimized by the moderator on the site
Sorry I cannot help you, you can go to out forum https://www.extendoffice.com/forum.html to carry on the question, maybe someone can help you.
This comment was minimized by the moderator on the site
Thanks. It helped me a lot =)
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations