Σε αυτό το άρθρο, έχουμε δημιουργήσει μια μακροεντολή για την επισήμανση διπλών τιμών.
Τα ακατέργαστα δεδομένα αποτελούνται από διαφορετικά ονόματα αυτοκινήτων. Θέλουμε να επισημάνουμε διπλές καταχωρήσεις.
Πατήστε το κουμπί "Επισήμανση διπλότυπου" για να εκτελέσετε τη μακροεντολή και να επισημάνετε τις διπλές καταχωρήσεις.
Λογική εξήγηση
Δημιουργήσαμε τη μακροεντολή "Check_Dups" για να επισημάνουμε διπλές καταχωρήσεις. Θα τονιστούν με κόκκινο χρώμα. Στη μακροεντολή, ελέγχουμε τον αριθμό μιας συγκεκριμένης καταχώρισης. Εάν είναι μεγαλύτερο από 1, τότε τα δεδομένα θα επισημανθούν.
Ακολουθήστε παρακάτω για τον κωδικό
Option Explicit Sub Check_Dups () 'Δήλωση μεταβλητών Dim Cell As Variant Dim Source As Range' Initializing source source Set Source = Range ("A9: A24") 'Κατάργηση τυχόν προηγούμενης μορφοποίησης από την πηγή Source.Interior.Color = RGB (221, 235, 247) 'Looping through every cell in the source source For Every Cell In Source' Έλεγχος αν η τιμή στο κελί υπάρχει ήδη στην περιοχή προέλευσης If Application.WorksheetFunction.CountIf (Source, Cell)> 1 Στη συνέχεια 'Επισήμανση διπλών τιμών με κόκκινο χρώμα Cell.Interior.Color = RGB (255, 0, 0) Τέλος Αν Επόμενο Τέλος Υπο
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email