Alt+F11，打開編輯器，按如下代碼編寫代碼：

Sub SetGroupBg()Dim i, j, cColors = Array("#CEFFCE", "#D7FFEE", "#D9FFFF", "#C4E1FF", "#DDDDFF", "#FFDAC8", "#FFE4CA", "#FFF4C1", "#FFFFCE", "#E8FFC4")j = UsedRange.Columns.CountFor i = 2 To UsedRange.Rows.CountIf Cells(i, 1) <> Cells(i - 1, 1) Thenc = c Mod UBound(Colors) + 1clr = Application.Hex2Dec(Replace(Colors(c), "#", ""))End IfRange(Cells(i, 1), Cells(i, j)).Interior.Color = clrNext
End Sub

運行代碼即可達到預期效果。

代碼說明：

1. 定義需要的顏色值；
2. 逐行掃描內容；
3. 根據每行首個單元格式內容是否相同，循環設置背景顏色。