用PQ太难，手动太慢，这才是最牛x的Excel统计工具！

Function Countc(i As Range, j As Range)'新建一个自定义函数，函数名为 Countc（参数 1 是一个区域 i，参数 2 也是一个区域 j）Dim n As Integer  '定义一个变量 n，变量 n 为数值Dim k As Range    '定义一个变量 k，变量 k 为区域For Each k In i   '遍历区域 i 的所有单元格    If k.Interior.Color = j.Interior.Color Then    '如果区域 i 的第 k 个单元格颜色与区域 j 相同        n = n + 1        '用于计数的 n 加 1    End IfNextCountc = n  '将 n 复制给 Countc，作为这个函数的输出结果End Function