如何统计Excel每列中连续高亮的绿色单元格数量

首先明确：你设置的绿色单元格对应规则是数值>0，所以直接基于数值判断即可，无需读取单元格格式，实现起来更简单。

通用公式方案（兼容所有Excel版本） #

假设你需要统计的列数据范围为A2:A10（Mon列数据区域），在要输出结果的单元格输入以下公式：

=MAX(FREQUENCY(IF(A2:A10>0,ROW(A2:A10)),IF(A2:A10<=0,ROW(A2:A10))))

• 如果你使用的是Excel 2019及更早版本，输入完成后需要按Ctrl+Shift+Enter触发数组运算才能得到正确结果
• 如果你使用的是Microsoft 365/2021及以上版本，直接回车即可
• 需要统计其他列时，直接把公式横向拖拽，会自动适配对应列的数据范围

公式逻辑说明 #

• 第一个IF筛选出所有值大于0的单元格行号
• 第二个IF筛选出值小于等于0的单元格行号作为连续区间的分隔点
• FREQUENCY函数计算每个分隔区间内的连续单元格数量，最后用MAX取最大值，就是该列最长连续绿色单元格的数量

Microsoft 365专属简化公式 #

=MAX(LEN(TEXTSPLIT(CONCAT(IF(A2:A10>0,"1","0")),"0")))

逻辑更直观：将大于0的单元格转为字符1，其余转为字符0，拼接成完整字符串后按0拆分，得到的所有连续1的字符串中，最长的长度就是统计结果。

自定义函数方案（适合高频使用场景） #

如果需要经常做这类统计，可以用VBA自定义函数，使用更便捷：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Function MaxContinuousGreen(rng As Range) As Long
    Dim currentCnt As Long, maxCnt As Long, cell As Range
    currentCnt = 0
    maxCnt = 0
    For Each cell In rng
        If IsNumeric(cell.Value) And cell.Value > 0 Then
            currentCnt = currentCnt + 1
            If currentCnt > maxCnt Then maxCnt = currentCnt
        Else
            currentCnt = 0
        End If
    Next cell
    MaxContinuousGreen = maxCnt
End Function

2. 保存文件为xlsm格式后，直接在单元格输入=MaxContinuousGreen(A2:A10)即可得到统计结果

内容的提问来源于stack exchange，提问作者SssssssAaaaaaa