如何通过VBA循环检测Excel单行内重复数据并批量应用

需求说明 #

需要实现VBA宏，仅识别同一行内的重复数据（如示例中第4行A列与C列的apple），不进行跨行检测，并将该检测逻辑循环应用到第2至7252行。

完整实现代码 #

Sub HighlightRowDuplicates()
    Dim x As Integer
    Dim targetRow As Range
    
    ' 循环处理第2到7252行
    For x = 2 To 7252
        Set targetRow = Rows(x)
        
        ' 清除该行已有的条件格式（可选，避免重复添加）
        targetRow.FormatConditions.Delete
        
        ' 添加重复值条件格式
        targetRow.FormatConditions.AddUniqueValues
        With targetRow.FormatConditions(targetRow.FormatConditions.Count)
            .SetFirstPriority
            .DupeUnique = xlDuplicate
            
            ' 设置重复值的字体格式
            With .Font
                .Color = -16383844
                .TintAndShade = 0
            End With
            
            ' 设置重复值的单元格填充格式
            With .Interior
                .PatternColorIndex = xlAutomatic
                .Color = 13551615
                .TintAndShade = 0
            End With
            
            .StopIfTrue = False
        End With
    Next x
End Sub

代码说明 #

• 循环范围：通过For x = 2 To 7252遍历目标行区间
• 优化操作逻辑：直接用targetRow对象操作，替代录制宏里的Select操作，提升运行效率且降低出错概率
• 清除旧格式：可选步骤，防止多次运行宏后同一行叠加多个条件格式
• 重复值检测：通过AddUniqueValues添加条件格式，指定xlDuplicate标记当前行内的重复值
• 格式定义：设置重复值的字体颜色与单元格填充色，StopIfTrue = False确保该行所有重复值都会被标记

数据示例 #

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