Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή για τον έλεγχο της διπλότητας και την κατάργηση διπλών τιμών από δύο διαδοχικές στήλες.
Τα ακατέργαστα δεδομένα αποτελούνται από λεπτομέρειες στόχου, οι οποίες περιλαμβάνουν όνομα πράκτορα, όνομα μοντέλου προορισμού και όνομα επιθυμητού μοντέλου.
Σε αυτό το άρθρο, θέλουμε να διαγράψουμε αυτές τις εγγραφές, οι οποίες έχουν παρόμοιο όνομα μοντέλου Target και επιθυμητό όνομα μοντέλου.
Επεξήγηση κώδικα
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). Σειρά
Ο παραπάνω κώδικας χρησιμοποιείται για να πάρει τον αριθμό σειράς του τελευταίου κελιού.
Για i = LastRow To 12 Βήμα -1
Επόμενο
Ο παραπάνω βρόχος For χρησιμοποιείται για αντίστροφο βρόχο. Θα ξεκινήσει να κάνει κύκλους από την τελευταία σειρά έως τις 12ου σειρά.
Αν Κελιά (i, 2) = Κελιά (i, 3) Τότε
Στον παραπάνω κώδικα, συγκρίναμε τιμές στα κελιά του 2nd στήλη με 3rd στήλη.
Σειρές (i). Διαγραφή
Ο παραπάνω κώδικας χρησιμοποιείται για τη διαγραφή ολόκληρης της σειράς.
Ακολουθήστε παρακάτω για τον κωδικό
Option Explicit Sub DeleteMatches () 'Δήλωση μεταβλητών Dim LastRow, i As Long' Λήψη του αριθμού σειράς του τελευταίου κελιού LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). Row 'Looping from last row to 12th row For i = LastRow To 12 Step -1 Εάν Κελιά (i, 2) = Κελιά (i, 3) Στη συνέχεια, γραμμές (i). Διαγραφή Τέλος Αν Επόμενο Τέλος Υπο
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email