Μετάβαση στο κύριο περιεχόμενο

Πώς να διαγράψετε γρήγορα κάθε άλλη σειρά στο 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. Δείτε στιγμιότυπα οθόνης:

doc-delete-every-other-row5 -2 doc-delete-every-other-row12

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


Επιλέξτε κάθε άλλη ή nth σειρά, στήλη και μετά διαγράψτε τις ταυτόχρονα

Kutools για Excel's Επιλέξτε Διαστήματα γραμμών και στηλών βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να βρείτε και να επιλέξετε κάθε άλλη ή nth σειρές ή στήλες και, στη συνέχεια, μπορείτε να κάνετε ορισμένες λειτουργίες όπως χρειάζεστε. Κάντε κλικ για λήψη του Kutools για Excel!


βέλος μπλε δεξιά φούσκα Διαγράψτε κάθε άλλη σειρά στο 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, κάθε άλλη σειρά στο επιλεγμένο εύρος από τη δεύτερη σειρά διαγράφεται ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

doc-delete-every-other-row5 -2 doc-delete-every-other-row12

βέλος μπλε δεξιά φούσκα Διαγράψτε κάθε άλλη σειρά ή στήλη στο Excel με το Kutools για Excel

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

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. 

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

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

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

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

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

doc-delete-every-other-row5 -2 doc-delete-every-other-row12

Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη λειτουργία Select Interval Rows & Columns.

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

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


βέλος μπλε δεξιά φούσκαΕπίδειξη: Διαγράψτε κάθε άλλη σειρά ή στήλη με το Kutools για Excel

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
An easy way to put 0 or 1 in the column instead is to add a formula column: =IF(MOD(ROW(), 2) = 0, 0, 1). That might help if you'd rather not type 0,1,01, etc.
This comment was minimized by the moderator on the site
another way is to add a new column in front of your data, so column A is blank, then just enter a b a b a b as you go down the rows in column A - so "a" in A1, "b" in A2, "a" in A3, "b" in A4. then you can drag the new "a" and "b" cells down for all rows of data. then sort column A alphabetically, and you get all the odd rows with an "a" at the top and all the even rows with a "b" at the bottom. this is probably the easiest way.
This comment was minimized by the moderator on the site
You're genious :)
This comment was minimized by the moderator on the site
Easiest? How is that different from the 0,1 method? ;-)
This comment was minimized by the moderator on the site
This is actually very useful if you have a large number of rows and can't enter the 2 settings in manually. if you drag 0,1 down, it continues to 2, 3, 4...but if you drag a,b down, it will repeat as a,b,a,b...all the way down. Thanks!
This comment was minimized by the moderator on the site
That would be great, except column C is all 0
This comment was minimized by the moderator on the site
This is really really helpful. thanks
This comment was minimized by the moderator on the site
Great trick...thank you. I love simple sneaky tricks like this
This comment was minimized by the moderator on the site
This was really helpful. thanks,
This comment was minimized by the moderator on the site
In cell B1: =row(A1) Drag this down all of column B. In cell C1: =mod(B1,2) Drag this down all of column C. Apply a filter and in column C select all 0s or 1s as required.
This comment was minimized by the moderator on the site
Richarddddd, Sneaky! I like that, and it was useful to me today. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations