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

Πώς να βρείτε και να διαγράψετε πολλές αντιστοιχίσεις ταυτόχρονα στο Excel;

Όταν εργάζεστε με μεγάλα δεδομένα στο Excel, είναι σημαντικό να μπορείτε να βρίσκετε γρήγορα τις πληροφορίες που χρειάζεστε ανά πάσα στιγμή. Και τότε είναι που χρειάζεστε τη δυνατότητα Εύρεση και αντικατάσταση, η οποία σας βοηθά να βρείτε και να επισημάνετε συγκεκριμένες τιμές ή μορφές στο ενεργό φύλλο ή ολόκληρο το βιβλίο εργασίας και στη συνέχεια να κάνετε ό,τι θέλετε με τα αποτελέσματα, ας πούμε, να τις διαγράψετε ή να τις αντικαταστήσετε. Ωστόσο, με το Find and Replace του Excel, μπορείτε να βρείτε μόνο μία τιμή κάθε φορά. Σε αυτό το σεμινάριο, θα εισαγάγω έναν γρήγορο τρόπο για να βρείτε πολλές διαφορετικές τιμές και να τις διαγράψετε ταυτόχρονα στο Excel.


Βρείτε και διαγράψτε πολλές αντιστοιχίσεις ταυτόχρονα με το VBA

Δημιουργήσαμε δύο κωδικούς VBA για να σας βοηθήσουμε να βρείτε πολλές διαφορετικές τιμές στην επιλεγμένη περιοχή ή σε πολλά φύλλα εργασίας και να τις διαγράψετε αμέσως. Ακολουθήστε τα παρακάτω βήματα και εκτελέστε τον κώδικα σύμφωνα με τις ανάγκες σας.

1. Στο Excel, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA 1: Βρείτε και διαγράψτε πολλές αντιστοιχίσεις στην επιλεγμένη περιοχή ταυτόχρονα

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

Σημείωση: Στο απόσπασμα xArrFinStr = Πίνακας ("πωλήσεις", "9", "@") στη 13η σειρά, θα πρέπει να αντικαταστήσετε "sales", "9", "@" με τις πραγματικές τιμές που θέλετε να βρείτε και να διαγράψετε, θυμηθείτε να περικλείετε κάθε τιμή με διπλά εισαγωγικά και να τις διαχωρίζετε με κόμματα.


Κωδικός VBA 2: Βρείτε και διαγράψτε πολλές αντιστοιχίσεις σε πολλά φύλλα ταυτόχρονα

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub
Σημείωση:
  • Στο απόσπασμα xArr = Πίνακας ("Φύλλο1", "Φύλλο2") στη 15η σειρά, θα πρέπει να αντικαταστήσετε "Φύλλο 1", "Φύλλο 2" με τα πραγματικά ονόματα των φύλλων όπου θέλετε να βρείτε και να διαγράψετε τις τιμές. Θυμηθείτε να εσωκλείσετε τα ονόματα κάθε φύλλου με διπλά εισαγωγικά και να τα διαχωρίσετε με κόμματα.
  • Στο απόσπασμα xArrFinStr = Πίνακας ("πωλήσεις", "9", "@") στη 16η σειρά, θα πρέπει να αντικαταστήσετε "sales", "9", "@" με τις πραγματικές τιμές που θέλετε να βρείτε και να διαγράψετε, θυμηθείτε να περικλείετε κάθε τιμή με διπλά εισαγωγικά και να τις διαχωρίζετε με κόμματα.

3. Τύπος F5 για να εκτελέσετε τον κώδικα VBA. Σημείωση: Εάν χρησιμοποιείτε το Κωδικός VBA 1, θα εμφανιστεί ένα παράθυρο διαλόγου που σας ζητά να επιλέξετε το εύρος όπου θα βρείτε και θα διαγράψετε τιμές. Μπορείτε επίσης να κάνετε κλικ σε μια καρτέλα φύλλου για να επιλέξετε ολόκληρο το φύλλο.

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

5. Οι καθορισμένες τιμές έχουν διαγραφεί αμέσως.


Βρείτε και διαγράψτε πολλές αντιστοιχίσεις ταυτόχρονα με τη λειτουργία Select Specific Cells

