连续出现相同的数值，添加颜色

众望星君

按照从上到下的顺序，连续出现相同的数值，添加颜色

剑指E

1. =OR(COUNTIF(OFFSET(B5,ROW($1:$3)-3,0,3),B5)=3)

复制代码

剑指E

众望星君 发表于 2024-7-16 13:44
老大 如果是 连续出现2个相同数值 标记颜色的话，公式应该如何修改呢？

公式中的四个3对应连续出现数

13570449347

Sub MarkConsecutiveNonEmptyValues()     Dim ws As Worksheet     Set ws = ThisWorkbook.Sheets("Sheet1")     Dim lastRow As Long     lastRow = ws.Cells(ws.Rows.count, "G").End(xlUp).Row     Dim i As Long     For i = 1 To lastRow - 2         If Not IsEmpty(ws.Cells(i, "G").Value) And _            ws.Cells(i, "G").Value = ws.Cells(i + 1, "G").Value And _            ws.Cells(i, "G").Value = ws.Cells(i + 2, "G").Value Then             ws.Cells(i, "G").Interior.Color = RGB(0, 0, 255)             ws.Cells(i + 1, "G").Interior.Color = RGB(0, 0, 255)             ws.Cells(i + 2, "G").Interior.Color = RGB(0, 0, 255)         End If         If Not IsEmpty(ws.Cells(i, "H").Value) And _            ws.Cells(i, "H").Value = ws.Cells(i + 1, "H").Value And _            ws.Cells(i, "H").Value = ws.Cells(i + 2, "H").Value Then             ws.Cells(i, "H").Interior.Color = RGB(0, 0, 255)             ws.Cells(i + 1, "H").Interior.Color = RGB(0, 0, 255)             ws.Cells(i + 2, "H").Interior.Color = RGB(0, 0, 255)         End If         If Not IsEmpty(ws.Cells(i, "I").Value) And _            ws.Cells(i, "I").Value = ws.Cells(i + 1, "I").Value And _            ws.Cells(i, "I").Value = ws.Cells(i + 2, "I").Value Then             ws.Cells(i, "I").Interior.Color = RGB(0, 0, 255)             ws.Cells(i + 1, "I").Interior.Color = RGB(0, 0, 255)             ws.Cells(i + 2, "I").Interior.Color = RGB(0, 0, 255)         End If     Next i End Sub

世界客都

4个相同的是否也标记颜色？5个？6个？7个？

quqiyuan

写了个长长的，供查看。。。
=((B5=B6)*(B6=B7)+(B4=B5)*(B5=B6)+(B4=B5)*(B3=B4))*ISNUMBER(B4)*ISNUMBER(B6)

众望星君

世界客都 发表于 2024-7-16 12:16
4个相同的是否也标记颜色？5个？6个？7个？

连续出现三个以上的都标记颜色就可以了

众望星君

13570449347 发表于 2024-7-16 12:12
Sub MarkConsecutiveNonEmptyValues()     Dim ws As Worksheet     Set ws = ThisWorkbook.Sheets("Sheet1 ...

大哥，写个条件格式搞定就可以了，用VBA太麻烦了，感谢支持

众望星君

剑指E 发表于 2024-7-16 13:00

老大 如果是 连续出现2个相同数值 标记颜色的话，公式应该如何修改呢？