În acest articol, am creat o macro pentru a evidenția valorile duplicate.
Datele brute constau din nume diferite de mașini. Vrem să evidențiem intrări duplicate.
Apăsați butonul „Evidențiați duplicatul” pentru a rula macro și a evidenția intrările duplicate.
Explicație logică
Am creat macrocomanda „Check_Dups” pentru a evidenția intrările duplicate. Acestea vor fi evidențiate în culoare roșie. În macro, verificăm numărul unei anumite intrări. Dacă este mai mare de 1, atunci datele vor fi evidențiate.
Vă rugăm să urmați codul de mai jos
Opțiune Explicit Sub Check_Dups () 'Declararea variabilelor Dim celulă ca variantă Dim Sursă ca interval' Inițializarea intervalului sursă Set Sursă = Interval ("A9: A24") 'Eliminarea oricărei formate anterioare din sursă Source.Interior.Color = RGB (221, 235, 247) „Buclarea prin fiecare celulă din intervalul sursă Pentru fiecare celulă din sursă” Verificarea dacă valoarea din celulă există deja în intervalul sursă Dacă Application.WorksheetFunction.CountIf (Source, Cell)> 1 Apoi „Evidențierea valorilor duplicate în roșu color Cell.Interior.Color = RGB (255, 0, 0) End If Next End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail