在Excel中识别重复项

Question

我正在尝试在宏中识别重复的单元格。我正在尝试使用宏，因此一旦识别出副本，我就可以提取整行。

我用过这段代码：

Sub MarkDuplicates()
Dim iWarnColor As Integer
Dim rng As Range
Dim rngCell As Variant


Set rng = Sheets("AllAccounts (12-05-2017)").Range("D1:D1613") 
iWarnColor = xlThemeColorAccentz

For Each rngCell In rng.Cells
    vVal = rngCell.Text
    If (WorksheetFunction.CountIf(rng, vVal) = 1) Then
        rngCell.Interior.Pattern = xlNone
    Else
        rngCell.Interior.ColorIndex = iWarnColor
    End If
Next rngCell
End Sub

但它只识别出空单元格。目前我正在尝试仅识别重复的文本，稍后我将提取它们。

你能帮帮我吗？