Alt+F11，打開(kāi)編輯器，按如下代碼編寫代碼：

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

運(yùn)行代碼即可達(dá)到預(yù)期效果。

代碼說(shuō)明：

定義需要的顏色值；

逐行掃描內(nèi)容；

根據(jù)每行首個(gè)單元格式內(nèi)容是否相同，循環(huán)設(shè)置背景顏色。

總結(jié)

以上是生活随笔為你收集整理的Excel 宏代码实现按相同值分组设置背景颜色的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。