Подсветка повторяющихся значений в одном столбце

Question

Я пытаюсь проверить дубликаты в столбце G и выделить красным, если есть дубликаты. Я написал следующий запрос, но он не работает и выдает сообщение об ошибке как

Невозможно получить свойство CountIf класса WorksheetFunction

Dim Rng1 As Range
Dim g As Range

Set Rng1 = Range(Range("G11"), Range("G" & Rows.Count).End(xlUp))

For Each g In Rng1
    If WorksheetFunction.CountIf(Rng1, g.Value) > 1 Then
         g.Interior.ColorIndex = 3
    End If
Next g

Answer 1

Попробуйте:

Option Explicit

Sub test()

    Dim rng As Range, cell As Range

    With ThisWorkbook.Worksheets("Sheet1")

        Set rng = .Range("G11:G" & .cells(.Rows.Count, "G").End(xlUp).Row)

        For Each cell In rng
            If WorksheetFunction.CountIf(rng, cell) > 1 Then
                cell.Interior.Color = vbRed
            End If
        Next cell

    End With

End Sub