Πώς να διαγράψετε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή στο 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 SubNote: Στον παραπάνω κώδικα,> 30000 σημαίνει ότι θα διαγράψετε σειρές εάν τα κελιά είναι μεγαλύτερα από 30000 σε μια καθορισμένη στήλη. Εάν θέλετε να διαγράψετε σειρές εάν τα κελιά είναι μικρότερα από μια συγκεκριμένη τιμή, αλλάξτε το σύμβολο> σε <και, στη συνέχεια, καθορίστε την τιμή σας.
3. Τύπος F5 για να εκτελέσετε τον κωδικό, στο αναδυόμενο παράθυρο Kutools για Excel πλαίσιο διαλόγου, επιλέξτε το εύρος (μία στήλη) που θα βρείτε εάν τα κελιά σε αυτήν τη στήλη είναι μεγαλύτερα ή μικρότερα από μια συγκεκριμένη τιμή. Και μετά κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
Στη συνέχεια, όλες οι σειρές με τιμή κελιού μεγαλύτερη από 30000 στη στήλη D διαγράφονται αμέσως.
Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή με το Kutools για Excel
Η Επιλέξτε συγκεκριμένα κελιά χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει να επιλέξετε όλες τις σειρές με κελιά μεγαλύτερη ή μικρότερη από μια συγκεκριμένη τιμή σε μια καθορισμένη στήλη και, στη συνέχεια, μπορείτε να διαγράψετε χειροκίνητα όλες τις επιλεγμένες σειρές ταυτόχρονα.
Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.
1. Επιλέξτε τη στήλη με βάση την οποία θέλετε να διαγράψετε σειρές και, στη συνέχεια, κάντε κλικ στο Kutools > Αγορά > Επιλέξτε συγκεκριμένα κελιά. Δείτε το στιγμιότυπο οθόνης:
2. Στο Επιλέξτε συγκεκριμένα κελιά πλαίσιο διαλόγου, επιλέξτε Ολόκληρη σειρά στο Τύπος επιλογής Ενότητα. Στο Ειδικός τύπος , επιλέξτε Μεγαλύτερος από or Λιγότερο από από την πρώτη αναπτυσσόμενη λίστα, εισαγάγετε τη συγκεκριμένη τιμή στο επόμενο πλαίσιο κειμένου και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
3. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας πει πόσες σειρές έχουν επιλεγεί, κάντε κλικ στο OK κουμπί. Και μπορείτε να δείτε ότι όλες οι σειρές με τιμή μεγαλύτερη από 30000 στη στήλη D επιλέγονται αμέσως.
4. Κάντε δεξί κλικ σε μία από τις επιλεγμένες σειρές και μετά κάντε κλικ στο Διαγραφή από το μενού με δεξί κλικ. Και όλες οι επιλεγμένες σειρές διαγράφονται.
Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή με το Kutoos για Excel
Εκτός από τις παραπάνω δύο μεθόδους, μπορείτε να φιλτράρετε όλες τις σειρές με κελιά μεγαλύτερη ή μικρότερη από μια συγκεκριμένη τιμή σε μια καθορισμένη στήλη και, στη συνέχεια, να καταργήσετε όλες τις φιλτραρισμένες σειρές με το Διαγραφή κρυφών (ορατών) γραμμών & στηλών χρησιμότητα του Kutools για Excel.
Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.
1. Επιλέξτε την κεφαλίδα της στήλης και, στη συνέχεια, κάντε κλικ στο ημερομηνία > Φίλτρα. Δείτε το στιγμιότυπο οθόνης:
2. Κάντε κλικ στο αναπτυσσόμενο βέλος στη στήλη βάσει της οποίας θα διαγράψετε σειρές και, στη συνέχεια, κάντε κλικ στο Φίλτρα αριθμού > Μεγαλύτερος από or Λιγότερο από όπως παρακάτω το στιγμιότυπο οθόνης:
3. Στο Προσαρμοσμένο αυτόματο φίλτρο πλαίσιο διαλόγου, εισαγάγετε τον συγκεκριμένο αριθμό αφού το πλαίσιο είναι μεγαλύτερο ή μικρότερο από το πλαίσιο και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
4. Στη συνέχεια, όλες οι σειρές με ορισμένα κελιά που είναι μεγαλύτερες ή μικρότερες από μια συγκεκριμένη τιμή στη στήλη D φιλτράρονται όλες. Μπορείτε να διαγράψετε όλες τις φιλτραρισμένες σειρές επιλέγοντας τα φιλτραρισμένα δεδομένα και στη συνέχεια κάντε κλικ Kutools > Διαγραφή > Διαγραφή κρυφών (ορατών) γραμμών και στηλών. Δείτε το στιγμιότυπο οθόνης:
5. Στο Διαγραφή κρυφών (ορατών) γραμμών και στηλών πλαίσιο διαλόγου, βεβαιωθείτε ότι το Σε επιλεγμένο εύρος επιλέγεται στο Κοιτάξτε μέσα αναπτυσσόμενη λίστα, επιλέξτε Γραμμές στο Διαγραφή τύπου ενότητα, καθορίστε την επιλογή Ορατές σειρές στο Λεπτομερής τύπος ενότητα και, τέλος, κάντε κλικ στο OK κουμπί.
6. Στη συνέχεια, όλες οι ορατές σειρές στο επιλεγμένο εύρος διαγράφονται αμέσως, μπορείτε να ακυρώσετε το φίλτρο κάνοντας κλικ ημερομηνία > Φίλτρα.
Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Διαγράψτε σειρές εάν το κελί είναι μεγαλύτερο / μικρότερο από μια συγκεκριμένη τιμή με το Kutools για Excel
Σχετικά άρθρα:
- Πώς να διαγράψετε όλες τις σειρές κάτω από συγκεκριμένη σειρά ή ενεργό κελί στο Excel;
- Πώς να διαγράψετε όλες τις σειρές εκτός από την πρώτη γραμμή κεφαλίδας στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
