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

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

1 Ανοίξτε ένα νέο βιβλίο εργασίας στο Excel και πληκτρολογήστε τον αριθμό " 1 " στο κελί A1 . Περάστε το κελί A2 και πληκτρολογήστε " 2 " στο κελί A3 . Επαναλάβετε αυτή τη διαδικασία μέχρι να έχετε τους αριθμούς 1 έως 5 καταχωρούνται στα κελιά A1 έως A9 . Τα επόμενα κελιά θα πρέπει να έχουν τους ακόλουθους αριθμούς : " 1 " για την Α1 , "2" για A3 , " 3 " για το A5 , " 4 " για το Α7 και " 5 " για το Α9 2

Κάντε κλικ . "Εργαλεία" και επιλέξτε " Macro ". Κάντε κλικ στο " Επεξεργασία Visual Basic . "
Εικόνων 3

Επιλέξτε την καρτέλα "Εισαγωγή" και κάντε κλικ στο "ενότητα ".
Η 4

Αντιγράψτε την ακόλουθη μακροεντολή και να επικολλήσετε στο βασικό φύλλο Visual :

Sub Delete_Every_Other_Row ( )

» . μεταβλητές Διάσταση

Y = False ' Αλλάξτε αυτή την True αν θέλουν να

« διαγράψετε γραμμές 1 , 3 , 5 , και ούτω καθεξής .

Ι = 1

Set xRng = Επιλογή

« Loop μία φορά για κάθε γραμμή στην επιλογή .

για xCounter = 1 Για να xRng.Rows.Count

« Αν το Υ είναι αληθινή , τότε ...

Αν Υ = True τότε

« ... να διαγράψετε μια ολόκληρη σειρά των κυττάρων .

xRng.Cells ( I ) . EntireRow.Delete

« Διαφορετικά ...

Else

» ... αυξήσετε I προς ένα, έτσι μπορούμε να τον κύκλο μέσα από σειρά .

I = I + 1

End If

«Εάν Υ είναι αληθινή , καθιστούν False ? . εάν το Υ είναι False , καθιστούν True

Y = Όχι Y

Επόμενο xCounter

End Sub
5

Κάντε κλικ στο " Κλείσιμο και επιστροφή στο Microsoft Excel " για να βγείτε , στη συνέχεια, ελέγξτε τη μακροεντολή τονίζοντας σειρές Α1 μέσω A9 στο υπολογιστικό φύλλο Excel σας γίνει νωρίτερα . Κάντε κλικ στο " Εργαλεία " τότε " Macro " και στη συνέχεια κάντε κλικ στο κουμπί " Μακροεντολές ".
Η 6

Επιλέξτε " Delete_Every_Other_Row " από το μενού Μακροεντολή και κάντε κλικ στο " Run". Οι αναπληρωτές σειρές θα πρέπει να διαγραφεί και τους αριθμούς 1 έως 5 θα πρέπει τώρα να εμφανίζονται στα κελιά Α1 έως Α5 .
Η
εικόνων