在colA上标记重复的Excel VBA (在所有工作表上工作，包括活动表)

Sub MarkDuplicates()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    
    ' 创建一个字典对象用于存储重复的值
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 获取工作表中的数据范围
        Set rng = ws.UsedRange
        
        ' 循环遍历数据范围中的每个单元格
        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
    Next ws
    
    ' 清除字典对象
    Set dict = Nothing
End Sub