Σε αυτό το άρθρο, θα μάθουμε πώς να εισάγουμε τη σειρά μετά από κάθε 5ου σειρά μέσω VBA στο Microsoft Excel.
Ας πάρουμε ένα παράδειγμα και καταλάβουμε:
Έχουμε δεδομένα στο εύρος A1: F31, στο οποίο η στήλη A περιέχει όνομα, η στήλη Β περιέχει διεύθυνση οδού, στήλη C πόλη, η στήλη D περιέχει περιοχή, η στήλη Ε περιέχει όνομα χώρας και η στήλη F περιέχει αριθμό τηλεφώνου.
Θέλουμε να εισάγουμε τη γραμμή μετά από κάθε πέμπτη σειρά στα δεδομένα, ακολουθούμε τα παρακάτω βήματα και κωδικό:
- Ανοίξτε τη σελίδα VBE για να πατήσετε το πλήκτρο Alt+F11
- Εισαγάγετε τη μονάδα για να γράψετε τον κώδικα
- Γράψτε τον παρακάτω κωδικό:
Sub InsertIT () x = 2 'Start Row Do Range ("A" & x, "F" & x). Insert x = x + 5 Loop while x <50 End Sub
Επεξήγηση κώδικα:
Πρώτον, έχουμε ορίσει τον αριθμό σειράς από όπου θέλουμε να εισαγάγουμε τη σειρά. Στη συνέχεια, ορίσαμε το εύρος για την εισαγωγή των δεδομένων. Και, στη συνέχεια, έχουμε ορίσει τον αριθμό για εισαγωγή της σειράς μετά από πόσες σειρές. Στη συνέχεια, μέχρι ποια σειρά, οι γραμμές θα εισαχθούν.
Για να εκτελέσετε τον κωδικό, πατήστε το πλήκτρο F5 στο πληκτρολόγιό σας.
- Οι σειρές θα μπουν μέχρι το 50ου σειρά στα δεδομένα
Με αυτόν τον τρόπο, μπορούμε να εισάγουμε σειρά μετά από συγκεκριμένο αριθμό, τον οποίο μπορούμε να ορίσουμε σε μακροεντολή.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email