统计最高次数难题求助，非常感谢！

acct711

求助：如图，有间隔的三行数字（红色带标注的数字是统计对象，其横向和纵向都有干扰数字），第一行从左往右至最后一个数，然后接着第二行从左往右，同样顺序到第三行最后一个数，求统计如此顺序中，红色带标注的数字，负数连续出现的最高次数的函数公式，非常感谢！

jivy1212

函数不认颜色的，这规则不是奇数列的都是。。故函数应该办不到。

micch

你这叫什么规则？为什么4行，7行后面有几个数不参与统计？

mmlzh

jivy1212 发表于 2019-2-16 09:24
函数不认颜色的，这规则不是奇数列的都是。。故函数应该办不到。

这是重复贴，昨天都有人回复过了，简单加个判断改一下就可以了

acct711

micch 发表于 2019-2-16 10:04
你这叫什么规则？为什么4行，7行后面有几个数不参与统计？

你好，就只统计7行内的红色标注数字，请指点，谢谢！

acct711

mmlzh 发表于 2019-2-16 10:05
这是重复贴，昨天都有人回复过了，简单加个判断改一下就可以了

你好，我纯属菜鸟，恳请指点一下如何改判断，可以给一个改后的完整公式吗，非常感谢！

micch

acct711 发表于 2019-2-16 11:17
你好，就只统计7行内的红色标注数字，请指点，谢谢！

去VBA吧，你统计数字的规律如果是需要颜色来判断位置。

第一行从6列开始，第二行从2列开始，看不出规律，第一行到最后，第二行后面还有数字，看不出规律

mmlzh

问题要说清楚，别浪费大家时间
红色的数据是如何确定的？是固定的？还是随意标的？还是有规律？
与实际需求是否一致，别公式出来了又不会套，折腾

Datous

代码=========


Sub SearchMaxCon()
For Each objD In Range("A1:O7")
    If objD.Interior.ColorIndex <> xlColorIndexNone Then
        If objD.Value < 0 Then
            lngCount = lngCount + 1
        Else
            If lngCount > lngMaxCon Then
                lngMaxCon = lngCount
            End If
            lngCount = 0
        End If
    End If
Next
Range("A12").Value = lngMaxCon
End Sub

acct711

mmlzh 发表于 2019-2-16 12:14
问题要说清楚，别浪费大家时间
红色的数据是如何确定的？是固定的？还是随意标的？还是有规律？
与实际需 ...

你好，红色数据是固定的，为了突出显示，标了红色，但是看起来没有规律，如果不用vba只用函数公式能统计吗，谢谢！