Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή για τη διαγραφή ελλιπών εγγραφών που περιέχουν κενά κελιά.
Τα ακατέργαστα δεδομένα αποτελούνται από ορισμένα δείγματα δεδομένων, τα οποία περιλαμβάνουν όνομα, ηλικία και φύλο. Περιέχει επίσης ορισμένα κενά κελιά.
Θέλουμε να καταργήσουμε αυτές τις εγγραφές που περιέχουν κενά κελιά.
Λογική εξήγηση
Δημιουργήσαμε τη μακροεντολή "BlankRowDeletion" για τη διαγραφή ελλιπών εγγραφών. Αναζητά και επιλέγει κενά κελιά και στη συνέχεια διαγράφει ολόκληρη τη σειρά που περιέχει ένα κενό κελί.
Επεξήγηση κώδικα
Ρύθμιση Rng = Εύρος ("A9: C" & LastRow)
Ο παραπάνω κώδικας χρησιμοποιείται για τη δημιουργία ενός αντικειμένου εύρους για τα δεδομένα δεδομένα.
Rng.SpecialCells (xlCellTypeBlanks). Επιλέξτε
Ο παραπάνω κώδικας χρησιμοποιείται για την επιλογή κενών κελιών εντός του καθορισμένου εύρους.
Selection.EntireRow.Delete
Ο παραπάνω κώδικας χρησιμοποιείται για τη διαγραφή ολόκληρης της σειράς για το επιλεγμένο κελί.
Ακολουθήστε παρακάτω για τον κωδικό
Option Explicit Sub BlankRowDeletion () 'Δήλωση μεταβλητών Dim LastRow As Long Dim Rng As Range' Λήψη αριθμού σειράς του τελευταίου κελιού LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell). Row 'Επιλογή όλων των δεδομένων Σετ Rng = Range ("A9 : C "& LastRow)" Επιλογή κενών κελιών Rng.SpecialCells (xlCellTypeBlanks). Επιλέξτε "Διαγραφή πλήρους επιλογής σειράς. IntireRow.Delete Range (" A9 "). Επιλέξτε End Sub
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email