Σε αυτό το άρθρο, θα μάθουμε πώς να εξάγουμε εγγραφή χωρίς κριτήρια μέσω VBA στο Microsoft Excel.
Ας πάρουμε ένα παράδειγμα για να καταλάβουμε πώς μπορούμε να βάλουμε το φίλτρο και να επιλέξουμε τα κριτήρια και στη συνέχεια να κάνουμε την απαιτούμενη ενέργεια:-
Έχουμε δεδομένα στο εύρος A: στήλες G, στις οποίες η στήλη A περιέχει όνομα, η στήλη b περιέχει διεύθυνση, η στήλη C περιέχει πόλη, περιοχή στήλης D, χώρα στήλης Ε, ο αριθμός τηλεφώνου στήλης F και η στήλη G περιέχει κριτήρια.
Θέλουμε να γράψουμε τη Μακροεντολή για να βάλουμε το φίλτρο και στη συνέχεια να φιλτράρουμε τα δεδομένα σύμφωνα με το Δεν περιέχει δεδομένα στη στήλη G και στη συνέχεια να διαγράψουμε τα Δε περιέχει δεδομένα. Στη συνέχεια, αφαιρέστε το φίλτρο και εμφανίστε όλα τα δεδομένα.
Για να εξαγάγετε εγγραφή με κριτήρια Not ακολουθήστε τα παρακάτω βήματα:
- Ανοίξτε τη σελίδα VBA πατήστε το πλήκτρο Alt+F11
- Εισαγάγετε μια ενότητα
- Στη συνέχεια, μεταβείτε ξανά στο μενού εισαγωγής και κάντε κλικ στη διαδικασία, όπου θα λάβετε τη διαδικασία εάν δεν γνωρίζετε πώς πρέπει να ξεκινήσει η μακροεντολή
- Γράψτε τον παρακάτω κωδικό:
Sub Delete_NotEitable () ActiveSheet.Range ("$ A $ 1: $ G $ 15"). AutoFilter Field: = 7, Criteria1: = "" Rows ("2:12"). Select Selection.Delete Shift: = xlUp Range (" B1 "). Επιλέξτε Selection.AutoFilter End Sub
- Για να εκτελέσετε τον κωδικό, πατήστε το πλήκτρο F5 στο πληκτρολόγιο.
- Τα δεδομένα θα φιλτραριστούν και στη συνέχεια, σύμφωνα με τα καθορισμένα κριτήρια, τα φιλτραρισμένα δεδομένα θα διαγραφούν.
Επεξήγηση κώδικα:
- Έχουμε ορίσει το φάσμα δεδομένων κεφαλίδας για να τοποθετήσουμε το φίλτρο με κριτήρια μη κενών κελιών στη στήλη καταλληλότητας
- Ορίστε στον κωδικό για να επιλέξετε τη σειρά και, στη συνέχεια, θα διαγράψετε ολόκληρη τη σειρά
- Στο τέλος ανοίξτε το φίλτρο
Με αυτόν τον τρόπο, μπορούμε να βάλουμε το φίλτρο με βάση συγκεκριμένα κριτήρια και στη συνέχεια να διαγράψουμε τα δεδομένα.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email