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

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

Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή με τον κώδικα VBA
Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή με το Kutools για Excel
Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή με το Kutoos για Excel

Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή με τον κώδικα VBA

Ας υποθέσουμε ότι θέλετε να διαγράψετε ολόκληρες σειρές εάν το κελί στη στήλη D είναι μεγαλύτερη ή μικρότερη από μια συγκεκριμένη τιμή στο Excel. Μπορείτε να εκτελέσετε τον ακόλουθο κώδικα VBA για να τον επιτύχετε.

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή στο Excel

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Σημείωση: Στον παραπάνω κώδικα,> 30000 σημαίνει ότι θα διαγράψετε σειρές εάν τα κελιά είναι μεγαλύτερα από 30000 σε μια καθορισμένη στήλη. Εάν θέλετε να διαγράψετε σειρές εάν τα κελιά είναι μικρότερα από μια συγκεκριμένη τιμή, αλλάξτε το σύμβολο> σε <και, στη συνέχεια, καθορίστε την τιμή σας.

3. Τύπος F5 για να εκτελέσετε τον κωδικό, στο αναδυόμενο παράθυρο Kutools για Excel πλαίσιο διαλόγου, επιλέξτε το εύρος (μία στήλη) που θα βρείτε εάν τα κελιά σε αυτήν τη στήλη είναι μεγαλύτερα ή μικρότερα από μια συγκεκριμένη τιμή. Και μετά κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, όλες οι σειρές με τιμή κελιού μεγαλύτερη από 30000 στη στήλη D διαγράφονται αμέσως.

Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή με το Kutools για Excel

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

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

2. Στο Επιλέξτε συγκεκριμένα κελιά πλαίσιο διαλόγου, επιλέξτε Ολόκληρη σειρά στο Τύπος επιλογής Ενότητα. Στο Ειδικός τύπος , επιλέξτε Μεγαλύτερος από or Λιγότερο από από την πρώτη αναπτυσσόμενη λίστα, εισαγάγετε τη συγκεκριμένη τιμή στο επόμενο πλαίσιο κειμένου και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

3. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας πει πόσες σειρές έχουν επιλεγεί, κάντε κλικ στο OK κουμπί. Και μπορείτε να δείτε ότι όλες οι σειρές με τιμή μεγαλύτερη από 30000 στη στήλη D επιλέγονται αμέσως.

4. Κάντε δεξί κλικ σε μία από τις επιλεγμένες σειρές και μετά κάντε κλικ στο Διαγραφή από το μενού με δεξί κλικ. Και όλες οι επιλεγμένες σειρές διαγράφονται.

Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή με το Kutoos για Excel

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

1. Επιλέξτε την κεφαλίδα της στήλης και, στη συνέχεια, κάντε κλικ στο ημερομηνία > Φίλτρα. Δείτε το στιγμιότυπο οθόνης:

2. Κάντε κλικ στο αναπτυσσόμενο βέλος στη στήλη βάσει της οποίας θα διαγράψετε σειρές και, στη συνέχεια, κάντε κλικ στο Φίλτρα αριθμού > Μεγαλύτερος από or Λιγότερο από όπως παρακάτω το στιγμιότυπο οθόνης:

3. Στο Προσαρμοσμένο αυτόματο φίλτρο πλαίσιο διαλόγου, εισαγάγετε τον συγκεκριμένο αριθμό αφού το πλαίσιο είναι μεγαλύτερο ή μικρότερο από το πλαίσιο και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

4. Στη συνέχεια, όλες οι σειρές με ορισμένα κελιά που είναι μεγαλύτερες ή μικρότερες από μια συγκεκριμένη τιμή στη στήλη D φιλτράρονται όλες. Μπορείτε να διαγράψετε όλες τις φιλτραρισμένες σειρές επιλέγοντας τα φιλτραρισμένα δεδομένα και στη συνέχεια κάντε κλικ Kutools > Διαγραφή > Διαγραφή κρυφών (ορατών) γραμμών και στηλών. Δείτε το στιγμιότυπο οθόνης:

5. Στο Διαγραφή κρυφών (ορατών) γραμμών και στηλών πλαίσιο διαλόγου, βεβαιωθείτε ότι το Σε επιλεγμένο εύρος επιλέγεται στο Κοιτάξτε μέσα αναπτυσσόμενη λίστα, επιλέξτε Γραμμές στο Διαγραφή τύπου ενότητα, καθορίστε την επιλογή Ορατές σειρές στο Λεπτομερής τύπος ενότητα και, τέλος, κάντε κλικ στο OK κουμπί.

6. Στη συνέχεια, όλες οι ορατές σειρές στο επιλεγμένο εύρος διαγράφονται αμέσως, μπορείτε να ακυρώσετε το φίλτρο κάνοντας κλικ ημερομηνία > Φίλτρα.

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

• Πώς να διαγράψετε όλες τις σειρές κάτω από συγκεκριμένη σειρά ή ενεργό κελί στο Excel;
• Πώς να διαγράψετε όλες τις σειρές εκτός από την πρώτη γραμμή κεφαλίδας στο Excel;