当同一个数据出现超过5次后，标红，如何实现？求助

lcxq120713

K列：当同一个数据出现超过5次后，自动标红，如何实现？求助

Yalishanda30

条件格式就行了

lcxq120713

Yalishanda30 发表于 2024-9-19 14:05
条件格式就行了

可能没说明白，超过五次的标红，不是全部。比如说 输入了6次相同的，那只把第6次标红

limonet

条件格式，何必VBA

ykcbf1100

标色，VBA

limonet

=COUNTIF(L$1:L1,L1)=5

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.19
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("Sheet1")
   
4.         r = .Cells(Rows.Count, "k").End(3).Row
   
5.         .Cells.Font.ColorIndex = 0
   
6.         For i = 1 To r
   
7.             Set Rng = .Cells(i, 11)
   
8.             s = Rng.Value
   
9.             d(s) = d(s) + 1
   
10.             If d(s) > 5 Then Rng.Font.ColorIndex = 3
    
11.         Next
    
12.     End With
    
13. End Sub
    

复制代码

limonet

=COUNTIF(L$1:L1,L1)=COUNTIF(L:L,L1)

usedrange

1. Sub tt()
   
2.     Dim ar, dic, i%, m%
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     m = [k1].End(4).Row
   
5.     ar = Range("k1:k" & m)
   
6.     Sheet1.UsedRange.Font.ColorIndex = none
   
7.     For i = 1 To m
   
8.         dic(ar(i, 1)) = dic(ar(i, 1)) + 1
   
9.         If dic(ar(i, 1)) = 5 Then
   
10.             Cells(i, "k").Font.ColorIndex = 3
    
11.         End If
    
12.     Next i
    
13.     Set dic = Nothing
    
14. End Sub
    

复制代码

usedrange

看看这个是不是你想要的