Το Kutools για Excel προσφέρει το Επιλέξτε συγκεκριμένα κελιά δυνατότητα εύρεσης τιμών που πληρούν μία ή δύο προϋποθέσεις που έχετε ορίσει ταυτόχρονα, διαβάστε παρακάτω για να μάθετε πώς μπορείτε να βρείτε και να διαγράψετε γρήγορα πολλές τιμές ταυτόχρονα.

1. Από την Kutools στην καρτέλα Επεξεργασία ομάδα, πατήστε Αγορά > Επιλέξτε συγκεκριμένα κελιά.

2. Στο αναδυόμενο παράθυρο Επιλέξτε συγκεκριμένα κελιά πλαίσιο διαλόγου, κάντε τα εξής:
  • Στο Επιλέξτε κελιά σε αυτό το εύρος πλαίσιο, κάντε κλικ στο κουμπί επιλογής εύρους στα δεξιά για να καθορίσετε το εύρος από πού να βρείτε και να διαγράψετε τιμές. Σημείωση: Για αναζήτηση σε ολόκληρο το φύλλο, κάντε κλικ στην καρτέλα του φύλλου.
  • Στο Τύπος επιλογής , επιλέξτε το Κύτταρο επιλογή.
  • Στο Ειδικός τύπος ενότητα, ορίστε το πολύ δύο προϋποθέσεις:
    • Κάντε κλικ στο αναπτυσσόμενο βέλος στην αριστερή πλευρά για να επιλέξετε μια σχέση που χρειάζεστε, όπως π.χ Περιέχει, ισούται, Λιγότερο από, Ξεκινάει μεΚ.λπ.
    • Πληκτρολογήστε την τιμή στο αντίστοιχο πλαίσιο σύμφωνα με τις ανάγκες σας.
    • Προσδιορίστε τη σχέση μεταξύ των δύο συνθηκών (εάν υπάρχουν): Και or Or.

3. κλικ Ok για να επιλέξετε τα κελιά που πληρούν τις συνθήκες που έχετε ορίσει. Εμφανίζεται ένα παράθυρο διαλόγου που σας λέει πόσα κελιά βρέθηκαν και επιλέχθηκαν.

4. κλικ OK. Τώρα, πατήστε το ΔΙΑΓΡΑΦΗ πλήκτρο για να διαγράψετε τις επιλεγμένες τιμές ταυτόχρονα.

Σημείωση: Για να χρησιμοποιήσετε το Επιλέξτε συγκεκριμένα κελιά χαρακτηριστικό, θα πρέπει να έχετε εγκατεστημένο το Kutools για Excel στον υπολογιστή σας. Εάν δεν έχετε εγκαταστήσει το Kutools, κάντε κλικ εδώ για λήψη και εγκατάσταση. Το επαγγελματικό πρόσθετο Excel προσφέρει δωρεάν δοκιμή 30 ημερών χωρίς περιορισμούς.


Βρείτε και διαγράψτε πολλές αντιστοιχίσεις ταυτόχρονα στο Excel


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

Εύρεση, επισήμανση, φίλτρο, καταμέτρηση, διαγραφή διπλότυπων στο Excel

Στο Excel, δημιουργούνται διπλά δεδομένα κατά καιρούς όταν καταγράφουμε δεδομένα χειροκίνητα, αντιγράφουμε δεδομένα από άλλες πηγές ή για άλλους λόγους. Μερικές φορές, τα αντίγραφα είναι απαραίτητα και χρήσιμα. Ωστόσο, μερικές φορές οι διπλές τιμές οδηγούν σε σφάλματα ή σε παρεξηγήσεις. Εδώ, αυτό το άρθρο θα εισαγάγει μεθόδους για γρήγορη αναγνώριση, επισήμανση, φιλτράρισμα, καταμέτρηση, διαγραφή διπλότυπων με τύπους, κανόνες μορφοποίησης υπό όρους, πρόσθετα τρίτων, κ.λπ. στο Excel.

Πώς να συγκρίνετε δύο στήλες και να διαγράψετε αντιστοιχίσεις στο Excel;

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

Πώς να διαγράψετε όλα τα εύρη εκτός από επιλεγμένα στο Excel;

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

Πώς να διαγράψετε όλες τις εικόνες σε μια σειρά κελιών;

Εάν υπάρχουν πολλές εικόνες στο φύλλο εργασίας σας, τώρα, θέλετε να διαγράψετε ορισμένες από αυτές σε ένα καθορισμένο εύρος, πώς το αντιμετωπίζετε γρήγορα;

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations