excel中如何实现按名字不同自动填充颜色,具体描述如下:

2025-01-24 09:50:00
推荐回答(3个)
回答1:

用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

回答2:

没读明白你的问题
你给的图片也没有是说指示清楚
你的意思是一个名字有很多次,第一次出现无所谓,后面的就要变红?

回答3:

有点复杂~