excel表格式如下，已经按名字排序了，希望实现以下功能，姓名相同的一个颜色，比如张三的行红色，然后李四正常颜色，然后王五又是红色，然后下一个人正常. 姓名 单据号 内容 [color=]张三 111 XXX [color=]张三 222 XXX 李四 33 XXXX [color=]王五 44 XXX [color=]王五 55 XXXX 老六 66 XXXX 老六 88 XXX 老六 77 XXX 的人, 颜色
[Visual Basic] 纯文本查看 复制代码Sub SetCellColor() Rows(1).Font.colorIndex = 3 For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, "A").Value = Cells(i - 1, "A").Value Then Rows(i).Font.colorIndex = Rows(i - 1).Font.colorIndex Else Rows(i).Font.colorIndex = IIf(Rows(i - 1).Font.colorIndex = 3, xlAutomatic, 3) End If Next End Sub
