I den här artikeln har vi skapat ett makro för att markera dubblettvärden.
Raw data består av olika bilnamn. Vi vill markera dubbletter.
Tryck på knappen "Markera duplikat" för att köra makrot och markera dubbla poster.
Logisk förklaring
Vi har skapat ett "Check_Dups" -makro för att markera dubbla poster. De kommer att markeras med röd färg. I makrot kontrollerar vi om antalet specifika poster räknas. Om den är större än 1 kommer data att markeras.
Följ koden nedan
Alternativ Explicit Sub Check_Dups () 'Deklarerande variabler Dim Cell As Variant Dim Source As Range' Initierar källintervall Ange källa = intervall ("A9: A24") 'Tar bort tidigare formatering från källkällan.Interior.Color = RGB (221, 235, 247) 'Looping through each cell in the source range For Each Cell In Source' Kontrollera om värdet i cellen redan finns i källområdet Om Application.WorksheetFunction.CountIf (Source, Cell)> 1 Sedan 'Markera dubblettvärden i rött färg Cell.Interior.Color = RGB (255, 0, 0) Slut Om Nästa Slut Sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen