如何编写Excel宏识别A1B1C1单元格组合的重复数据？

针对你需要将每行A、B、C单元格作为整体比对重复项并弹窗提示的需求，这里提供适配的VBA代码，替代原单列比对的逻辑：

Sub FindDuplicateRowCombos()
    Dim xWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim comboCount As Long
    
    ' 指定目标工作表，可根据实际名称修改
    Set xWs = Worksheets("VBA1")
    ' 自动获取数据区域的最后一行（适配1000条数据的动态范围）
    lastRow = xWs.Cells(xWs.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历所有数据行
    For i = 1 To lastRow
        ' 使用CountIfs多条件计数，判断当前A/B/C组合的出现次数
        comboCount = Application.WorksheetFunction.CountIfs( _
            xWs.Range("A:A"), xWs.Range("A" & i).Value, _
            xWs.Range("B:B"), xWs.Range("B" & i).Value, _
            xWs.Range("C:C"), xWs.Range("C" & i).Value _
        )
        
        ' 若组合出现次数大于1，判定为重复并弹窗提示
        If comboCount > 1 Then
            MsgBox "无效数据：第" & i & "行的A/B/C单元格组合与其他行重复", vbExclamation
        End If
    Next i
End Sub

代码说明 #

1. 多条件比对：用CountIfs替代原代码的CountIf，同时匹配A、B、C三列的内容，实现单元格组合的整体比对
2. 动态行范围：通过lastRow自动获取数据的最后一行，无需手动指定行号，适配1000条数据的场景
3. 精准提示：弹窗会明确标注重复组合所在的行号，方便定位问题数据

优化建议 #

• 若不想逐个弹窗，可先将所有重复行号存入数组，遍历结束后一次性提示所有重复位置
• 处理大量数据时，可在代码开头添加Application.ScreenUpdating = False，结尾添加Application.ScreenUpdating = True，关闭屏幕更新以提升运行速度

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