同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Function sumcolor(rng1 As Range, rng2 As Range) As Single
Dim cell As Range
sumcolor = 0
For Each cell In rng1
If cell.font.Color = rng2.font.Color Then sumcolor = sumcolor + 1
Next cell
End Function
点一个放结果的单元格=sumcolor(B2:K24,B7),b7是样本,你找个红色的就行
温馨提示:答案为网友推荐,仅供参考