I denne artikel har vi oprettet en makro til at fremhæve dublerede værdier.
Rå data består af forskellige bilnavne. Vi vil fremhæve dublerede poster.
Tryk på knappen "Fremhæv duplikat" for at køre makroen og fremhæve dublerede poster.
Logisk forklaring
Vi har oprettet “Check_Dups” makro for at fremhæve dublerede poster. De vil blive markeret med rød farve. I makroen kontrollerer vi for optælling af en bestemt post. Hvis det er større end 1, vil dataene blive fremhævet.
Følg venligst nedenstående for koden
Option Eksplicit under Check_Dups () 'Deklarerende variabler Dim Cell As Variant Dim Source As Range' Initializing source range Set Source = Range ("A9: A24") 'Fjernelse af tidligere formatering fra kildekilden.Interior.Color = RGB (221, 235, 247) 'Looping through each cell in the source range For Every Cell In Source' Kontrol af, om værdien i cellen allerede findes i kildeområdet Hvis Application.WorksheetFunction.CountIf (Source, Cell)> 1 Herefter 'Fremhæver dublerede værdier med rødt farve Cell.Interior.Color = RGB (255, 0, 0) End If Next End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet