如何在VBA的If语句中排除A列重复项并高亮非重复行

以下是针对需求修改后的代码，实现识别A列非重复项并高亮对应行，同时可选删除重复项：

Sub HighlightUniqueRowsInColumnA()
    Dim lastRow As Long
    Dim i As Long
    Dim cellValue As Variant
    Dim countOccurrences As Long
    
    ' 获取A列最后一行的行号（假设表头在第1行）
    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 清除目标区域（第2行到最后一行的1-5列）原有填充色，避免旧格式干扰
    Range(Cells(2, 1), Cells(lastRow, 5)).Interior.ColorIndex = xlColorIndexNone
    
    ' 遍历每行，检查A列值的重复状态
    For i = 2 To lastRow
        cellValue = Cells(i, "A").Value
        ' 统计当前值在A列的总出现次数
        countOccurrences = WorksheetFunction.CountIf(Range("A:A"), cellValue)
        
        ' 仅高亮出现次数为1的非重复行（1-5列）
        If countOccurrences = 1 Then
            Range(Cells(i, 1), Cells(i, 5)).Interior.Color = RGB(118, 234, 62)
        End If
    Next i
    
    ' --------------------------
    ' 可选：如果需要删除A列的重复项（保留首次出现的条目），取消下面一行的注释
    ' ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

关键改动说明 #

• 变量优化：将原代码模糊的count变量改为lastRow，更直观表示最后一行行号
• 清除旧格式：添加清除原有填充色的步骤，避免之前的着色结果干扰新判断
• 核心逻辑替换：从原代码检查C列文本，改为用CountIf函数统计A列值的出现次数，判断是否为非重复项
• 遍历方式调整：将Do While循环改为For循环，更适配固定范围的行遍历场景
• 可选功能：添加了删除重复项的代码，按需启用即可

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