VBA遍历工作表检测重复行：多条件匹配出现全匹配异常

问题根源 #

你的代码存在两个核心问题，导致了误判：

1. 未排除自身比较：当内层循环的y和外层循环的x取值相同时，UPC和日期必然匹配，触发重复提示——这就是你看到x和y取值相同的原因。
2. 日期比较的类型隐患：直接读取单元格值做日期比较，可能因单元格格式（比如文本型日期、空值）导致非预期的匹配结果。

修复方案 #

1. 添加自身排除条件：在If判断里加入x <> y，避免和当前行自身比较。
2. 统一日期比较类型：用CDate()强制转换为日期类型，确保比较逻辑准确。
3. 优化循环范围：内层循环从srcLastRow到x+1，避免重复比较（比如x=2时只比y>2的行，x=3时只比y>3的行，减少无效循环次数）。

修正后的代码 #

srcLastRow = srcSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
For x = 2 To srcLastRow
    srcUPC = srcSheet.Range("A" & x).Value
    srcExpDate = CDate(srcSheet.Range("E" & x).Value)
    srcQty = srcSheet.Range("G" & x).Value
    srcLocation = srcSheet.Range("H" & x).Value
    
    ' 内层循环从最后一行到x+1，避免重复比较和自身比较
    For y = srcLastRow To x + 1 Step -1
        chkUPC = srcSheet.Range("A" & y).Value
        chkExpDate = CDate(srcSheet.Range("E" & y).Value)
        chkQty = srcSheet.Range("G" & y).Value
        chkLocation = srcSheet.Range("H" & y).Value
        
        ' 加入x<>y排除自身，同时确保日期类型统一
        If x <> y And chkUPC = srcUPC And chkExpDate = srcExpDate Then
            MsgBox "发现重复产品行" & vbCrLf & "行号：" & x & " | " & y
        End If
    Next y
Next x

额外提示 #

如果表格存在空日期的情况，建议先加空值判断，避免CDate()报错：

' 读取日期前先判断是否为有效日期
If IsDate(srcSheet.Range("E" & x).Value) Then
    srcExpDate = CDate(srcSheet.Range("E" & x).Value)
Else
    srcExpDate = Empty ' 或者赋值一个特殊标记，比如0
End If

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