猫神现身
百度--您的访问出错了
内容来自：百度

浅蓝色代表这个人上的是夜班，夜班天数那里填一个什么公式能自动算出来夜班的天数，人数比较多，也比较乱，手动比较浪费时间

你用颜色来区分的话函数很麻烦，而且不能自动重算

Function colorcount(rg As Range, rg1 As Range) As Integer
Dim x, reg As Range
x = rg1.Interior.Color
For Each reg In rg
If reg.Interior.Color = x Then
colorcount = colorcount + 1
End If
Next
End Function
自定义函数,=colorcount(要统计某个颜色的单元格区域,具有某个颜色的单元格）
第2个区域选择单个具有颜色的单个单元格
比如：=colorcount(a16:bg16,bl11),统计A16:BG16中具有BL11单元格颜色的数量