在excel中突出显示重复列的VBA代码

Sub HighlightDuplicateColumns()
    Dim rng As Range
    Dim col As Range
    Dim dict As Object
    Dim cell As Range
    Dim count As Integer
    
    ' 设置要检查的范围，这里假设数据从第1行开始，第1列到第10列
    Set rng = Range("A1:J" & Cells(Rows.count, 1).End(xlUp).Row)
    
    ' 创建一个字典对象用于存储每一列的值
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 遍历每一列
    For Each col In rng.Columns
        dict.RemoveAll
        count = 0
        
        ' 遍历每个单元格
        For Each cell In col.Cells
            ' 如果单元格的值已经存在于字典中，则说明是重复值
            If dict.exists(cell.Value) Then
                count = count + 1
                ' 在单元格上应用条件格式，突出显示重复列
                cell.Interior.Color = RGB(255, 0, 0)
            Else
                ' 将单元格的值添加到字典中
                dict.Add cell.Value, 1
            End If
        Next cell
        
        ' 输出每一列的重复值数量
        Debug.Print "列 " & col.Address & " 中的重复值数量为: " & count
    Next col
End Sub