Blandt standardværktøjerne i Microsoft Excel er der mange forskellige måder at fremhæve dubletter med farve. Den nemmeste og hurtigste måde er med betinget formatering. For at gøre dette skal du blot vælge en række celler og vælge på fanen Hjem — Betinget formatering — Cellevalgsregler — Dublerede værdier (Hjem — Betinget formatering — Fremhæv cellersregler — Dublerede værdier):
Men i dette tilfælde vil fyldfarven på alle celler være den samme, dvs. den signalerer blot, at elementet har dubletter et andet sted i området, men hjælper ikke med at finde dem. Du kan løse situationen med en lille makro, der vil fylde hvert par (eller flere) af gentagne dubletter med sin egen farve:
Så meget klarere, ikke? Selvfølgelig vil det med et stort antal gentagne celler være svært at skelne mellem nuancer, men med et relativt lille antal dubletter vil denne metode fungere perfekt.
For at bruge denne makro skal du trykke på tastaturgenvejen Alt + F11 eller knap Visual Basic fanen Udvikler, indsæt et nyt tomt modul via menuen Indsæt – Modul og kopier koden til denne makro der:
Sub DuplicatesColoring() Dim Dupes() 'Erklære en matrix til at gemme dubletter ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Fjern udfyldningen hvis i = 3 For hver celle I Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'hvis cellen allerede er i rækken af dubletter, udfyld If Dupes(k, 1) = celle Derefter celle.Interior. ColorIndex = Dupes(k, 2) Næste k 'hvis cellen indeholder en duplikat, men endnu ikke i arrayet, skal du tilføje den til arrayet og udfylde den. Hvis cell.Interior.ColorIndex = -4142 Så cell.Interior.ColorIndex = i Dupes(i, 1 ) = celle.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub
Nu kan du vælge et hvilket som helst område med data på arket og køre vores makro ved hjælp af tastaturgenvejen Alt + F8 eller via knappen Makroer (Makroer) fanen developer (Udvikler).
- Fremhæv dubletter med farve
- Hvad er makroer, hvor skal man indsætte makrokode i Visual Basic, hvordan man kører dem
- Sådan tælles antallet af unikke værdier i et givet celleområde