Πίνακας περιεχομένων
Σε αυτό το άρθρο παρατίθενται διάφοροι τρόποι διαγραφής γραμμών στο Excel με βάση μια τιμή κελιού. Σε αυτή τη δημοσίευση θα βρείτε πλήκτρα συντόμευσης καθώς και το Excel VBA. Διαγράψτε γραμμές αυτόματα ή χρησιμοποιήστε την τυπική επιλογή Εύρεση σε συνδυασμό με χρήσιμες συντομεύσεις.
Το Excel είναι ένα τέλειο εργαλείο για την αποθήκευση δεδομένων που αλλάζουν κάθε τόσο. Ωστόσο, η ενημέρωση του πίνακα σας μετά από κάποιες αλλαγές μπορεί να χρειαστεί πραγματικά πολύ χρόνο. Η εργασία μπορεί να είναι τόσο απλή όσο η αφαίρεση όλων των κενών γραμμών στο Excel. Ή μπορεί να χρειαστεί να βρείτε και να διαγράψετε τα διπλά δεδομένα. Ένα πράγμα που γνωρίζουμε σίγουρα είναι ότι κάθε φορά που έρχονται ή φεύγουν λεπτομέρειες, αναζητάτε την καλύτερη λύση που θα σας βοηθήσει να εξοικονομήσετε χρόνο στην τρέχουσαεργασία.
Για παράδειγμα, έχετε μια αγορά όπου διάφοροι πωλητές πωλούν τα προϊόντα τους. Για κάποιο λόγο ένας από τους πωλητές έκλεισε την επιχείρησή του και τώρα πρέπει να διαγράψετε όλες τις γραμμές που περιέχουν το όνομα του πωλητή, ακόμη και αν βρίσκονται σε διαφορετικές στήλες.
Σε αυτή τη δημοσίευση θα βρείτε το Excel VBA και συντομεύσεις για τη διαγραφή γραμμών με βάση συγκεκριμένο κείμενο ή τιμή. Θα δείτε πώς μπορείτε εύκολα να βρείτε και να επιλέξετε τις απαραίτητες πληροφορίες πριν από την αφαίρεση. Εάν η εργασία σας δεν αφορά τη διαγραφή αλλά την προσθήκη γραμμών, μπορείτε να βρείτε πώς να το κάνετε στο Γρηγορότεροι τρόποι εισαγωγής πολλαπλών γραμμών στο Excel.
Η ταχύτερη συντόμευση του Excel για τη διαγραφή γραμμών στον πίνακά σας
Αν θέλετε να χρησιμοποιήσετε την ταχύτερη μέθοδο διαγραφής πολλαπλών γραμμών ανάλογα με την τιμή του κελιού που περιέχουν, πρέπει πρώτα να επιλέξετε σωστά αυτές τις γραμμές.
Για να επιλέξετε τις γραμμές, μπορείτε είτε να επισημάνετε τα γειτονικά κελιά με τις απαραίτητες τιμές και να πατήσετε Shift + Space είτε να επιλέξετε τα απαραίτητα μη γειτονικά κελιά κρατώντας πατημένο το πλήκτρο Ctrl.
Μπορείτε επίσης να επιλέξετε ολόκληρες γραμμές χρησιμοποιώντας τα κουμπιά αριθμού γραμμών. Θα δείτε τον αριθμό των γραμμών που επισημαίνονται δίπλα στο τελευταίο κουμπί.
Αφού επιλέξετε τις απαραίτητες γραμμές, μπορείτε να τις αφαιρέσετε γρήγορα χρησιμοποιώντας μια συντόμευση "διαγραφή γραμμής" του Excel. Παρακάτω θα βρείτε πώς να απαλλαγείτε από τις επιλεγμένες γραμμές είτε έχετε έναν τυπικό πίνακα δεδομένων είτε έναν πίνακα που έχει δεδομένα στα δεξιά.
Αφαίρεση γραμμών από ολόκληρο τον πίνακα
Εάν έχετε μια απλή λίστα του Excel που δεν έχει πρόσθετες πληροφορίες στα δεξιά, μπορείτε να χρησιμοποιήσετε τη συντόμευση διαγραφής γραμμής για να αφαιρέσετε γραμμές σε 2 εύκολα βήματα:
- Πατήστε το πλήκτρο συντόμευσης Ctrl + - (μείον στο κύριο πληκτρολόγιο).
Θα δείτε τις αχρησιμοποίητες σειρές να εξαφανίζονται στο λεπτό.
Συμβουλή. Μπορείτε να επισημάνετε μόνο την περιοχή που περιέχει τις τιμές που θέλετε να αφαιρέσετε. Στη συνέχεια, χρησιμοποιήστε τη συντόμευση Ctrl + - (μείον στο κύριο πληκτρολόγιο) για να λάβετε το τυπικό Excel Διαγραφή παράθυρο διαλόγου που σας επιτρέπει να επιλέξετε το Ολόκληρη σειρά κουμπί επιλογής, ή οποιαδήποτε άλλη επιλογή διαγραφής που μπορεί να χρειαστείτε.
Διαγράψτε γραμμές εάν υπάρχουν δεδομένα στα δεξιά του πίνακα σας
Η συντόμευση Ctrl + - (μείον στο κύριο πληκτρολόγιο) του Excel είναι το ταχύτερο μέσο για τη διαγραφή γραμμών. Ωστόσο, εάν υπάρχουν δεδομένα στα δεξιά του κύριου πίνακα όπως στο παρακάτω στιγμιότυπο, μπορεί να αφαιρέσει γραμμές μαζί με τα στοιχεία που πρέπει να διατηρήσετε.
Αν είναι αυτή η περίπτωσή σας, πρέπει να μορφοποιήσετε τα δεδομένα σας ως Πίνακας Excel πρώτον.
- Πατήστε Ctrl + T , ή μεταβείτε στο Αρχική καρτέλα -> Μορφοποίηση ως πίνακας και επιλέξτε το στυλ που σας ταιριάζει καλύτερα.
Θα δείτε το Δημιουργία πίνακα παράθυρο διαλόγου το οποίο μπορείτε να χρησιμοποιήσετε για να επισημάνετε το απαραίτητο εύρος.
Σημείωση: Βεβαιωθείτε ότι δεν χρησιμοποιείτε τα κουμπιά γραμμών για να επιλέξετε ολόκληρες γραμμές.
Ελπίζω να βρήκατε αυτή τη συντόμευση "αφαίρεση γραμμής" χρήσιμη. Συνεχίστε να διαβάζετε για να βρείτε το Excel VBA για τη διαγραφή γραμμών και να μάθετε πώς να εξαλείφετε δεδομένα με βάση συγκεκριμένο κείμενο κελιού.
Διαγραφή γραμμών που περιέχουν συγκεκριμένο κείμενο σε μία μόνο στήλη
Εάν τα στοιχεία στις γραμμές που θέλετε να αφαιρέσετε εμφανίζονται μόνο σε μία στήλη, τα παρακάτω βήματα θα σας καθοδηγήσουν στη διαδικασία διαγραφής των γραμμών με αυτές τις τιμές.
- Πρώτα πρέπει να εφαρμόσετε το Filter στον πίνακα σας. Για να το κάνετε αυτό, μεταβείτε στο Δεδομένα στο Excel και κάντε κλικ στην καρτέλα Φίλτρο εικονίδιο.
Τέλος, κάντε κλικ στο Φίλτρο για να το καθαρίσετε και θα δείτε ότι οι γραμμές με τις τιμές εξαφανίστηκαν από τον πίνακα σας.
Πώς να αφαιρέσετε γραμμές στο Excel με το χρώμα του κελιού
Η επιλογή φίλτρου επιτρέπει την ταξινόμηση των δεδομένων σας με βάση το χρώμα των κελιών. Μπορείτε να τη χρησιμοποιήσετε για να διαγράψετε όλες τις γραμμές που περιέχουν συγκεκριμένο χρώμα φόντου.
- Εφαρμογή Φίλτρο στο τραπέζι σας. Πηγαίνετε στο Δεδομένα στο Excel και κάντε κλικ στην καρτέλα Φίλτρο εικονίδιο.
Αυτό είναι! Οι σειρές με τα κελιά ίδιου χρώματος αφαιρούνται στη στιγμή.
Διαγραφή γραμμών που περιέχουν συγκεκριμένο κείμενο σε διαφορετικές στήλες
Εάν οι τιμές που θέλετε να αφαιρέσετε είναι διασκορπισμένες σε διαφορετικές στήλες, η ταξινόμηση μπορεί να περιπλέξει το έργο. Παρακάτω θα βρείτε μια χρήσιμη συμβουλή για την αφαίρεση γραμμών με βάση τα κελιά που περιέχουν συγκεκριμένες τιμές ή κείμενο. Από τον παρακάτω πίνακα μου, θέλω να αφαιρέσω όλες τις γραμμές που περιέχουν τον Ιανουάριο, ο οποίος εμφανίζεται σε 2 στήλες.
- Ξεκινήστε αναζητώντας και επιλέγοντας τα κελιά με την απαιτούμενη τιμή χρησιμοποιώντας την επιλογή Εύρεση και αντικατάσταση διάλογος. Κάντε κλικ Ctrl + F για να το τρέξετε.
Συμβουλή. Μπορείτε να βρείτε το ίδιο παράθυρο διαλόγου αν μεταβείτε στο Αρχική καρτέλα -> Εύρεση & επιλογή και επιλέξτε το Βρείτε το από την αναπτυσσόμενη λίστα.
- Εισάγετε την απαιτούμενη τιμή στο πεδίο Βρείτε τι και επιλέξτε τυχόν πρόσθετες επιλογές, εάν είναι απαραίτητο. Στη συνέχεια, πιέστε Βρείτε όλα για να δείτε το αποτέλεσμα.
Επιλέξτε τις τιμές που βρέθηκαν στο παράθυρο κρατώντας το Ctrl Οι τιμές που θα βρεθούν θα επισημανθούν αυτόματα στον πίνακα σας.
Συμβουλή. Μπορείτε να διαγράψετε τις γραμμές με τις επιλεγμένες τιμές αν πατήσετε Ctrl + - (μείον στον κύριο πίνακα) και επιλέξτε το κουμπί επιλογής Ολόκληρες σειρές .
Ορίστε! Οι ανεπιθύμητες γραμμές διαγράφονται.
Μακροεντολή Excel VBA για τη διαγραφή γραμμών ή την αφαίρεση κάθε άλλης γραμμής
Αν ψάχνετε πάντα για μια λύση για να αυτοματοποιήσετε αυτή ή εκείνη τη ρουτίνα του Excel, αρπάξτε τις παρακάτω μακροεντολές για να βελτιώσετε την εργασία διαγραφής γραμμών. Σε αυτό το μέρος θα βρείτε 2 μακροεντολές VBA που θα σας βοηθήσουν να αφαιρέσετε γραμμές με τα επιλεγμένα κελιά ή να διαγράψετε κάθε άλλη γραμμή στο Excel.
Η μακροεντολή RemoveRowsWithSelectedCells θα εξαλείψει όλες τις γραμμές που περιέχουν τουλάχιστον ένα επισημασμένο κελί.
Η μακροεντολή RemoveEveryOtherRow όπως υποδηλώνει και το όνομά του, θα σας βοηθήσει να απαλλαγείτε από κάθε δεύτερη/τρίτη κ.λπ. γραμμή ανάλογα με τις ρυθμίσεις σας. Θα αφαιρέσει γραμμές ξεκινώντας από την τρέχουσα θέση του δρομέα του ποντικιού και μέχρι το τέλος του πίνακα.
Εάν δεν γνωρίζετε πώς να εισάγετε μακροεντολές, μπορείτε να δείτε το θέμα Πώς να εισάγετε και να εκτελείτε κώδικα VBA στο Excel.
Sub RemoveRowsWithSelectedCells() Dim rngCurCell, rng2Delete As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each rngCurCell In Selection If Not rng2Delete Is Nothing Then Set rng2Delete = Application.Union(rng2Delete, _ ActiveSheet.Cells(rngCurCell.Row, 1)) Else Set rng2Delete = rngCurCell End If Next rngCurCell If Not rng2Delete Is Nothing Thenrng2Delete.EntireRow.Delete End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub RemoveEveryOtherRow() Dim rowNo, rowStart, rowFinish, rowStep As Long Dim rng2Delete As Range rowStep = 2 rowStart = Application.Selection.Cells(1, 1).Row rowFinish = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Application.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual For rowNo = rowStart To rowFinish Step rowStep If Not rng2Delete Is Nothing Then Set rng2Delete = Application.Union(rng2Delete, _ ActiveSheet.Cells(rowNo, 1)) Else Set rng2Delete = ActiveSheet.Cells(rowNo, 1) End If Next If Not rng2Delete Is Nothing Then rng2Delete.EntireRow.Delete ' Απόκρυψη κάθε άλλης γραμμής 'rng2Delete.EntireRow.Hidden = True End IfApplication.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End SubΣυμβουλή. Εάν ο στόχος σας είναι να χρωματίσετε κάθε δεύτερη/τρίτη κ.λπ. γραμμή με διαφορετικό χρώμα, θα βρείτε τα βήματα στο Εναλλασσόμενο χρώμα γραμμής και σκίαση στήλης στο Excel (ζωνοποιημένες γραμμές και στήλες).
Σε αυτό το άρθρο περιέγραψα πώς να διαγράψετε γραμμές στο Excel. Τώρα έχετε αρκετές χρήσιμες μακροεντολές VBA για να διαγράψετε τις επιλεγμένες γραμμές, ξέρετε πώς να διαγράψετε κάθε άλλη γραμμή και πώς να χρησιμοποιήσετε την Εύρεση & Αντικατάσταση για να σας βοηθήσει να αναζητήσετε και να επιλέξετε όλες τις γραμμές με τις ίδιες τιμές πριν τις εξαλείψετε. Ελπίζω οι παραπάνω συμβουλές να απλοποιήσουν την εργασία σας στο Excel και να σας αφήσουν περισσότερο ελεύθερο χρόνο για να απολαύσετε αυτές τις τελευταίεςΝα είστε ευτυχισμένοι και να διαπρέψετε στο Excel!