ALT+F11打开VBE编辑器,新建个模块,粘贴如下自定义函数代码:
Function tjys(rg As Range, z As Integer) 'rg代表单元格区域,z代表颜色的值,比如淡紫色值为39
Dim c As Integer, r As Range
c = 0
For Each r In rg
If r.Interior.ColorIndex = z Then c = c + 1
Next
tjys = c
End Function
比如需要统计A1:B3单元格区域淡紫色背景单元格个数,输入公式:=tjys(A1:B3,39),如图示。