用VBA吧
右击工作表标签→查看代码,把下面的代码贴吧到打开的VBA窗口,按F5就可以了
Sub chiefzjh()
Dim s%, e%, t$, c As Boolean
c = True: s = 2: e = 2: t = [b2]
Do While Cells(s, 2).Value <> ""
If Cells(e, 2).Value <> t Then
If c Then Range("a" & s & ":b" & e - 1).Interior.ColorIndex = 33
t = Cells(e, 2): s = e: e = e + 1: c = Not c
Else
e = e + 1
End If
Loop
End Sub
没读明白你的问题
你给的图片也没有是说指示清楚
你的意思是一个名字有很多次,第一次出现无所谓,后面的就要变红?
有点复杂~