В тази статия създадохме макрос, за да подчертаем дублиращи се стойности.
Суровите данни се състоят от различни имена на автомобили. Искаме да подчертаем дублиращи се записи.
Натиснете бутона „Маркиране на дублирани“, за да стартирате макроса и да маркирате дублиращи се записи.
Логично обяснение
Създадохме макрос „Check_Dups“, за да подчертаем дублиращи се записи. Те ще бъдат подчертани в червен цвят. В макроса проверяваме за брой на определен запис. Ако е по -голямо от 1, тогава данните ще бъдат маркирани.
Моля, следвайте кода по -долу
Опция Explicit Sub Check_Dups () 'Деклариране на променливи Dim Cell като вариант Dim Source Source As Range' Инициализиране на обхвата на източника Set Source = Range ("A9: A24") 'Премахване на всяко предишно форматиране от източника Source.Interior.Color = RGB (221, 235, 247) „Циклично преминаване през всяка клетка в обхвата на източника за всяка клетка в източника“ Проверка дали стойността в клетката вече съществува в диапазона на източника Ако Application.WorksheetFunction.CountIf (Source, Cell)> 1 then „Маркиране на дублирани стойности в червено цвят Cell.Interior.Color = RGB (255, 0, 0) End If Next End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта