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

Microsoft Excel είναι μια εφαρμογή λογιστικών φύλλων με προηγμένη λειτουργικότητα για το χειρισμό , τη διαλογή και την εκτίμηση αριθμητικών δεδομένων . Το Excel διαθέτει πολλά χαρακτηριστικά και λειτουργίες που είναι διαθέσιμες που εκτελούν διάφορες ενέργειες ο χρήστης μπορεί να απαιτήσει . Όταν η ενσωματωμένη λειτουργικότητα αδυνατεί να ανταποκριθεί στις απαιτήσεις του χρήστη , το συμπεριλαμβανόμενο programing γλώσσα , Visual Basic for Applications ( VBA ) , μπορεί να χρησιμοποιηθεί αντ 'αυτού. VBA είναι μια ισχυρή γλώσσα προγραμματισμού που ήταν διαθέσιμα για τις εργασίες που εκτελούνται από το εσωτερικό του φύλλο . Μια πράξη , όπως η διαγραφή σειρών με βάση τις απαιτήσεις έθιμο είναι μια τέλεια τακτοποίηση για VBA . Τα πράγματα που θα χρειαστείτε για Microsoft Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το υπολογιστικό φύλλο του Microsoft Excel από το οποίο θέλετε να διαγράψετε κάθε τρίτη σειρά .
Η 2

Προσθέστε τα στοιχεία για τους πρώτους δώδεκα γραμμές του υπολογιστικού φύλλου, στη στήλη " Α "
εικόνων 3

Ανοίξτε το μενού για μακροεντολές πατώντας το "Alt " και " F8 " ? . " . Δημιουργία " κλειδιά
Η 4

Enter " Deletethree " στο πλαίσιο Όνομα μακροεντολής και κάντε κλικ στο κουμπί με την ένδειξη
5

Επικολλήστε τον παρακάτω κώδικα παρακάτω το κείμενο " Sub Deletethree " :

' Dim variables.Y = 1I = 1

Set xRng = Επιλογή

« Loop για κάθε γραμμή στην selectionFor xCounter = 1 Για xRng.Rows.Count

Αν Υ = 3 τότε

« ... να διαγράψετε μια ολόκληρη σειρά cells.xRng.Cells (Ι ) . EntireRow.DeleteY = 1 ' Διαφορετικά .. . Else » ... προσαύξηση I από ένα για να μετακινηθείτε range.I = I + 1Y = Y + 1End Αν

Επόμενο xCounter
Η 6

Αποθηκεύστε τη μακροεντολή " Deletethree " πατώντας το πλήκτρο "Ctrl " και τα πλήκτρα " S" . Κλείστε το παράθυρο "Microsoft Visual Basic" για να επιστρέψετε στην εφαρμογή Excel .
Η 7

Επισημάνετε τα κελιά A1 έως A12 στο υπολογιστικό φύλλο .
8

Πατήστε το πλήκτρο " Alt " ? και τα πλήκτρα " F8 " για να ανοίξετε το μενού macro . Επιλέξτε τη μακροεντολή " Deletethree " και αριστερό κλικ στο κουμπί " Run" . Μετά την ολοκλήρωση της μακροοικονομικής , κάθε τρίτη σειρά έχει αφαιρεθεί .
Η
εικόνων