宏以查找列中的重复项

Question

在我的工作表上，重复项可能出现在“P”列中。我必须迭代P列，如果发生任何重复，那么我必须检查A列和A列中的一个条件。 B.请帮助我如何使用vba代码中的宏通过迭代找到重复的列。

这是我的代码：

Dim Rng As Range
Dim cel As Range

Set Rng = Range(Range("P11"), Range("P" & Rows.Count).End(xlUp))

For Each cel In Rng
    If WorksheetFunction.CountIf(Rng, cel.Value) > 1 Then
        MsgBox ("dupli")
    End If
Next cel