指定区域查找相同的单元格并填充颜色

O枫O

查找相同的单元格并填充颜色，谢谢

ykcbf1100

附件传的是图片？为啥不上传工作簿？
你这是解决问题的态度吗？

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim ar, j&, n&, dic As Object
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    n = 2
    With [B2].CurrentRegion
        ar = .Value
        .Interior.Color = xlNone
        For j = 1 To UBound(ar, 2)
            If Not dic.exists(ar(1, j)) Then
                        n = n + 1
                If n > 56 Then n = 3
                dic(ar(1, j)) = n
                .Cells(1, j).Interior.ColorIndex = n
            Else
                .Cells(1, j).Interior.ColorIndex = dic(ar(1, j))
            End If
        Next j
    End With
   
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1683649&mobile&_dsign=f4575def

O枫O

gwjkkkkk 发表于 2024-7-11 21:15
。。。。。。。。。。

谢谢老师，这个方法很好，还请老师指导一下，只需要分别把内容重复的单元格填充颜色，不重复的单元格不用填充颜色。

gwjkkkkk

O枫O 发表于 2024-8-2 12:13
谢谢老师，这个方法很好，还请老师指导一下，只需要分别把内容重复的单元格填充颜色，不重复的单元格不用 ...

。。。。。。。。。。。。