Excel 宏代码实现按相同值分组设置背景颜色

Alt+F11，打开编辑器，按如下代码编写代码：

Sub SetGroupBg()
    Dim i, j, c
    Colors = Array("#CEFFCE", "#D7FFEE", "#D9FFFF", "#C4E1FF", "#DDDDFF", "#FFDAC8", "#FFE4CA", "#FFF4C1", "#FFFFCE", "#E8FFC4")
    j = UsedRange.Columns.Count
        For i = 2 To UsedRange.Rows.Count
            If Cells(i, 1) <> Cells(i - 1, 1) Then
                c = c Mod UBound(Colors) + 1
                clr = Application.Hex2Dec(Replace(Colors(c), "#", ""))
            End If
            Range(Cells(i, 1), Cells(i, j)).Interior.Color = clr
        Next
End Sub

运行代码即可达到预期效果。

代码说明：

1. 定义需要的颜色值；
2. 逐行扫描内容；
3. 根据每行首个单元格式内容是否相同，循环设置背景颜色。