Κανονικά στο φύλλο εργασίας excel έχουμε δύο διαφορετικές μεθόδους για τη διαγραφή στηλών, μία είναι η συντόμευση πληκτρολογίου και μια άλλη χρησιμοποιώντας τη μέθοδο δεξιού κλικ και εισαγωγής, αλλά στο VBA πρέπει να χρησιμοποιήσουμε την εντολή διαγραφής και ολόκληρη τη δήλωση στήλης για να διαγράψουμε μαζί οποιαδήποτε στήλη, το τέχνασμα Αυτό είναι ότι αν χρειαστεί να διαγράψουμε μια στήλη δίνουμε μια αναφορά στήλης αλλά για τις πολλαπλές στήλες δίνουμε πολλές αναφορές στηλών.
Excel VBA Διαγραφή στήλης
Πραγματοποιούμε πολλές ενέργειες στο excel όπως περικοπή, αντιγραφή, επικόλληση, προσθήκη, διαγραφή, εισαγωγή και πολλά τέτοια πράγματα που κάνουμε σε τακτική βάση. Μπορούμε να χρησιμοποιήσουμε όλες αυτές τις ενέργειες χρησιμοποιώντας VBA Coding. Μία από τις σημαντικές έννοιες που πρέπει να μάθουμε είναι στο VBA είναι η «στήλη διαγραφής». Σε αυτό το άρθρο, θα σας δείξουμε πώς να χρησιμοποιήσετε αυτήν την επιλογή Διαγραφή στήλης στο VBA.
Τι κάνει η Διαγραφή στήλης στο Excel VBA;
Όπως λέει το όνομα, θα διαγράψει την καθορισμένη στήλη. Για να εκτελέσουμε αυτήν την εργασία, πρέπει πρώτα να προσδιορίσουμε ποια στήλη πρέπει να διαγράψουμε. Η επιλογή στηλών για διαγραφή διαφέρει από το ένα σενάριο στο άλλο, οπότε θα καλύψουμε μερικά από τα σημαντικά και συχνά σενάρια που αντιμετωπίζονται σε αυτό το άρθρο.
Η διαγραφή των στηλών είναι εύκολη. Πρώτον, πρέπει να χρησιμοποιήσουμε την ιδιότητα COLUMNS για να επιλέξουμε τη στήλη, οπότε παρακάτω είναι η σύνταξη της μεθόδου Διαγραφή στήλης στο VBA.
Στήλες (Αναφορά στήλης). Διαγραφή
Έτσι μπορούμε να κατασκευάσουμε τον κώδικα ως εξής:
Στήλες (2). Διαγραφή ή Στήλες ("B"). Διαγραφή
Αυτό θα διαγράψει τη στήλη αριθμός 2, δηλαδή τη στήλη Β.
Εάν θέλουμε να διαγράψουμε πολλές στήλες, δεν μπορούμε να εισαγάγουμε στήλες. Πρέπει να αναφέρουμε τις στήλες με κεφαλίδες στηλών, δηλαδή αλφάβητα.
Στήλες ("A: D"). Διαγραφή
Αυτό θα διαγράψει τη στήλη από το Α έως το Δ, δηλαδή τις πρώτες 4 στήλες.
Έτσι, μπορούμε να χρησιμοποιήσουμε τη μέθοδο "Διαγραφή στήλης" στο VBA για να διαγράψουμε τις συγκεκριμένες στήλες. Στην παρακάτω ενότητα, θα δούμε περισσότερα παραδείγματα για να το κατανοήσουμε καλύτερα. Συνέχισε να διαβάζεις.
Παραδείγματα μεθόδου διαγραφής στήλης Excel VBA
Ακολουθούν τα παραδείγματα διαγραφής στηλών χρησιμοποιώντας το VBA.
Παράδειγμα # 1 - Χρήση μεθόδου Διαγραφής
Ας υποθέσουμε ότι έχετε το φύλλο δεδομένων, όπως το παρακάτω.
Εάν θέλουμε να διαγράψουμε τον μήνα στήλης "Μαρ", επιλέξτε πρώτα την ιδιότητα στηλών.
Κώδικας:
Sub Delete_Example1 () Στήλες (End Sub
Αναφέρετε τον αριθμό της στήλης ή το αλφάβητο. Σε αυτήν την περίπτωση, είναι είτε 3 είτε C.
Κώδικας:
Υπο Delete_Example1 () Στήλες (3). Τέλος Υποτ
Χρησιμοποιήστε τη μέθοδο Διαγραφή.
Σημείωση: δεν θα λάβετε τη λίστα IntelliSense για να επιλέξετε τη μέθοδο Διαγραφή. Απλώς πληκτρολογήστε "Διαγραφή"Κώδικας:
Sub Delete_Example1 () Στήλες (3). Διαγραφή End Sub
Εναλλακτικά, μπορείτε να εισαγάγετε τη διεύθυνση της στήλης ως εξής.
Κώδικας:
Υπο Delete_Example1 () Στήλες ("C"). Διαγραφή End Sub
Εκτελέστε αυτόν τον κώδικα χρησιμοποιώντας το πλήκτρο F5, διαφορετικά μπορείτε να εκτελέσετε χειροκίνητα και να δείτε το αποτέλεσμα.
Και οι δύο κωδικοί θα κάνουν την ίδια εργασία με τη διαγραφή της αναφερόμενης στήλης.
Αν θέλουμε να διαγράψουμε πολλές στήλες, πρέπει να τις αναφέρουμε στο αλφάβητο. Δεν μπορούμε να χρησιμοποιήσουμε αριθμούς στηλών εδώ.
Εάν θέλουμε να διαγράψουμε τις στήλες 2 έως 4, μπορούμε να περάσουμε τον κωδικό όπως παρακάτω.
Κώδικας:
Sub Delete_Example1 () Στήλες ("C: D"). Διαγραφή End Sub
Εκτελέστε αυτόν τον κωδικό χειροκίνητα μέσω της επιλογής εκτέλεσης ή πατήστε το πλήκτρο F5. Αυτό θα διαγράψει τις στήλες "Φεβ," "Μαρ" και "Απρ."
Παράδειγμα # 2 - Διαγραφή στηλών με όνομα φύλλου εργασίας
Τα παραπάνω είναι μια επισκόπηση του τρόπου διαγραφής στηλών χρησιμοποιώντας τον κώδικα VBA. Ωστόσο, αυτή δεν είναι η καλή πρακτική της διαγραφής στηλών. Χωρίς αναφορά στο όνομα του φύλλου εργασίας, είναι επικίνδυνο να διαγράψετε τυφλά τη στήλη.
Εάν δεν έχετε αναφέρει το όνομα του φύλλου εργασίας, τότε όποιο φύλλο είναι ενεργό, θα διαγράψει στήλες αυτού του φύλλου.
Πρώτον, πρέπει να επιλέξουμε το φύλλο εργασίας με το όνομά του.
Κώδικας:
Υπο Delete_Example2 () Φύλλα εργασίας ("Φύλλο πωλήσεων"). Επιλέξτε End Sub
Αφού επιλέξετε το φύλλο, πρέπει να επιλέξετε τις στήλες. Μπορούμε επίσης να επιλέξουμε τις στήλες χρησιμοποιώντας το αντικείμενο VBA RANGE.
Κώδικας:
Υπο Delete_Example2 () Φύλλα εργασίας ("Φύλλο πωλήσεων"). Επιλέξτε Εύρος ("B: D"). Διαγραφή End Sub
This will delete the columns B to D of the worksheet “Sales Sheet.” For this code, it doesn’t matter which is active. Still, it will delete the mentioned columns of that sheet only.
We can also construct the VBA code in the single line itself.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Range("B:D").Delete End Sub
This also deletes the columns “B to D” without selecting the worksheet “Sales Sheet.”
Example #3 - Delete Blank Columns
Assume you have data that has alternative blank columns like the below.
So, delete every alternative column we can use the below code.
Code:
Sub Delete_Example3() Dim k As Integer For k = 1 To 4 Columns(k + 1).Delete Next k End Sub
Run this code using the F5 key or manually. Then, it will delete all the alternative blank columns, and our data will look like this.
Παράδειγμα # 4 - Διαγραφή κενών στηλών
Τώρα, δείτε αυτό το παράδειγμα. Υπάρχουν ορισμένες καταστάσεις όπου πρέπει να διαγράψουμε ολόκληρη τη στήλη εάν κάποιο από τα κενά κελιά εντοπιστεί στο εύρος δεδομένων. Εξετάστε τα παρακάτω δεδομένα για παράδειγμα.
Όλα τα κίτρινα κελιά είναι κενά. Εδώ λοιπόν, η απαίτησή μου είναι να διαγράψω όλες τις στήλες κενών κελιών. Ο παρακάτω κώδικας θα το κάνει αυτό.
Κώδικας:
Sub Delete_Example4 () Range ("A1: F9"). Επιλέξτε Selection.SpecialCells (xlCellTypeBlanks). Επιλέξτε Selection.EntireColumn. Delete End Sub
Επιτρέψτε μου να εξηγήσω αυτήν τη γραμμή γραμμή προς γραμμή για εσάς.
Τα δεδομένα μας υπάρχουν από A1 έως F9, οπότε πρώτα πρέπει να επιλέξω αυτό το εύρος και ο παρακάτω κώδικας θα το κάνει.
Εύρος ("A1: F9"). Επιλέξτε
Σε αυτό το επιλεγμένο εύρος κελιών, πρέπει να επιλέξω τα κενά κελιά. Επομένως, για να επιλέξετε ένα κενό κελί, πρέπει να ειδική ιδιότητα κελιού, και σε αυτήν την ιδιότητα, χρησιμοποιήσαμε τον τύπο κελιού ως κενό.
Selection.SpecialCells (xlCellTypeBlanks). Επιλέξτε
Στη συνέχεια, θα επιλέξει όλα τα κενά κελιά, και στην επιλογή, διαγράφουμε ολόκληρη τη στήλη της επιλογής.
Selection.EntireColumn.Delete
Έτσι, το τελικό αποτέλεσμα θα μοιάζει με αυτό.
Όπου έχει βρει το κενό κελί, έχει διαγράψει αυτά τα κενά κελιά ολόκληρη τη στήλη.
Μπορείτε να πραγματοποιήσετε λήψη αυτού του Excel VBA Delete Column εδώ - VBA Delete Column Template
