В этой статье мы создали макрос для выделения повторяющихся значений.

Исходные данные состоят из разных названий автомобилей. Мы хотим выделить повторяющиеся записи.

ArrowSampleData

Нажмите кнопку «Выделить дубликат», чтобы запустить макрос и выделить повторяющиеся записи.

ArrowOutput

Логическое объяснение

Мы создали макрос «Check_Dups» для выделения повторяющихся записей. Они будут выделены красным цветом. В макросе мы проверяем количество конкретной записи. Если он больше 1, данные будут выделены.

ArrowOutput

Пожалуйста, введите код ниже

Option Explicit

Sub Check_Dups()

'Declaring variables

Dim Cell As Variant

Dim Source As Range

'Initializing source range

Set Source = Range("A9:A24")

'Removing any previous formatting from the source

Source.Interior.Color = RGB(221, 235, 247)

'Looping through each cell in the source range

For Each Cell In Source



'Checking whether value in cell already exist in the source range

If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then



'Highlighting duplicate values in red color

Cell.Interior.Color = RGB(255, 0, 0)



End If

Next

End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]