Πώς να Διαγραφή Κάθε δεύτερης γραμμής ενός υπολογιστικού φύλλου του Excel

Microsoft Excel είναι μια δημοφιλής εφαρμογή λογιστικών φύλλων που παρέχει χρήσιμα εργαλεία για την εισαγωγή δεδομένων , τον υπολογισμό , γραφικά , συγκεντρωτικοί πίνακες και πολλά άλλα. Παρόλο που το Excel είναι ένα συγκρότημα , πλήρως εξοπλισμένο πρόγραμμα , δεν δίνει στους χρήστες τη δυνατότητα να διαγράψετε εναλλασσόμενες σειρές από ένα λογιστικό φύλλο από προεπιλογή . Η προσθήκη αυτή τη λειτουργία απαιτεί από τους χρήστες να καθορίσουν την αυτοματοποιημένη εργασία που ονομάζεται macro , στη συνέχεια, εκτελέστε αυτό το macro στις γραμμές φύλλο που θέλετε να αλλάξετε . Οδηγίες
Η

1 Ανοίξτε το Excel Visual Basic. Με το υπολογιστικό φύλλο ανοιχτό στο Excel , κάντε κλικ στο " Εργαλεία" από το μενού στο πάνω μέρος της οθόνης σας , στη συνέχεια, επιλέξτε " Macro " και " Visual Basic. " Εάν χρησιμοποιείτε το Excel 2003 ή παλαιότερη , πηγαίνετε στο επόμενο βήμα .

χρήστες του Excel 2007 , θα παρατηρήσετε ότι η προηγούμενη εντολή δεν υπάρχει στην τρέχουσα έκδοση του Excel , και ότι δεν macro εργαλεία επεξεργασίας εμφανίζεται από προεπιλογή . Ενεργοποιήστε την πρόσβαση σε αυτά τα εργαλεία κάνοντας κλικ στο κουμπί Office στην επάνω αριστερή γωνία της οθόνης σας , στη συνέχεια, κάνοντας κλικ στο κουμπί " Επιλογές του Excel " στο κάτω μέρος του μενού . Εντοπίστε την επικεφαλίδα την ένδειξη " Κορυφαίες επιλογές για εργασία με το Excel " στο παράθυρο διαλόγου που προκύπτει , έπειτα επιλέξτε το πλαίσιο δίπλα στο " Εμφάνιση της καρτέλας Προγραμματιστής στην κορδέλα " ετικέτα. Κάντε κλικ στο " OK . " Επιλέξτε την καρτέλα Προγραμματιστής , στη συνέχεια, κάντε κλικ στο κουμπί " Visual Basic" . 2

Προσθήκη κώδικα μακροεντολών . Κάντε κλικ στο " Εισαγωγή" από το μενού κοντά στην κορυφή του βασικού παραθύρου του Microsoft Visual editor και επιλέξτε " Ενότητα . " Αντιγραφή όλων των κωδικών που αναφέρονται παρακάτω , τότε να το επικολλήσετε σε αυτή την ενότητα :

Sub Delete_Every_Other_Row ( ) «Διάσταση variables.Y = False ' Αλλάξτε αυτή την αληθινή , αν θέλετε να « διαγράψετε γραμμές 1 , 3 , 5 , και ούτω on.I = 1Ρυθμίστε xRng = Επιλογή ' Loop μία φορά για κάθε γραμμή στον επιλέξετε κάτι xCounter = 1 Για xRng.Rows.Count «Αν το Υ είναι αληθινή , τότε ... Αν Υ = True τότε ... διαγράψετε μια ολόκληρη σειρά cells.xRng.Cells (Ι ) . EntireRow.Delete « Διαφορετικά ... Else » . αυξήσετε .. εγώ από ένα ώστε να μπορούμε να τον κύκλο μέσα από range.I = I + 1End Αν «Αν το Υ είναι αληθινή , καθιστούν False ? εάν το Υ είναι False , καθιστούν True.Y = Δεν YNext xCounterEnd Sub
Η Φτηνές 3

Εκτελέστε τη μακροεντολή . Επιστροφή στο φύλλο χωρίς να κλείσετε το πρόγραμμα επεξεργασίας της Visual Basic . Επισημάνετε τις γραμμές για τις οποίες θα πρέπει να αφαιρεθεί σειρά εναλλάξ. Στο Excel 2003 και σε παλαιότερες , κάντε κλικ στο "Εργαλεία" επιλογή του μενού , στη συνέχεια, επιλέξτε " Macro " , ακολουθούμενο από το " Μακροεντολές " επιλογή . Στο Excel 2007 , επιλέξτε την καρτέλα Προγραμματιστής , στη συνέχεια, κάντε κλικ στο κουμπί " Μακροεντολές ". Για να εκτελέσετε τη μακροεντολή σε οποιαδήποτε έκδοση , επιλέξτε τη μακροεντολή με την ένδειξη " Delete_Every_Other_Row " , στη συνέχεια, κάντε κλικ στο " Run". Κάθε ζυγές γραμμή του φύλλου εργασίας σας διαγράφει .
Η
εικόνων