W tym artykule stworzyliśmy makro do podświetlania zduplikowanych wartości.
Surowe dane składają się z różnych nazw samochodów. Chcemy wyróżnić zduplikowane wpisy.
Naciśnij przycisk "Podświetl duplikaty", aby uruchomić makro i podświetlić zduplikowane wpisy.
Wyjaśnienie logiczne
Stworzyliśmy makro „Check_Dups”, aby podświetlić zduplikowane wpisy. Zostaną podświetlone na czerwono. W makrze sprawdzamy ilość danego wpisu. Jeśli jest większa niż 1, dane zostaną podświetlone.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Sub Check_Dups() 'Deklarowanie zmiennych Dim Cell As Variant Dim Source As Range 'Inicjowanie zakresu źródłowego Set Source = Range("A9:A24") 'Usuwanie poprzedniego formatowania ze źródła Source.Interior.Color = RGB(221, 235, 247) 'Przechodzenie w pętlę przez każdą komórkę w zakresie źródłowym Dla każdej komórki w źródle 'Sprawdzenie, czy wartość w komórce już istnieje w zakresie źródłowym Jeśli Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then 'Podświetlanie zduplikowanych wartości na czerwono color Cell.Interior.Color = RGB(255, 0, 0) End If Next End Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail