Excel VBA：如何检查复合重复项避免向主表重复录入数据

方案1：辅助列+COUNTIFS公式验证 #

适合手动操作的场景，步骤简单直接：

1. 假设主表日期在A列、唯一标识符在B列；新数据集日期在D列、唯一标识符在E列。
2. 在新数据集的空白列（比如F列）输入公式：

   =COUNTIFS(主表!$A:$A, D2, 主表!$B:$B, E2)
   

3. 下拉填充公式后，结果大于0的行就是重复项，筛选这些行删除，再把剩余行复制到主表即可。
   • 原理：COUNTIFS支持多条件计数，同时匹配日期和唯一标识符，只要主表存在对应组合，就会返回≥1的数值。

方案2：条件格式高亮重复项 #

想直观看到重复项的话，用条件格式快速标记：

1. 选中新数据集的日期+唯一标识符列（比如D:E列）。
2. 点击「开始」→「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」。
3. 输入公式：

   =COUNTIFS(主表!$A:$A, $D2, 主表!$B:$B, $E2)>0
   

4. 设置高亮格式（比如红色填充），被高亮的行就是重复项，删除后再合并到主表。

方案3：Power Query自动合并去重 #

适合每月重复操作的场景，一次设置后可复用：

1. 把主表和新数据集都导入Power Query（数据→自表格/区域）。
2. 保留两个表的日期、唯一标识符、其他数据列，选择「合并查询」→「合并为新查询」。
3. 合并条件选主表和新数据集的「日期」+「唯一标识符」列，合并类型选「左反」（只保留新数据集中主表没有的行）。
4. 加载合并结果到新工作表，确认无误后复制到主表即可。
   • 优势：后续新增数据时，刷新Power Query就能自动筛选非重复行，不用重复写公式。

方案4：VBA批量处理（进阶用户） #

要完全自动化的话，写一段简单宏：

Sub 筛选非重复数据()
    Dim mainWS As Worksheet, newWS As Worksheet
    Dim mainLastRow As Long, newLastRow As Long
    Dim i As Long, j As Long
    Dim isDuplicate As Boolean
    
    Set mainWS = ThisWorkbook.Worksheets("主表") '替换成你的主表名称
    Set newWS = ThisWorkbook.Worksheets("新数据") '替换成你的新数据表名称
    
    mainLastRow = mainWS.Cells(mainWS.Rows.Count, "A").End(xlUp).Row
    newLastRow = newWS.Cells(newWS.Rows.Count, "A").End(xlUp).Row
    
    '从下往上遍历，避免删除行导致索引混乱
    For i = newLastRow To 2 Step -1
        isDuplicate = False
        For j = 2 To mainLastRow
            If mainWS.Cells(j, "A").Value = newWS.Cells(i, "A").Value And _
               mainWS.Cells(j, "B").Value = newWS.Cells(i, "B").Value Then
                isDuplicate = True
                Exit For
            End If
        Next j
        If isDuplicate Then
            newWS.Rows(i).Delete
        End If
    Next i
    
    '把剩余非重复行复制到主表
    newWS.Rows("2:" & newLastRow).Copy mainWS.Cells(mainLastRow + 1, "A")
End Sub

使用说明：替换主表和新数据表的实际名称，运行宏后会自动删除重复项，并把剩余内容追加到主表。

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