相同单元格着色问题

anyunti

"老师你好，
我想给相同的单元格着色，让颜色在四个颜色之间循环，并且相邻的不能颜色一样
我现在的代码会出现相邻的单元格颜色一致。
请老师指教一下。"                                                                               
       

liulang0808

1. Sub 色()
   
2.     Dim rga, rgb As Range
   
3.     Dim i As Integer
   
4.     Dim arr
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For Each rga In Range("a2:a" & Sheet1.[a65536].End(xlUp).Row)
   
7.         If Application.WorksheetFunction.CountIf(Range("a1:a" & Sheet1.[a65536].End(xlUp).Row), rga) > 1 Then
   
8. 
   
9.                 If Not d.exists(rga.Value) Then
   
10.                     d(rga.Value) = d.Count Mod 4 + 3
    
11.                 End If
    
12.                 rga.Resize(1, 2).Interior.ColorIndex = d(rga.Value)
    
13. 
    
14.         End If
    
15.     Next rga
    
16.    
    
17. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

anyunti

liulang0808 发表于 2019-12-9 18:37
附件内容供参考。。。。。。

谢谢您的帮助，您使用了字典，我好好学习一下。解决了，谢谢您