小白求助，好人交好运哟～

函数我不知道怎么写，如果使用条件规则又不会按行分别判断。
所以用VBA录制宏之后加 FOR循环语句 逐行执行。

增加了一个x变量来进行判断，如果有整行都是0的数据，就跳向下一行进行比对。
附上代码：
Sub 判断并改色()
Dim i As Long
'清除单元格格式
Cells.ClearFormats
'使用for循环,行数 从第2行 一直循环到B列当前最后一个非空单元格的行数
For i = 2 To Range("b" & Rows.Count).End(xlUp).Row
'利用x变量,来判断有没有整行都是0,如果有,就不对那一行做判断
x = 2
If Cells(i, x) = "0" And Cells(i, x + 1) = "0" And Cells(i, x + 2) = "0" _
And Cells(i, x + 4) = "0" And Cells(i, x + 5) = "0" _
And Cells(i, x + 6) = "0" Then GoTo 100:
'这里使用的是录制宏,高亮显示重复值的代码
Range("b" & i, "h" & i).FormatConditions.AddUniqueValues
Range("b" & i, "h" & i).FormatConditions(Range("b" & i, "h" & i) _
.FormatConditions.Count).SetFirstPriority
Range("b" & i, "h" & i).FormatConditions(1).DupeUnique = xlDuplicate
With Range("b" & i, "h" & i).FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ColorIndex = 6
.TintAndShade = 0
End With
Range("b" & i, "h" & i).FormatConditions(1).StopIfTrue = False
100:
Next i
End Sub

条件格式
=countif($f1:$h1,b1)
=countif($b1:$d1,f1)