Εισαγωγή στηλών VBA - Πώς να εισαγάγετε στήλη στο φύλλο εργασίας του Excel με VBA;

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

Εισαγωγή στηλών στο Excel χρησιμοποιώντας VBA

Ως μέρος του κώδικα VBA, ενδέχεται να χρειαστεί να εισαγάγουμε μερικές στήλες στο δελτίο δεδομένων μας για να ταιριάζει στις ανάγκες μας. Η εισαγωγή στήλης είναι το εύκολο πλήκτρο συντόμευσης στο φύλλο εργασίας πατώντας Ctrl +, αλλά πώς να εισαγάγετε μια νέα στήλη μέσω κώδικα VBA. Σε αυτό το άρθρο σχετικά με το "VBA Insert Column", θα σας δείξουμε τη διαδικασία προσθήκης στηλών στο excel και θα σας δείξουμε διαφορετικά παραδείγματα σεναρίων.

Πώς να εισαγάγετε στήλες στο φύλλο εργασίας του Excel χρησιμοποιώντας το VBA;

Μπορούμε να εισάγουμε στήλες στο VBA χρησιμοποιώντας την ιδιότητα COLUMNS και το αντικείμενο RANGE. Πρέπει να γιατί χρειαζόμαστε στήλες και αντικείμενα εύρους για να εισάγουμε μια νέα στήλη.

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

Για παράδειγμα, εάν θέλετε να εισαγάγετε τη στήλη μετά τη στήλη B, τότε μπορείτε να δημιουργήσετε τον κώδικα έτσι.

Στήλες ("C")

Σημείωση: Ο λόγος για τον οποίο έχω χρησιμοποιήσει το C για να εισαγάγω μια στήλη μετά επειδή το επιλεγμένο κελί θα μετακινηθεί στη δεξιά πλευρά.

Αφού καθοριστούν οι στήλες, πρέπει να αποκτήσουμε πρόσβαση στην ιδιότητα "Ολόκληρη η στήλη".

Στήλες ("C"). Ολόκληρη η στήλη

Τότε πρέπει να επιλέξουμε τη μέθοδο «Εισαγωγή».

Στήλες ("C"). Ολόκληρη η στήλη. Εισαγωγή

Αυτό θα εισαγάγει τη στήλη μετά τη στήλη Γ και η υπάρχουσα στήλη Γ θα μετακινηθεί στο D.

Παράδειγμα # 1 - Εισαγωγή στηλών με χρήση αντικειμένου εύρους στο VBA

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

Τώρα θέλω να εισαγάγω τη στήλη VBA μετά τη στήλη Α, ακολουθήστε τα παρακάτω βήματα για να δημιουργήσετε τον κώδικα.

Βήμα 1: Ξεκινήστε τη διαδικασία Sub.

Βήμα 2: Ανοίξτε το αντικείμενο Range .

Κώδικας:

