Επιλέξτε κάθε 5η σειρά - Παραδείγματα κώδικα VBA

Πίνακας περιεχομένων

Επιλέξτε Κάθε 5η σειρά

Φανταστείτε ότι έχουμε 20.000 σειρές δεδομένων σε ένα υπολογιστικό φύλλο Excel:

Ωστόσο, τι γίνεται αν θέλετε να μειώσετε αυτά τα δεδομένα, όπως να παίρνετε κάθε 5η σειρά; Αυτό το άρθρο δείχνει πώς μπορεί να γίνει. Η συνάρτηση Row () δίνει τον αριθμό κάθε σειράς:

Η συνάρτηση Mod μας επιτρέπει να εκτελούμε αριθμητική αριθμητική:

= Mod (αριθμός, διαιρέτης)

Δίνει το υπόλοιπο όταν ο "Αριθμός" διαιρείται με "Διαιρέτης". Έτσι για παράδειγμα:

= Mod (28,5)

Θα δώσει στο 3 το υπόλοιπο όταν το 28 διαιρείται με το 5.
Μπορούμε λοιπόν να δούμε τον αριθμό γραμμής και να δούμε τι συμβαίνει όταν εκτελούμε αριθμητική αριθμητική σε αυτόν:

= IF (Mod (Row (), 5) = 0,1,0)

Δηλαδή εξετάστε το υπόλοιπο όταν ο αριθμός της σειράς διαιρείται 5. Εάν το υπόλοιπο είναι 0 τότε βάλτε ένα 1 στο κελί αλλιώς βάλτε ένα μηδέν. Για ευκολία, έχω κωδικοποιήσει τους αριθμούς γραμμών στον παραπάνω πίνακα. Τώρα εισάγουμε πρόσθετη στήλη για να δουλέψουμε όταν συμβεί αυτό. Οι τύποι θα είναι οι τύποι modula όπως παραπάνω:

Βλέπουμε ότι οι γραμμές που έχουν αριθμούς σειρών που διαιρούνται με 5 έχουν modulo 1. Εάν τώρα ΦΙΛΤΡΩΝΟΥΜΕ τα δεδομένα για να εμφανίζονται μόνο τα 1:

Εάν τώρα επιλέξουμε μόνο Ορατά κελιά και στη συνέχεια αντιγράψουμε μόνο αυτά τα δεδομένα, έχουμε το υποσύνολο των δεδομένων μας.

Θα βοηθήσει στην ανάπτυξη του τόπου, μοιράζονται τη σελίδα με τους φίλους σας

wave wave wave wave wave