Σε αυτό το άρθρο, θα μάθουμε πώς να διαγράψετε κενές στήλες μέσω VBA στο Microsoft Excel. Θα διαγράψουμε τις στήλες που είναι εντελώς κενές, σημαίνει ότι αν δεν υπάρχουν δεδομένα σε ολόκληρη τη στήλη τα δεδομένα αυτά.
Ας πάρουμε ένα παράδειγμα και καταλάβουμε:
Έχουμε δεδομένα στην περιοχή A1: I21, στην οποία η στήλη A περιέχει όνομα, η στήλη B είναι κενή, η στήλη C περιέχει διεύθυνση οδού, στήλη D πόλη, η στήλη E είναι κενή, η στήλη F περιέχει περιοχή, η στήλη G είναι κενή, η στήλη H περιέχει χώρα όνομα και η στήλη Ι περιέχει τον αριθμό τηλεφώνου.
Θέλουμε να διαγράψουμε τις κενές στήλες από τα δεδομένα, ακολουθήστε τα παρακάτω βήματα και τον κωδικό:
- Ανοίξτε τη σελίδα VBE για να πατήσετε το πλήκτρο Alt+F11
- Εισαγάγετε τη μονάδα για να γράψετε τον κώδικα
- Γράψτε τον παρακάτω κωδικό:
Sub Delete_Columns () Dim C As Integer C = ActiveSheet.Cells.SpecialCells (xlLastCell). Colon Do till C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 Then Columns (C). Delete End If C = C - 1 Loop End Sub
Επεξήγηση κώδικα:
Αρχικά έχουμε ορίσει όλες τις μεταβλητές. Στη συνέχεια, το εύρος των κενών στηλών και, στη συνέχεια, χρησιμοποιήσαμε το "Do till loop" για να διαγράψουμε τις κενές στήλες. Και, τώρα έχουμε ορίσει την κενή στήλη και την εντολή διαγραφής.
Για να εκτελέσετε τον κωδικό, πατήστε το πλήκτρο F5 στο πληκτρολόγιό σας,
- Όλες οι κενές στήλες θα διαγραφούν.
Με αυτόν τον τρόπο, μπορούμε να διαγράψουμε τις κενές στήλες μέσω VBA στο Microsoft Excel.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email