Sub ColumnInsert_Example1 () Εύρος (End Sub

Βήμα 3: Τώρα αναφέρετε τη στήλη σε διπλά εισαγωγικά .

Κώδικας:

Sub ColumnInsert_Example1 () Range ("B: B") End Sub

Βήμα 4: Τώρα επιλέξτε την ιδιότητα Ολόκληρη τη στήλη .

Κώδικας:

Υπο στήληInsert_Example1 () Εύρος ("B: B"). Ent End Sub

Βήμα 5: Αφού επιλέξετε την ιδιότητα Ολόκληρη τη στήλη, επιλέξτε τη μέθοδο "Εισαγωγή" .

Κώδικας:

Sub ColumnInsert_Example1 () Range ("B: B"). EntireColumn.ins End Sub

Τώρα ο κωδικός σας μοιάζει με αυτόν.

Κώδικας:

Υπο στήληInsert_Example1 () Εύρος ("B: B"). Ολόκληρη η κολώνα

Εκτελέστε τον κωδικό. Θα εισαγάγει τη νέα στήλη Β.

Παράδειγμα # 2 - Εισαγωγή πολλαπλών στηλών

Για παράδειγμα, εάν θέλετε να εισαγάγετε δύο νέες στήλες μετά τη στήλη Α, τότε πρέπει να αναφέρουμε δύο διευθύνσεις στηλών.

Κώδικας:

Υπο στήληInsert_Example1 () Εύρος ("B: C"). Ολόκληρη η στήλη. Ένθετο τέλος

Ο παραπάνω κωδικός θα εισαγάγει δύο στήλες μετά τη στήλη A.

Παράδειγμα # 3 - Με τη μέθοδο "Εισαγωγή" μόνο

Μπορούμε να εισαγάγουμε μια νέα στήλη χρησιμοποιώντας το "Εισαγωγή" της μόνης μεθόδου χωρίς πρόσβαση στην ιδιότητα Ολόκληρη η στήλη. Γι 'αυτό, ας κατανοήσουμε τη σύνταξη μεθόδου «εισαγωγή».

Έκφραση. Εισαγωγή ((Shift), (Αντιγραφή προέλευσης))

(Shift): Όταν εισάγουμε τη νέα στήλη, αν χρειαζόμαστε τις στήλες να μετακινηθούν προς τη δεξιά πλευρά ή να μετακινηθούν προς τα κάτω σε περίπτωση σειρών. Εδώ μπορούμε να χρησιμοποιήσουμε δύο επιλογές, "xlToRight" και "xlDownTo"

(Copy Origin): This will specify the format for the newly inserted column. Whether you need the format from the left side of the column or from the above cells. Here we can use two options “xlFormatFromLeftOrAbove” and “xlFormatFromRightOrBelow”.

Below is the example code for you.

Sub ColumnInsert_Example1() Range("B:B").Insert Shift:=xlToRight, Copyorigin:=xlFormatFromLeftOrAbove End Sub

Example #4 - Insert Columns Using COLUMNS Property in VBA

We have seen how to VBA insert columns using the RANGE object; now, we will show we can insert columns using the “COLUMNS” property.

Open the COLUMNS property.

Code:

Sub ColumnInsert_Example2() Columns( End Sub

We can specify the column in two ways here. One is using as usual alphabetic references, and another one is using column numbers.

If you want to insert the column after column A, then the code will be COLUMNS(“B”). If you are using numerical reference, then the code will be COLUMNS(2).

Code:

Sub ColumnInsert_Example2() Columns("B"). End Sub

Now the problem for you arises because when we use COLUMNS property, we don’t get to access the IntelliSense list.

Code:

Sub ColumnInsert_Example2() Columns("B").Entir End Sub

Here we need to sure of what we are doing. So this is the reason I have showed you the RANGE object first.

Code:

Sub ColumnInsert_Example2() Columns("B:B").EntireColumn.Insert End Sub

Example #5 - Insert Alternative Columns

Assume you have the data like the below image.

If you want to insert new columns after every alternate row, then we need to use VBA loops. The below code it tailor-made the code for you.

Code:

Υπο στήληInsert_Example3 () Dim k As Integer Columns (2). Επιλέξτε For k = 2 to 8 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Επιλέξτε Next k End Sub

Αυτό θα εισαγάγει τη στήλη ως εξής.

Παράδειγμα # 6 - Εισαγωγή στήλης με βάση την τιμή κελιού

Μπορούμε επίσης να εισαγάγουμε μια στήλη με βάση την τιμή κελιού. Για παράδειγμα, δείτε τα παρακάτω δεδομένα.

Εδώ θέλω να εισαγάγω τη στήλη εάν η τιμή του κελιού της πρώτης σειράς είναι "Έτος" και τα δεδομένα μου θα ήθελαν να το κάνουν μετά την εισαγωγή νέων στηλών.

Χρησιμοποιήστε τον παρακάτω κώδικα για να εκτελέσετε αυτήν την εργασία.

Κώδικας:

Υπο στήληInsert_Example4 () Dim k As Integer Dim x As Integer x = 2 For k = 2 to 12 If Cells (1, x). Value = "Year" Then Cells (1, x) .EntireColumn.Insert x = x + 1 End If x = x + 1 Επόμενο k End Sub

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