excel中如何实现按名字不同自动填充颜色,具体描述如下:
我有一个表格,里面有相当多的内容,按人名排列,当出现一个名字与前面的名字不一样时,用红色填充所在的行,当出现与红色填充行不同名字里,就不填充颜色。即出现名字一所在行不填充...
我有一个表格,里面有相当多的内容,按人名排列,当出现一个名字与前面的名字不一样时,用红色填充所在的行,当出现与红色填充行不同名字里,就不填充颜色。即出现名字一所在行不填充颜色,名字二所在的行填充颜色为红色,名字三所在行不填充颜色,名字四所在行填充为红色,如此循环。
注意:每个名字可能有数行,行数无规律性 展开
注意:每个名字可能有数行,行数无规律性 展开
3个回答
展开全部
用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
右击工作表标签→查看代码,把下面的代码贴吧到打开的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
追问
用这个不行呢,有没有其他办法呀
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
没读明白你的问题
你给的图片也没有是说指示清楚
你的意思是一个名字有很多次,第一次出现无所谓,后面的就要变红?
你给的图片也没有是说指示清楚
你的意思是一个名字有很多次,第一次出现无所谓,后面的就要变红?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有点复杂~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询