excel vba设置相邻两列在相同连续的行里，如果出现5个或5个以上相同的数据就会出现红色？

Question

比如：E2=F2,E3=F3,E4=F4,E5=F5,E6=F6,这时这些表格就出现红色。

Answer 1

不用宏,条件格式就可以
点击"格式-条件格式-公式:=$E2=$F2,格式-颜色-红色"就可以了

Answer 2

alt+F11，调出VB编辑器，执行下面的宏

Sub abc()

Dim i, k

i = 1
k = 0

Do While (Excel.Cells(i, 5) <> "" And Excel.Cells(i, 6) <> "")
If Excel.Cells(i, 5) = Excel.Cells(i, 6) Then
k = k + 1

Else:
k = 0

End If

If k = 5 Then
Range(Cells(i - 4, 5), Cells(i, 6)).Select
Selection.Font.ColorIndex = 3
End If

If k > 5 Then
Range(Cells(i, 5), Cells(i, 6)).Select
Selection.Font.ColorIndex = 3
End If

i = i + 1

Loop

End Sub本回答被提问者采纳

Answer 3

楼上说的没错，可是楼主要VBA，有必要吗？

思路——在工作表的active事件中添加循环检测所要求条件的单元格，满足，改变格式，不满足，下一个循环.....

Answer 4

=AND(F2=G2,F3=G3,F4=G4,F5=G5,F6=G6)

用条件格式,填上面的公式,设格式