Πώς να διαγράψετε γρήγορα κάθε άλλη σειρά στο Excel;

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

Διαγράψτε κάθε άλλη σειρά στο Excel με την εντολή Φίλτρο

Διαγράψτε κάθε άλλη σειρά στο Excel με κωδικό VBA

Διαγράψτε κάθε άλλη σειρά ή στήλη στο Excel με το Kutools για Excel

Διαγράψτε κάθε άλλη σειρά στο Excel με την εντολή Φίλτρο

Microsoft Excel Φίλτρα Η εντολή μπορεί να σας βοηθήσει να φιλτράρετε γρήγορα κάθε άλλη σειρά και στη συνέχεια να τις διαγράψετε ταυτόχρονα, κάντε τα εξής:

1. Σε μια κενή στήλη εκτός από τα αρχικά δεδομένα, εισαγάγετε 0,1,0,1…, 0,1. Σε αυτήν την περίπτωση, εισάγουμε τους αριθμούς στη στήλη βοηθού Γ. Δείτε το παρακάτω στιγμιότυπο οθόνης:

2. Επιλέξτε τη στήλη C και κάντε κλικ στο Φίλτρα κάτω από το κουμπί ημερομηνία αυτί. Στη συνέχεια, κάντε κλικ στο κουμπί βέλους δίπλα στο C1 και επιλέξτε μόνο το 0 σύμφωνα με το Επιλογή Όλων επιλογή. Δείτε το στιγμιότυπο οθόνης:

3. Τότε όλες οι σειρές με 1 κρύβονται. Επιλέξτε τις ορατές σειρές με 0 και κάντε κλικ στο Αρχική > Διαγραφή > Διαγραφή σειρών φύλλων για να διαγράψετε αυτές τις σειρές. Στη συνέχεια, διαγράφει κάθε άλλη σειρά και πρέπει να κάνετε κλικ Φίλτρα κουμπί ξανά για να εμφανιστούν μόνο οι σειρές με 1. Δείτε στιγμιότυπα οθόνης:

4. Επιτέλους, μπορείτε να διαγράψετε τη βοηθητική στήλη C όπως χρειάζεστε.

Διαγράψτε κάθε άλλη σειρά στο Excel με κωδικό VBA

Στην πραγματικότητα, η μακροεντολή VBA είναι επίσης μια καλή επιλογή για την επίλυση αυτού του προβλήματος.

1. Κρατήστε πατημένο το άλλος + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Διαγράψτε κάθε άλλη σειρά στην επιλογή:

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

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

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

Διαγράψτε κάθε άλλη σειρά ή στήλη στο Excel με το Kutools για Excel

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

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:

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

2. Σε Επιλέξτε Διαστήματα γραμμών και στηλών πλαίσιο διαλόγου, καθορίστε τις ρυθμίσεις όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης και κάντε κλικ στο OK για να επιλέξετε πρώτα κάθε άλλη σειρά.

3. Στη συνέχεια, κάθε άλλη σειρά στην επιλογή επιλέγεται και επισημαίνεται. Δείτε το στιγμιότυπο οθόνης:

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

Με αυτήν τη δυνατότητα, μπορείτε επίσης να διαγράψετε κάθε ένατη σειρά ή στήλη όπως χρειάζεστε.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!