Blant standard Microsoft Excel-verktøy er det mange forskjellige måter å fremheve duplikater med farger. Den enkleste og raskeste måten er med betinget formatering. For å gjøre dette, velg bare en rekke celler og velg på fanen Hjem — Betinget formatering — Cellevalgsregler — Dupliserte verdier (Hjem — Betinget formatering — Regler for utheving av celler — Dupliserte verdier):
Men i dette tilfellet vil fyllfargen til alle cellene være den samme, dvs. at den ganske enkelt signaliserer at elementet har duplikater et annet sted i området, men gjør ingenting for å finne dem. Du kan fikse situasjonen med en liten makro som vil fylle hvert par (eller flere) av gjentatte duplikater med sin egen farge:
Så mye klarere, ikke sant? Selvfølgelig, med et stort antall repeterende celler, vil det være vanskelig å skille mellom nyanser, men med et relativt lite antall duplikater vil denne metoden fungere perfekt.
For å bruke denne makroen, trykk på hurtigtasten Alt + F11 eller knappen Visual Basic tab Utvikler, sett inn en ny tom modul via menyen Sett inn – modul og kopier koden til denne makroen dit:
Sub DuplicatesColoring() Dim Dupes() 'Erklære en matrise for å lagre duplikater ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Fjern fyllet 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 rekken av duplikater, fyll ut If Dupes(k, 1) = celle Deretter celle.Interior. ColorIndex = Dupes(k, 2) Neste k 'hvis cellen inneholder en duplikat, men ennå ikke er i matrisen, legg den til matrisen og fyll 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 celle End Sub
Nå kan du velge et hvilket som helst område med data på arket og kjøre makroen vår ved å bruke hurtigtasten Alt + F8 eller via knappen Makroer (Makroer) tab utvikler (Utvikler).
- Fremhev duplikater med farge
- Hva er makroer, hvor du skal sette inn makrokode i Visual Basic, hvordan du kjører dem
- Hvordan telle antall unike verdier i et gitt celleområde