Στο Excel, μπορείτε να εφαρμόσετε την ισχυρή δυνατότητα εύρεσης και αντικατάστασης για να αφαιρέσετε εύκολα γραμμές με βάση μια συγκεκριμένη τιμή κελιού. Κάντε τα εξής:

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

2. Στο παράθυρο διαλόγου Εύρεση και αντικατάσταση, πληκτρολογήστε τη συγκεκριμένη τιμή κελιού (στην περίπτωσή μας, εισάγουμε το Σο) μέσα στο Find what και κάντε κλικ στο Find All κουμπί. Δείτε το πρώτο στιγμιότυπο οθόνης παρακάτω:

3. Επιλέξτε όλα τα αποτελέσματα αναζήτησης στο κάτω μέρος του πλαισίου διαλόγου Εύρεση και αντικατάσταση και κλείστε αυτό το πλαίσιο διαλόγου. (Note: Μπορείτε να επιλέξετε ένα από τα αποτελέσματα αναζήτησης και μετά Ctrl + A πλήκτρα για να επιλέξετε όλα τα αποτελέσματα που βρέθηκαν. Δείτε το δεύτερο στιγμιότυπο οθόνης παραπάνω.)
Και μετά μπορείτε να δείτε όλα τα κελιά που περιέχουν τη συγκεκριμένη τιμή είναι επιλεγμένα.

4. Προχωρήστε για να κάνετε δεξί κλικ σε επιλεγμένα κελιά και επιλέξτε το Delete από το μενού με δεξί κλικ. Και μετά ελέγξτε το Entire row επιλογή στο αναδυόμενο παράθυρο διαλόγου Διαγραφή και κάντε κλικ στο OK κουμπί. Τώρα θα δείτε όλα τα κελιά που περιέχουν τη συγκεκριμένη τιμή να αφαιρούνται. Δείτε στιγμιότυπα οθόνης παρακάτω:

Και τότε ολόκληρες σειρές έχουν διαγραφεί με βάση τη συγκεκριμένη τιμή ήδη.

Με τον ακόλουθο κώδικα VBA, μπορείτε να διαγράψετε γρήγορα τις σειρές με συγκεκριμένη τιμή κελιού, κάντε τα ακόλουθα βήματα:

1. πάτα το Alt + F11 ταυτόχρονα για να ανοίξετε Microsoft Visual Basic for applications παράθυρο,

2. Κλίκ Insert > Moduleκαι εισαγάγετε τον ακόλουθο κώδικα στην Ενότητα:

VBA: Κατάργηση ολόκληρων σειρών με βάση την τιμή κελιού

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Στη συνέχεια, κάντε κλικ στο Run κουμπί για να εκτελέσετε τον κωδικό.

4. Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε το εύρος όπου θα καταργήσετε τις σειρές με βάση τη συγκεκριμένη τιμή και κάντε κλικ στο OK κουμπί.

5. Σε ένα άλλο παράθυρο διαλόγου, πληκτρολογήστε τη συγκεκριμένη τιμή στην οποία θα αφαιρέσετε τις γραμμές βάσει και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Και τότε θα δείτε ότι ολόκληρες σειρές έχουν διαγραφεί βάσει της καθορισμένης τιμής ήδη.

Εάν έχετε εγκαταστήσει Kutools for Excel, της Select Specific Cells Η δυνατότητα μπορεί να σας βοηθήσει να διαγράψετε γρήγορα τις σειρές με συγκεκριμένη τιμή. Κάντε τα εξής:

1. Επιλέξτε το εύρος που θα καταργήσετε σειρές με βάση τη συγκεκριμένη τιμή και κάντε κλικ στο Kutools > Select > Select Specific Cells. Δείτε το στιγμιότυπο οθόνης:

2. Στο πλαίσιο διαλόγου Επιλογή καθορισμένων κελιών, ελέγξτε Entire row επιλογή, επιλέξτε Contains από Specific type αναπτυσσόμενη λίστα, εισαγάγετε την καθορισμένη τιμή στο δεξί πλαίσιο και κάντε κλικ στο Ok κουμπί (Δείτε το παραπάνω στιγμιότυπο οθόνης).
Μετά την εφαρμογή αυτής της δυνατότητας, θα εμφανιστεί ένα παράθυρο διαλόγου και θα σας δείξει πόσα κελιά έχουν βρεθεί με βάση τα καθορισμένα κριτήρια. Κάντε κλικ στο OK για να το κλείσετε.

3. Τώρα επιλέγονται ολόκληρες σειρές με τη συγκεκριμένη τιμή. Κάντε δεξί κλικ στις επιλεγμένες σειρές και κάντε κλικ στο Delete από το μενού με δεξί κλικ. Δείτε το στιγμιότυπο οθόνης παρακάτω:

Note: Αυτό Select Specific Cells Η δυνατότητα υποστηρίζει τη διαγραφή σειρών κατά μία ή δύο συγκεκριμένες τιμές. Για τη διαγραφή σειρών βάσει δύο καθορισμένων τιμών, προσδιορίστε μια άλλη τιμή στο Specific type ενότητα του πλαισίου διαλόγου Επιλογή συγκεκριμένων κελιών όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

Σε ορισμένες περιπτώσεις, ενδέχεται να χρειαστεί να καταργήσετε σειρές με βάση πολλές τιμές κελιών από μια άλλη στήλη / λίστα στο Excel. Εδώ θα σας παρουσιάσω Kutools for Excel's Select Same & Different Cells χαρακτηριστικό για γρήγορη επίλυση με ευκολία.

1. Κλίκ Kutools > Select > Select Same & Different Cells για να ανοίξετε το παράθυρο διαλόγου Select Same & Different Cells.

2. Στο άνοιγμα Select Same & Different Cells πλαίσιο διαλόγου, κάντε τα εξής (δείτε το στιγμιότυπο οθόνης):

(1) Στο Find values in πλαίσιο, επιλέξτε τη στήλη όπου θα βρείτε τις συγκεκριμένες τιμές.
(2) Στο According to πλαίσιο, επιλέξτε τη στήλη / λίστα με πολλές τιμές στις οποίες θα διαγράψετε σειρές με βάση?
(3) Στο Based on ενότητα, παρακαλούμε ελέγξτε το Each row επιλογή;
(4) Στο Find ενότητα, παρακαλούμε ελέγξτε το Same Values επιλογή;
(5) Ελέγξτε το Select entire rows επιλογή στο κάτω μέρος του ανοίγματος διαλόγου.
Note: Εάν δύο καθορισμένες στήλες περιέχουν την ίδια κεφαλίδα, ελέγξτε το My data has headers επιλογή.

3. Κάντε κλικ στο Ok κουμπί για να εφαρμόσετε αυτό το βοηθητικό πρόγραμμα. Και έπειτα βγαίνει ένα παράθυρο διαλόγου και δείχνει πόσες σειρές έχουν επιλεγεί. Απλώς κάντε κλικ στο OK για να το κλείσετε.

Και τότε έχουν επιλεγεί όλες οι σειρές που περιέχουν τιμές μεταξύ της καθορισμένης λίστας.

4. Κλίκ Home > Delete > Delete Sheet Rows για να διαγράψετε όλες τις επιλεγμένες σειρές.