Παρακολουθήστε βίντεο - Εισαγάγετε κενή σειρά μετά από κάθε σειρά στο Excel
Τα άτομα που εργάζονται με μεγάλα σύνολα δεδομένων χρειάζονται συχνά απλά πράγματα, όπως εισαγωγή/διαγραφή γραμμών ή στηλών.
Ενώ υπάρχουν ήδη πολλοί διαφορετικοί (και απλοί) τρόποι για να προσθέσετε σειρές στο Excel, όταν πρόκειται να εισαγάγετε μια κενή σειρά μετά από κάθε άλλη σειρά (ή κάθε τρίτη ή τέταρτη σειρά), τα πράγματα γίνονται λίγο περίπλοκα.
Εισαγάγετε μια κενή σειρά μετά από κάθε άλλη σειρά
Σε αυτό το σεμινάριο, θα σας δείξω μερικούς πραγματικά απλούς τρόπους για να εισαγάγετε μια κενή γραμμή μετά από κάθε σειρά στο υπάρχον σύνολο δεδομένων (ή κάθε ένατη σειρά).
Δεδομένου ότι δεν υπάρχει άμεσος τρόπος προσθήκης γραμμών μεταξύ των γραμμών, η μέθοδος που καλύπτεται σε αυτό το άρθρο είναι λύσεις για να συμβεί αυτό, και αν είστε άνετοι με το VBA, τότε μπορείτε να το κάνετε με ένα μόνο κλικ.
Χρησιμοποιώντας τη στήλη βοηθού και τη λειτουργία ταξινόμησης
Ας υποθέσουμε ότι έχετε ένα σύνολο δεδομένων όπως φαίνεται παρακάτω και θέλετε να εισαγάγετε ένα κενό ανάμεσα στις υπάρχουσες γραμμές.
Παρακάτω είναι τα βήματα για την εισαγωγή κενών σειρών μεταξύ των υπαρχουσών σειρών:
- Εισαγάγετε μια κενή στήλη στα αριστερά του συνόλου δεδομένων. Για να το κάνετε αυτό, κάντε δεξί κλικ στην κεφαλίδα της στήλης της αριστερότερης στήλης και κάντε κλικ στο Εισαγωγή.
- Εισαγάγετε το κείμενο «HelperColumn» στο Α1 (μπορείτε να χρησιμοποιήσετε οποιοδήποτε κείμενο θέλετε)
- Εισαγάγετε 1 στο κελί Α2 και 2 στο κελί Α3.
- Επιλέξτε και τα δύο κελιά και τοποθετήστε τον κέρσορα κάτω δεξιά στην επιλογή. Όταν ο δρομέας αλλάξει σε ένα εικονίδιο συν, κάντε διπλό κλικ σε αυτό. Αυτό θα γεμίσει ολόκληρη τη στήλη με αυξανόμενους αριθμούς
- Μεταβείτε στο τελευταίο γεμάτο κελί στη στήλη βοηθού και, στη συνέχεια, επιλέξτε το κελί κάτω από αυτό.
- Εισαγάγετε 1 σε αυτό το κελί και 2 στο κελί κάτω από αυτό
- Επιλέξτε και τα δύο κελιά και τοποθετήστε τον κέρσορα κάτω δεξιά στην επιλογή.
- Όταν ο δρομέας αλλάξει σε εικονίδιο συν, κάντε κλικ και σύρετέ τον προς τα κάτω. Αυτό θα γεμίσει μια σειρά αριθμών (ακριβώς όπως φτάσαμε στο βήμα 3). Βεβαιωθείτε ότι λαμβάνετε περισσότερους αριθμούς από αυτούς που έχετε στο σύνολο δεδομένων. Για παράδειγμα, εάν υπάρχουν 10 εγγραφές στο σύνολο δεδομένων, βεβαιωθείτε ότι έχετε συμπληρώσει τουλάχιστον 10 κελιά σε αυτό το βήμα. Μόλις ολοκληρωθεί, το σύνολο δεδομένων σας θα φαίνεται όπως φαίνεται παρακάτω.
- Επιλέξτε ολόκληρο το σύνολο δεδομένων (συμπεριλαμβανομένων όλων των κελιών στη στήλη βοηθού).
- Κάντε κλικ στην καρτέλα Δεδομένα
- Κάντε κλικ στην επιλογή Ταξινόμηση
- Στο παράθυρο διαλόγου Ταξινόμηση, χρησιμοποιήστε τις ακόλουθες ρυθμίσεις:
- Ταξινόμηση κατά: Βοηθός
- Ταξινόμηση σε: Τιμή κελιού
- Παραγγελία: Μικρότερη έως μεγαλύτερη
- Κάντε κλικ στο OK. Αυτό θα σας δώσει το σύνολο δεδομένων όπως φαίνεται παρακάτω.
- Διαγράψτε τη στήλη βοηθού.
Θα παρατηρήσετε ότι μόλις κάνετε κλικ στο OK στο παράθυρο διαλόγου Ταξινόμηση, αναδιατάσσει αμέσως τις γραμμές και τώρα έχετε μια κενή σειρά μετά από κάθε σειρά του συνόλου δεδομένων σας.
Στην πραγματικότητα, αυτό δεν είναι πραγματικά η εισαγωγή μιας κενής γραμμής. Αυτή η μέθοδος ταξινόμησης απλώς αναδιατάσσει τα δεδομένα τοποθετώντας κενές σειρές από κάτω από το σύνολο δεδομένων μεταξύ των γραμμών στο σύνολο δεδομένων.
Μπορείτε επίσης να επεκτείνετε την ίδια λογική σε εισαγάγετε μια κενή σειρά μετά από κάθε δύο σειρές ή κάθε τρεις σειρές.
Ας υποθέσουμε ότι έχετε το σύνολο δεδομένων όπως φαίνεται παρακάτω και θέλετε να λάβετε μια κενή σειρά μετά από κάθε δύο σειρές.
Παρακάτω είναι τα βήματα για να το κάνετε αυτό:
- Εισαγάγετε μια κενή στήλη στα αριστερά του συνόλου δεδομένων. Για να το κάνετε αυτό, κάντε δεξί κλικ στην κεφαλίδα της στήλης της αριστερότερης στήλης και κάντε κλικ στο Εισαγωγή.
- Εισαγάγετε το κείμενο «HelperColumn» στο Α1 (μπορείτε να χρησιμοποιήσετε οποιοδήποτε κείμενο θέλετε)
- Εισαγάγετε 1 στο κελί Α2 και 2 στο κελί Α3.
- Επιλέξτε και τα δύο κελιά και τοποθετήστε τον κέρσορα κάτω δεξιά στην επιλογή. Όταν ο δρομέας αλλάξει σε ένα εικονίδιο συν, κάντε διπλό κλικ σε αυτό. Αυτό θα γεμίσει ολόκληρη τη στήλη με αυξανόμενους αριθμούς
- Μεταβείτε στο τελευταίο γεμάτο κελί στη στήλη βοηθού και, στη συνέχεια, επιλέξτε το κελί κάτω από αυτό.
- Εισαγάγετε 2 σε αυτό το κελί και 4 στο κελί κάτω από αυτό. Χρησιμοποιούμε αριθμούς σε πολλαπλάσια του 2 καθώς θέλουμε μία κενή σειρά μετά από κάθε δύο σειρές.
- Επιλέξτε και τα δύο κελιά και τοποθετήστε το δρομέα στην κάτω δεξιά γωνία της επιλογής.
- Όταν ο δρομέας αλλάξει σε εικονίδιο συν, κάντε κλικ και σύρετέ τον προς τα κάτω. Αυτό θα γεμίσει μια σειρά αριθμών (ακριβώς όπως φτάσαμε στο βήμα 3). Βεβαιωθείτε ότι έχετε έναν αριθμό μεγαλύτερο από αυτό που έχετε στο σύνολο δεδομένων. Για παράδειγμα, εάν υπάρχουν 10 εγγραφές στο σύνολο δεδομένων, βεβαιωθείτε ότι έχετε τουλάχιστον μέχρι τον αριθμό 10.
- Επιλέξτε ολόκληρο το σύνολο δεδομένων (συμπεριλαμβανομένων όλων των κελιών στη στήλη βοηθού).
- Κάντε κλικ στην καρτέλα Δεδομένα
- Κάντε κλικ στην επιλογή Ταξινόμηση
- Στο παράθυρο διαλόγου Ταξινόμηση, χρησιμοποιήστε τις ακόλουθες ρυθμίσεις:
- Ταξινόμηση κατά: Βοηθός
- Ταξινόμηση σε: Τιμή κελιού
- Παραγγελία: Μικρότερη έως μεγαλύτερη
- Κάντε κλικ στο OK. Αυτό θα σας δώσει το τελικό σύνολο δεδομένων όπως φαίνεται παρακάτω (με μια κενή σειρά μετά από κάθε δεύτερη σειρά του συνόλου δεδομένων)
- Διαγράψτε τη στήλη βοηθού.
Ομοίως, σε περίπτωση που θέλετε να εισαγάγετε μια κενή σειρά μετά από κάθε τρίτη σειρά, χρησιμοποιήστε τον αριθμό 3, 6, 9 και ούτω καθεξής στο Βήμα 5.
Χρησιμοποιώντας έναν απλό κώδικα VBA
Ενώ χρειάζεστε πολλές λύσεις για να εισαγάγετε εναλλακτικές κενές σειρές στο Excel, με το VBA είναι όλα ένα κομμάτι κέικ.
Με έναν απλό κώδικα VBA, το μόνο που χρειάζεται να κάνετε είναι να επιλέξετε το σύνολο δεδομένων στο οποίο θέλετε να εισαγάγετε μια κενή σειρά μετά από κάθε σειρά και απλά να εκτελέσετε τον κώδικα (παίρνει ένα μόνο κλικ).
Παρακάτω είναι ο κώδικας VBA που θα εισαγάγει μια κενή σειρά μετά από κάθε σειρά στο σύνολο δεδομένων:
Sub InsertAlternateRows () 'Αυτός ο κωδικός θα εισάγει μια σειρά μετά από κάθε σειρά στην επιλογή' Αυτός ο κωδικός έχει δημιουργηθεί από το Sumit Bansal από το trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset (1, 0) .EntireRow. Εισαγωγή ActiveCell.Offset (2, 0). Επιλέξτε Next i End Sub
Ο παραπάνω κώδικας μετρά τον συνολικό αριθμό των γραμμών στην επιλογή και χρησιμοποιεί ένα βρόχο For Next για να περνάει σε κάθε γραμμή και να εισάγει μια κενή σειρά μετά από κάθε υπάρχουσα σειρά στο σύνολο δεδομένων.
Ακολουθούν τα βήματα για να τοποθετήσετε αυτόν τον κώδικα VBA στο πρόγραμμα επεξεργασίας VB στο Excel:
- Αντιγράψτε τον παραπάνω κωδικό
- Μεταβείτε στην καρτέλα Προγραμματιστής και κάντε κλικ στην επιλογή Visual Basic. Αυτό θα ανοίξει το πρόγραμμα επεξεργασίας VB. Μπορείτε επίσης να χρησιμοποιήσετε τη συντόμευση πληκτρολογίου ALT + F11
- Στο πρόγραμμα επεξεργασίας VB, κάντε δεξί κλικ σε οποιοδήποτε αντικείμενο του Project Explorer
- Τοποθετήστε τον δείκτη του ποντικιού πάνω από την επιλογή Εισαγωγή και, στη συνέχεια, κάντε κλικ στην ενότητα. Αυτό θα εισαγάγει μια νέα ενότητα
- Στο παράθυρο Κωδικός μονάδας, επικολλήστε τον παραπάνω κώδικα.
Μόλις έχετε τον κωδικό στο VB Editor, μπορείτε τώρα να χρησιμοποιήσετε αυτόν τον κώδικα για να εισαγάγετε κενές σειρές μετά από κάθε άλλη σειρά στο σύνολο δεδομένων.
Ακολουθούν τα βήματα για τη χρήση του κώδικα για την εισαγωγή κενών γραμμών μετά από κάθε σειρά:
- Επιλέξτε ολόκληρο το σύνολο δεδομένων (εκτός από τη σειρά κεφαλίδας)
- Κάντε κλικ στην καρτέλα Προγραμματιστής (σε περίπτωση που δεν έχετε την καρτέλα Προγραμματιστής, κάντε κλικ εδώ για να μάθετε πώς να την αποκτήσετε)
- Κάντε κλικ στην επιλογή «Μακροεντολές»
- Στο παράθυρο διαλόγου Μακροεντολή, επιλέξτε τη μακροεντολή - "InsertAlternateRows"
- Κάντε κλικ στο Εκτέλεση
Αυτό είναι!
Τα παραπάνω βήματα θα εισάγουν αμέσως εναλλασσόμενες κενές σειρές στο σύνολο δεδομένων.
Υπάρχουν πολλοί διαφορετικοί τρόποι εκτέλεσης μιας μακροεντολής στο Excel. Για παράδειγμα, εάν πρέπει να το κάνετε αυτό αρκετά συχνά, μπορείτε να προσθέσετε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης, ώστε να μπορείτε να την εκτελέσετε με ένα μόνο κλικ.
Μπορείτε να διαβάσετε περισσότερα για διαφορετικούς τρόπους εκτέλεσης μακροεντολών εδώ.
Σε περίπτωση που θέλετε να εισαγάγετε μια κενή σειρά μετά από κάθε δεύτερη σειρά, μπορείτε να χρησιμοποιήσετε τον παρακάτω κώδικα:
Sub InsertBlankRowAfterEvery2ndRow () 'Αυτός ο κωδικός θα εισάγει μια γραμμή μετά από κάθε δεύτερη σειρά στην επιλογή' Αυτός ο κωδικός έχει δημιουργηθεί από το Sumit Bansal από το trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng .EntireRow.Count Για i = 1 To CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow. Εισαγωγή ActiveCell.Offset (3, 0). Επιλέξτε Επόμενο i Τέλος υπο
Ελπίζω να βρήκατε χρήσιμο αυτό το σεμινάριο.
