首先，你的代码失效的核心原因有两个：

1. 颜色判断逻辑错误：你用Cell.Interior.ColorIndex去匹配RGB颜色值13551615，但ColorIndex是Excel内部的颜色索引编号，和RGB颜色值并非同一概念，两者无法直接对应匹配。应该改用Cell.Interior.Color来判断。
2. 正向删除行的漏洞：从前到后遍历行并执行删除操作时，删除一行后后续行的行号会自动上移，导致循环会跳过下一行（比如删除第10行后，原第11行变成新第10行，但循环已走到第11行的位置，会直接跳过该行）。

修复后的条件格式方案代码 #

先修正上述两个问题，以下是调整后的可运行版本：

Dim lastRow As Long
Dim i As Long

With ActiveSheet
    ' 标记所有重复项的条件格式逻辑
    lastRow = .Range("D5").End(xlDown).Row
    With .Range("D5:D" & lastRow)
        .ClearFormats
        .FormatConditions.AddUniqueValues
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).DupeUnique = xlDuplicate
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 13551615
        End With
        .FormatConditions(1).StopIfTrue = False
        .Calculate ' 手动计算模式下强制刷新格式生效
    End With
    
    ' 从后往前遍历新增行，避免行号错乱
    For i = lastRow To First_Row_of_new_data Step -1
        If .Cells(i, "D").Interior.Color = 13551615 Then
            .Rows(i).EntireRow.Delete
        End If
    Next i
End With

更高效的替代方案（摆脱条件格式依赖） #

条件格式依赖Excel的格式渲染，偶尔会因缓存或计算模式出现异常。如果追求更稳定高效的实现，推荐使用字典对象记录原有数据，直接基于值判断重复，无需依赖单元格格式：

Dim existingData As Object
Dim lastRow As Long
Dim i As Long
Dim cellValue As Variant

Set existingData = CreateObject("Scripting.Dictionary")
With ActiveSheet
    ' 先将原有8000行的D列值存入字典（假设原有数据从D5开始到第8004行）
    For i = 5 To 8004
        cellValue = .Cells(i, "D").Value
        If Not existingData.Exists(cellValue) Then
            existingData.Add cellValue, True
        End If
    Next i
    
    ' 从后往前遍历新增行，删除重复项
    lastRow = .Range("D5").End(xlDown).Row
    For i = lastRow To First_Row_of_new_data Step -1
        cellValue = .Cells(i, "D").Value
        ' 若值已存在于原有数据，或新增行内已出现过，执行删除
        If existingData.Exists(cellValue) Then
            .Rows(i).EntireRow.Delete
        Else
            ' 将新增的唯一值加入字典，避免新增行内部重复
            existingData.Add cellValue, True
        End If
    Next i
End With
Set existingData = Nothing

这个方案的优势：

• 完全基于值判断，不依赖Excel格式渲染，稳定性更高
• 字典的查找操作是O(1)时间复杂度，处理大量数据时比条件格式+遍历的效率更高

注意：请确保First_Row_of_new_data变量准确指向新增数据的起始行（比如原有数据到第8004行，新增行从8005行开始）。

内容的提问来源于stack exchange，提问作者Antonio