突出显示值连续3次相同的单元格

我试图突出显示H列中的值连续3次相同的单元格，例如

1. 一个
2. 一个
3. ñ
4. P
5. P
6. P
7. ñ
8. 乙
9. 乙

3 P将突出显示红色，但不是2 A或2B。 不pipe这个在VBA中是可行的，还是使用一个我不知道的公式，但是我一直在试图让我的头脑一段时间。 我相信它可能很简单，我只是陷入循环

任何帮助将非常感激

Answer 1

条件格式化有点棘手。 你可以selectH3并尝试这个公式：

 = OR( AND(H3=H1, H3=H2), AND(H3=H2, H3=H4), AND(H3=H4, H3=H5) ) 

然后将“适用于”更改为整个范围。

更新

 = OR( AND(H1="P",H2="P",H3="P"), AND(H2="P",H3="P",H4="P"), AND(H3="P",H4="P",H5="P") ) 

Answer 2

只要你有几行以上的数据开始…

Answer 3

快速代码，我没有太多的testing，但尝试这一点：

  Sub Find_ThreeInARow() Dim column1 As Range Dim x As Range Dim y As Range Dim z As Range Set column1 = Application.InputBox("Select Column to Evaluate", Type:=8) If column1.Columns.Count > 1 Then Do Until column1.Columns.Count = 1 MsgBox "Please select only 1 column." Set column1 = Application.InputBox("Select Column to Evaluate", Type:=8) Loop End If If column1.Rows.Count = 65536 Then Set column1 = Range(column1.Cells(1), column1.Cells(ActiveSheet.UsedRange.Rows.Count)) End If For Each x In column1 'Exit when we reach an empty cell If IsEmpty(x.Value) Then Exit Sub End If Set y = x.Offset(1, 0) Set z = x.Offset(2, 0) 'Compare this cell to the next two in the column If x = y And x = z Then x.Interior.Color = vbYellow y.Interior.Color = vbYellow z.Interior.Color = vbYellow End If Next x End Sub