Excel多列重复验证公式失效，求可行解决方案（支持VBA）

一、公式解法（无需VBA，直接可用） #

你之前的公式问题在于AND(D2=D2:D9, E2=E2:E9)无法正确遍历数组判断重复，改用COUNTIFS函数可直接实现多列重复检测，无需复杂数组操作：

在「DUPLICATE VERIFICATION」列的第一个数据行（假设为F2）输入以下公式，下拉填充至所有数据行即可：

=IF(COUNTIFS($D$2:$D$9,D2,$E$2:$E$9,E2)>1,"DUP","OK")

• 逻辑：COUNTIFS($D$2:$D$9,D2,$E$2:$E$9,E2)统计D列等于当前行D值、且E列等于当前行E值的总行数，结果大于1则说明存在重复，返回"DUP"，否则返回"OK"。
• 注意：公式中的$D$2:$D$9和$E$2:$E$9是绝对引用，确保下拉填充时检测范围不会偏移，可根据实际数据范围调整行号。

二、VBA解法（适合批量自动处理） #

如果需要更自动化的操作，可使用以下VBA宏，完全不修改表格结构：

1. 按Alt+F11打开VBA编辑器；
2. 右键点击当前工作簿，选择「插入」→「模块」；
3. 粘贴以下代码：

Sub CheckDuplicates()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim matchCount As Long
    
    ' 指定目标工作表，可替换为实际表名如"ThisWorkbook.Sheets("你的表名")"
    Set ws = ActiveSheet
    ' 动态获取D列最后一行数据（适配固定结构下的行数变化）
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    
    ' 遍历数据行，假设「DUPLICATE VERIFICATION」列为F列，可根据实际修改列标识
    For i = 2 To lastRow
        matchCount = Application.WorksheetFunction.CountIfs( _
            ws.Range("D:D"), ws.Cells(i, "D").Value, _
            ws.Range("E:E"), ws.Cells(i, "E").Value _
        )
        ws.Cells(i, "F").Value = IIf(matchCount > 1, "DUP", "OK")
    Next i
End Sub

4. 按F5运行宏，即可自动填充「DUPLICATE VERIFICATION」列的检测结果。

额外优化（可选） #

如果需要多人快速使用，可在工作表添加操作按钮：

• 开发者选项→「插入」→「按钮（表单控件）」，绘制按钮后关联上述CheckDuplicates宏，点击按钮即可一键完成检测。

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