函数VBA-颜色汇总计数