VBA Insert Row (Παράδειγμα, Κωδικός) | Κορυφαία 5 μέθοδος Excel VBA για εισαγωγή γραμμής

Η εισαγωγή μιας σειράς στο VBA είναι κάπως διαφορετική από την εισαγωγή μιας στήλης στο VBA, στις στήλες χρησιμοποιήσαμε ολόκληρη τη μέθοδο στήλης αλλά για να εισαγάγουμε σειρές χρησιμοποιούμε τη μέθοδο φύλλου εργασίας με την εντολή εισαγωγής για να εισαγάγουμε μια σειρά, παρέχουμε επίσης μια αναφορά σειράς όπου θέλουμε να εισαγάγουμε μια άλλη σειρά παρόμοια με τις στήλες.

Εισαγωγή γραμμής με VBA Excel

Μπορούμε να εκτελέσουμε όλες τις ενέργειες που κάνουμε υπερέχοντας με κωδικοποίηση VBA. Μπορούμε να αντιγράψουμε, να επικολλήσουμε, να διαγράψουμε και μπορούμε να κάνουμε πολλά περισσότερα πράγματα μέσω της γλώσσας VBA. Το "Inserting Row" είναι μια από αυτές τις μεθόδους που κάνουμε συχνά στο Excel. Σε αυτό το άρθρο, θα σας δείξουμε πώς να εκτελέσετε τη μέθοδο εισαγωγής σειράς στο VBA.

Πώς να εισαγάγετε τη σειρά στο Excel VBA;

Ακολουθούν οι διάφορες μέθοδοι χρήσης του VBA για την εισαγωγή μιας σειράς στο Excel.

Μέθοδος # 1 - Χρήση της μεθόδου εισαγωγής

Στο VBA για να εισαγάγετε μια σειρά, πρέπει να χρησιμοποιήσουμε μια παρόμοια τεχνική που χρησιμοποιήσαμε στο φύλλο εργασίας excel. Στο VBA πρέπει να χρησιμοποιήσουμε το αντικείμενο εύρους για να εισαγάγουμε τη σειρά.

Για παράδειγμα, δείτε τον παρακάτω κώδικα.

Κώδικας:

 Sub InsertRow_Example1 () Range ("A1"). Εισαγάγετε End Sub 

Αυτός ο κωδικός θα μετακινήσει προς τα κάτω το κελί A1 στο B1 και θα εισαγάγει το μόνο κελί.

Αυτό θα προκαλέσει τόσα πολλά προβλήματα όσον αφορά το χειρισμό των δεδομένων. Αυτό θα μετακινήσει το αναφερόμενο κελί προς τα κάτω και όλες οι άλλες σχετικές στήλες θα παραμείνουν ίδιες.

Μέθοδος # 2 - Χρήση ολόκληρης της ιδιότητας σειράς

Στην επάνω γραμμή εισαγωγής μπορούμε πραγματικά να χρησιμοποιήσουμε διάφορες μεθόδους. Η παρακάτω μέθοδος θα εισαγάγει ολόκληρη τη σειρά πάνω από το επιλεγμένο κελί.

Βήμα 1: Αναφέρετε πρώτα τη διεύθυνση κελιού .

Κώδικας:

Sub InsertRow_Example2 () Εύρος ("A1"). Τέλος Υποτ

Βήμα 2: Αντί να χρησιμοποιείτε απλώς επιλέξτε την ιδιότητα " Ολόκληρη σειρά ".

Κώδικας:

Sub InsertRow_Example2 () Εύρος ("A1"). Ολόκληρη η σειρά. Τέλος Υποτ

Βήμα 3: Μετά την πρόσβαση σε ολόκληρη την ιδιότητα σειράς χρησιμοποιήστε τη μέθοδο εισαγωγής .

Κώδικας:

 Sub InsertRow_Example2 () Range ("A1"). EntireRow. Insert End Sub 

Αυτό θα εισαγάγει τη σειρά πάνω από το κελί A1. Δεδομένου ότι το A1 είναι η πρώτη σειρά θα μετακινηθεί προς τα κάτω το κελί A1 στο B1.

Όπως μπορείτε στην παραπάνω εικόνα, πρέπει να εισαγάγετε ολόκληρη τη σειρά και όχι το μεμονωμένο κελί.

Μέθοδος # 3 - Χρήση αριθμών σειράς

