Μορφοποίηση υπό όρους - Επισημάνετε διπλότυπα
Για να επισημάνετε όλες τις διπλές τιμές σε μια περιοχή, θα χρησιμοποιήσετε τη δυνατότητα μορφοποίησης υπό όρους του Excel. Απλώς ακολουθήστε αυτά τα βήματα:
1. Επιλέξτε το εύρος που περιέχει τις διπλές τιμές. Σημείωση: εάν εργάζεστε με έναν πίνακα δεδομένων, επιλέξτε μόνο τα μοναδικά αναγνωριστικά.
2. Ανοίξτε το Μενού μορφοποίησης υπό όρους και επιλέξτε Επισήμανση Διπλότυπα (Alt> H> L> H> D)
Βρείτε και επισημάνετε όλα τα διπλότυπα στο εύρος με VBA
Ενημέρωση: Ανάλογα με την πρόθεσή σας, ο παρακάτω κωδικός ενδέχεται να μην είναι πλέον απαραίτητος. Όπως συζητήθηκε παραπάνω, το ίδιο μπορεί να επιτευχθεί χρησιμοποιώντας τη δυνατότητα υπό όρους μορφοποίηση του Excel. Ωστόσο, ενδέχεται να εξακολουθείτε να βρίσκετε αυτήν τη λειτουργικότητα χρήσιμη για να βρείτε διπλές τιμές όταν εργάζεστε εντός VBA.
Η ακόλουθη υπορουτίνα θα επισημάνει όλες τις διπλές τιμές στην περιοχή με κίτρινο χρώμα. Δεν έχει σημασία αν οι τιμές είναι κείμενο ή αριθμοί. Χρησιμοποιεί τη συνάρτηση COUNTIF του Excel για να μετρήσει τα διπλότυπα και στη συνέχεια ορίζει το χρώμα σε κίτρινο:
| 12345678910 | Sub Highlight_Duplicates (τιμές ως εύρος)Dim CellΓια κάθε κελί σε τιμέςΕάν WorksheetFunction.CountIf (Values, Cell.Value)> 1 ΤότεCell.Interior.ColorIndex = 6Τέλος εανΕπόμενο κελίΤέλος υπο |
και μετά αν πατήσουμε το κουμπί βλέπουμε όλα τα διπλότυπα:
Για να κατεβάσετε το αρχείο .XLS με αυτό το σεμινάριο, κάντε κλικ εδώ
