相同身份证号码背景颜色设为同色

hhxq001

如何判断实现相同身份证号码所在的单元格背景颜色设置为同色，比如4号相同的设为红色，7号相同的设为蓝色，不同的相同号码颜色要有区别，方便找到


相同身份证标注相同颜色.zip (15.99 KB, 下载次数: 14)

2025-3-12 10:29 上传

点击文件名下载附件

liulang0808

供参考

清风竹-

设置为同色.

zpy2

cli_mark_duplicate_rows~Sheet1~身份证号码
;

hhxq001

清风竹- 发表于 2025-3-12 12:03
设置为同色.

没变化呀，朋友

hhxq001

清风竹- 发表于 2025-3-12 12:03
设置为同色.

是希望背景色相同呢

ykcbf1100

楼主真会玩啊，昨天是字体标色，今天来个单元格标色。

ykcbf1100

1. Sub ykcbf()   '//2025.3.12
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     r = Cells(Rows.Count, 2).End(3).Row
   
5.     Set Rng = Range("b4:b" & r)
   
6.     For Each rn In Rng
   
7.         s = rn.Font.ColorIndex
   
8.         d(s) = d(s) + 1
   
9.     Next
   
10.     For Each k In d.keys
    
11.         If d(k) > 1 Then
    
12.             m = m + 1
    
13.             For Each rn In Rng
    
14.                 If rn.Font.ColorIndex <> 1 Then
    
15.                     If k = rn.Font.ColorIndex Then
    
16.                         rn.Interior.ColorIndex = 2 + m
    
17.                     End If
    
18.                 End If
    
19.             Next
    
20.         End If
    
21.     Next
    
22.     Set d = Nothing
    
23.     Application.ScreenUpdating = True
    
24.     MsgBox "OK！"
    
25. End Sub
    
26. 
    

复制代码

demonimissyou

参与一下……………………

hhxq001

ykcbf1100 发表于 2025-3-12 15:29
楼主真会玩啊，昨天是字体标色，今天来个单元格标色。

越是菜鸟，越是想法多