U ovom smo članku stvorili makronaredbu za isticanje dupliciranih vrijednosti.
Sirovi podaci sastoje se od različitih naziva automobila. Želimo istaknuti dvostruke unose.
Pritisnite gumb "Označi dvostruko" za pokretanje makronaredbe i označavanje dupliciranih unosa.
Logično objašnjenje
Napravili smo makro "Check_Dups" za označavanje dupliciranih unosa. Bit će označene crvenom bojom. U makronaredbi provjeravamo broj određenog unosa. Ako je veći od 1, tada će se podaci istaknuti.
Molimo slijedite dolje za kôd
Opcija Explicit Sub Check_Dups () 'Deklariranje varijabli Dim Cell kao Variant Dim Source As Range' Pokretanje raspona izvora Postavljanje izvora = raspon ("A9: A24") 'Uklanjanje prethodnog oblikovanja iz izvora Source.Interior.Color = RGB (221, 235, 247) 'Petlja kroz svaku ćeliju u izvornom rasponu Za svaku ćeliju u izvoru' Provjera postoji li vrijednost u ćeliji već u izvornom rasponu Ako Application.WorksheetFunction.CountIf (Source, Cell)> 1 Then 'Isticanje dupliciranih vrijednosti crvenom bojom boja Cell.Interior.Color = RGB (255, 0, 0) End If Next End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte