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

lcxq120713

ykcbf1100 发表于 2024-9-19 14:09
标色，VBA

感谢支持！！

Yalishanda30

lcxq120713 发表于 2024-9-19 14:07
可能没说明白，超过五次的标红，不是全部。比如说 输入了6次相同的，那只把第6次标红

......

lcxq120713

limonet 发表于 2024-9-19 14:09
=COUNTIF(L$1:L1,L1)=5

感谢支持！！

山海风云轩

ykcbf1100 发表于 2024-9-19 14:09
参与一下。。。

666         

zhangcheng6688

学习一下字典
Sub test()
arr = [k1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
   d(arr(i, 1)) = d(arr(i, 1)) + 1
   If d(arr(i, 1)) > 5 Then
      Cells(i, "k").Font.Color = vbRed
   End If
Next
Set d = Nothing
End Sub