Excel VBA使用条件标识重复项

Sub IdentifyDuplicates()
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    
    ' 创建一个字典对象，用于存储已经出现的数据项
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 设置要进行重复项标识的数据范围
    Set rng = Range("A1:A10")
    
    ' 遍历数据范围中的每个单元格
    For Each cell In rng
        ' 检查当前单元格的值是否已经存在于字典中
        If dict.exists(cell.Value) Then
            ' 如果存在，则将当前单元格标记为重复项
            cell.Interior.Color = RGB(255, 0, 0) ' 将背景颜色设置为红色
        Else
            ' 如果不存在，则将当前单元格的值添加到字典中
            dict.Add cell.Value, 1
        End If
    Next cell
    
    ' 释放字典对象的内存
    Set dict = Nothing
End Sub