Στο παραπάνω παράδειγμα, μόλις χρησιμοποιήσαμε τη διεύθυνση ενός κελιού και εισαγάγαμε τη σειρά. Ωστόσο, μπορούμε επίσης να τα εισαγάγουμε χρησιμοποιώντας αριθμούς σειράς.

Ας υποθέσουμε ότι θέλετε να εισαγάγετε μια σειρά κάτω από την 5η σειρά, πρώτα πρέπει να αναφέρουμε τους αριθμούς σειράς χρησιμοποιώντας το αντικείμενο RANGE.

Κώδικας:

Sub InsertRow_Example3 () Εύρος ("6: 6"). Τέλος Υποτ

Δεδομένου ότι έχουμε αναφέρει ολόκληρη τη σειρά ως 6: 6, πρέπει να χρησιμοποιήσουμε ολόκληρη την ιδιότητα Row εδώ, μπορούμε να χρησιμοποιήσουμε ευθεία τη μέθοδο "INSERT"

Κώδικας:

 Sub InsertRow_Example3 () Εύρος ("6: 6"). Εισαγωγή End Sub 

Αυτό θα εισαγάγει επίσης ολόκληρη τη σειρά και όχι το μεμονωμένο κελί.

Σε περίπτωση που θέλετε να εισαγάγετε δύο σειρές κάτω από την 5η σειρά πρέπει πρώτα να επιλέξετε 2 σειρές και μετά να χρησιμοποιήσετε τη μέθοδο INSERT.

 Sub InsertRow_Example3 () Εύρος ("6: 7"). Εισαγωγή End Sub 

Αυτό θα εισαγάγει δύο σειρές κάτω από την 5η σειρά.

Έτσι, μπορούμε να εισαγάγουμε όσο το δυνατόν περισσότερες σειρές στο φύλλο εργασίας.

Μέθοδος # 4 - Χρήση της ιδιότητας ενεργού κελιού

Μπορούμε να χρησιμοποιήσουμε την ιδιότητα Active Cell VBA για εισαγωγή γραμμών. Το ενεργό κελί δεν είναι παρά ένα επιλεγμένο κελί.

Ας υποθέσουμε ότι βρίσκεστε στο κελί B5 και θέλετε να εισαγάγετε μια σειρά παραπάνω, μπορείτε να χρησιμοποιήσετε την ενεργή ιδιότητα κελιού.

 Υπο InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub 

Αυτό θα εισαγάγει τη σειρά πάνω από το ενεργό κελί.

Μέθοδος # 5 - Χρήση ιδιότητας ενεργού κελιού με συνάρτηση όφσετ

Ας υποθέσουμε ότι θέλετε να εισαγάγετε μια σειρά μετά από 2 σειρές του ενεργού κελιού, πρέπει να χρησιμοποιήσουμε τη λειτουργία Offset για να αντισταθμίσετε τον αριθμό των σειρών.

Ας υποθέσουμε ότι βρίσκεστε στο κελί B5.

Εάν θέλετε να εισαγάγετε τη σειρά μετά τη 2η σειρά από το ενεργό κελί, μπορούμε να χρησιμοποιήσουμε τον παρακάτω κώδικα.

Κώδικας:

 Sub InsertRow_Example5 () ActiveCell.Offset (2, 0). EntireRow.Insert End Sub 

Αυτό θα εισαγάγει τη σειρά μετά την 6η σειρά.

Εισαγωγή εναλλακτικών σειρών

Η εισαγωγή εναλλακτικών σειρών είναι πολλές φορές έχω συναντήσει πολλές φορές. Για να δείτε την παρακάτω εικόνα δεδομένων.

Τώρα πρέπει να εισαγάγουμε εναλλακτικές σειρές. Πρέπει να χρησιμοποιήσουμε βρόχους για να εισάγουμε κάθε εναλλακτική σειρά.

Κώδικας:

 Sub InsertRow_Example6 () Dim K As Integer Dim X As Integer X = 1 For K = 1 to 4 Cells (X, 1). EntireRow.Insert X = X + 2 Next K End Sub 

Αυτό θα εισαγάγει σειρές σαν αυτό.

Μπορείτε να κατεβάσετε αυτό το VBA Insert Row Excel εδώ. Πρότυπο VBA Insert Row Excel