Μεταξύ των τυπικών εργαλείων του Microsoft Excel, υπάρχουν πολλοί διαφορετικοί τρόποι για να επισημάνετε τα διπλότυπα με χρώμα. Ο ευκολότερος και ταχύτερος τρόπος είναι η μορφοποίηση υπό όρους. Για να το κάνετε αυτό, απλώς επιλέξτε μια περιοχή κελιών και επιλέξτε στην καρτέλα Αρχική σελίδα — Μορφοποίηση υπό όρους — Κανόνες επιλογής κελιών — Διπλότυπες τιμές (Αρχική — Μορφοποίηση υπό όρους — Επισήμανση κανόνων κελιών — Διπλότυπες τιμές):
Ωστόσο, σε αυτήν την περίπτωση, το χρώμα πλήρωσης όλων των κελιών θα είναι το ίδιο, δηλαδή απλώς σηματοδοτεί ότι το στοιχείο έχει διπλότυπα κάπου αλλού στην περιοχή, αλλά δεν κάνει τίποτα για να τα βρει. Μπορείτε να διορθώσετε την κατάσταση με μια μικρή μακροεντολή που θα γεμίσει κάθε ζεύγος (ή περισσότερα) επαναλαμβανόμενων διπλότυπων με το δικό του χρώμα:
Τόσο πολύ πιο ξεκάθαρο, σωστά; Φυσικά, με μεγάλο αριθμό επαναλαμβανόμενων κελιών, θα είναι δύσκολο να γίνει διάκριση μεταξύ των αποχρώσεων, αλλά με έναν σχετικά μικρό αριθμό διπλότυπων, αυτή η μέθοδος θα λειτουργήσει τέλεια.
Για να χρησιμοποιήσετε αυτήν τη μακροεντολή, πατήστε τη συντόμευση πληκτρολογίου Alt + F11 ή κουμπί Visual Basic αυτί Εργολάβος, εισάγετε μια νέα κενή μονάδα μέσω του μενού Εισαγωγή – Ενότητα και αντιγράψτε τον κώδικα αυτής της μακροεντολής εκεί:
Sub DuplicatesColoring() Dim Dupes() 'Δηλώστε έναν πίνακα για την αποθήκευση διπλότυπων ReDim Dupes(1 To Selection.Cells.Count, 1 to 2) Selection.Interior.ColorIndex = -4142 'Κατάργηση του γεμίσματος εάν i = 3 Για κάθε κελί σε Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Τότε Για k = LBound(Dupes) To UBound(Dupes) 'αν το κελί βρίσκεται ήδη στη σειρά των διπλότυπων, συμπληρώστε If Dupes(k, 1) = κελί Στη συνέχεια κελί.Εσωτερικό. ColorIndex = Dupes(k, 2) Στη συνέχεια k 'εάν το κελί περιέχει ένα αντίγραφο, αλλά δεν βρίσκεται ακόμη στον πίνακα, προσθέστε το στον πίνακα και συμπληρώστε το If cell.Interior.ColorIndex = -4142 Στη συνέχεια, cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub
Τώρα μπορείτε να επιλέξετε οποιοδήποτε εύρος με δεδομένα στο φύλλο και να εκτελέσετε τη μακροεντολή μας χρησιμοποιώντας τη συντόμευση πληκτρολογίου Alt + F8 ή μέσω του κουμπιού Μακροεντολές (Μακροεντολές) αυτί προγραμματιστή (Προγραμματιστής).
- Επισημάνετε τα διπλότυπα με χρώμα
- Τι είναι οι μακροεντολές, πού να εισαγάγετε κώδικα μακροεντολής στη Visual Basic, πώς να τις εκτελέσετε
- Πώς να μετρήσετε τον αριθμό των μοναδικών τιμών σε μια δεδομένη περιοχή κελιών