I denne artikkelen har vi laget en makro for å markere dupliserte verdier.
Rådata består av forskjellige bilnavn. Vi ønsker å markere dupliserte oppføringer.
Trykk på "Marker duplikat" -knappen for å kjøre makroen og markere dupliserte oppføringer.
Logisk forklaring
Vi har opprettet “Check_Dups” -makro for å markere dupliserte oppføringer. De vil bli markert med rød farge. I makroen sjekker vi for telling av en bestemt oppføring. Hvis den er større enn 1, blir dataene uthevet.
Følg koden nedenfor
Alternativ Eksplisitt sub Check_Dups () 'Deklarere variabler Dim Cell As Variant Dim Source As Range' Initializing source range Set Source = Range ("A9: A24") 'Fjerner tidligere formatering fra kildekilden.Interior.Color = RGB (221, 235, 247) 'Sløyfe gjennom hver celle i kildeområdet for hver celle i kilde' Kontrollere om verdien i cellen allerede finnes i kildeområdet Hvis Application.WorksheetFunction.CountIf (Source, Cell)> 1 Deretter 'Utheving av dupliserte verdier i rødt farge Cell.Interior.Color = RGB (255, 0, 0) End If Next End Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post