Πώς να διαγράψετε σειρές με αρνητικές τιμές στο Excel;
Ας υποθέσουμε ότι έχετε το ακόλουθο εύρος δεδομένων και θέλετε να διαγράψετε ολόκληρες τις σειρές εάν ο αριθμός είναι αρνητικός στη στήλη Β, υπάρχουν καλές μέθοδοι για την επίλυση αυτού του προβλήματος στο Excel;
 |
 |
 |
Διαγράψτε σειρές με αρνητικούς αριθμούς χρησιμοποιώντας τον κωδικό VBA Διαγράψτε σειρές με αρνητικούς αριθμούς χρησιμοποιώντας το Kutools για Excel |
Διαγράψτε σειρές με αρνητικούς αριθμούς χρησιμοποιώντας τον κωδικό VBA
Ο ακόλουθος κωδικός VBA μπορεί να σας βοηθήσει να διαγράψετε ολόκληρες τις σειρές εάν υπάρχουν αρνητικοί αριθμοί σε μια συγκεκριμένη στήλη, κάντε τα εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Διαγραφή σειρών με αρνητικούς αριθμούς
Sub Deleter()
'updatebyExtendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
3. Και στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, στο πλαίσιο προτροπής, επιλέξτε τη στήλη αριθμών από την οποία θέλετε να βρείτε τους αρνητικούς αριθμούς, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, οι σειρές με αρνητικούς αριθμούς έχουν διαγραφεί ταυτόχρονα.
Διαγράψτε σειρές με αρνητικούς αριθμούς χρησιμοποιώντας το Kutools για Excel
Για να χειριστείτε αυτήν τη δουλειά, Kutools για Excel'S Επιλέξτε συγκεκριμένα κελιά Η δυνατότητα μπορεί επίσης να σας βοηθήσει, με αυτό το βοηθητικό πρόγραμμα, μπορείτε να επιλέξετε πρώτα ολόκληρες τις σειρές που περιέχουν τις αρνητικές τιμές και, στη συνέχεια, να διαγράψετε ολόκληρες τις σειρές όπως χρειάζεστε.
| Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:
1. Επιλέξτε τη στήλη που περιέχει αρνητικούς αριθμούς που θέλετε να διαγράψετε.
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Αγορά > Επιλέξτε συγκεκριμένα κελιά, δείτε το στιγμιότυπο οθόνης:
3. Στην Επιλέξτε συγκεκριμένα κελιά , επιλέξτε Ολόκληρη σειρά επιλογή του Τύπος επιλογής, και στη συνέχεια επιλέξτε Λιγότερο από από το Ειδικός τύπος και εισάγετε 0 στο πλαίσιο κειμένου δίπλα στα κριτήρια, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί Ok, οι γραμμές που περιέχουν αρνητικούς αριθμούς έχουν επιλεγεί ταυτόχρονα και, στη συνέχεια, κάντε κλικ στο Αρχική > Διαγραφή > Διαγραφή σειρών φύλλων για να διαγράψετε τις επιλεγμένες σειρές όπως χρειάζεστε, δείτε στιγμιότυπα οθόνης:
 |
|
 |
Συμβουλές： Μπορείτε επίσης να κάνετε δεξί κλικ για να επιλέξετε Διαγραφή από το μενού περιβάλλοντος για να διαγράψετε τις επιλεγμένες σειρές.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
