求计算连续大于零的数值的最大和

Edison918

求计算连续大于零的数值的最大和，不是计算大于零的数值的个数，而是计算数据之和

感谢感谢

新建 Microsoft Excel 工作表 (2).zip (7.02 KB, 下载次数: 37)

2020-1-18 13:36 上传

点击文件名下载附件

solextrade

数组公式
=MAX(MMULT(N(COUNTIF(OFFSET(B2,,,TRANSPOSE(ROW(1:13))),"<0")=(ROW(1:14)-1)),--TEXT(B2:B14,"0;!0")))

u40000u

solextrade 发表于 2020-1-18 16:16
数组公式
=MAX(MMULT(N(COUNTIF(OFFSET(B2,,,TRANSPOSE(ROW(1:13))),"

小罗老师太牛了，能不能讲解下，看的有点晕

江苏永能朱兴华

跟海版、丢丢学习下：
=MAX(MMULT(N(ROW(2:14)>COLUMN(A:M)),TEXT(B2:B14,"0;-999")*(ROW(2:14)>COLUMN(A:M))))

liu2336904

两位老师写的看不懂

先标记下有时间研究

藍色DE流光

跟个，数组
=MAX(MMULT(N(COUNTIF(OFFSET(B2,,,COLUMN(A:M)),"<0")=ROW(1:13)-1),--TEXT(B2:B14,"0;!0")))

hcm19522

非连续大于零的数值 算 ? 如 9

藍色DE流光

solextrade 发表于 2020-1-18 16:16
数组公式
=MAX(MMULT(N(COUNTIF(OFFSET(B2,,,TRANSPOSE(ROW(1:13))),"

追尾。。。只好再想个别的了
=MAX(SUMIF(OFFSET(B1,ROW(1:14),,-FREQUENCY(IF(B2:B14>0,ROW(2:14)),(B2:B14<0)*ROW(2:14))-1),">0"))

Datous

做了两个，都比较长

=MAX(IFERROR(SUMIF(OFFSET(B1,ROW(1:13),,FREQUENCY(-ROW(2:14),-(B2:B14<0)*ROW(2:14))),">0"),))

=MAX(MMULT((MOD(ROW(1:169)-1,13)+2>COLUMN(A:M))*(ROW(13:181)/13<COLUMN(B:N)),B2:B14-99*(B2:B14<0)))

喻沐苏

Sub getMax()
Dim intCount%
Dim rng As Range
Dim arr() As Long
ReDim arr(Selection.Count)
For Each rng In Selection
    If rng.Value > 0 Then
        arr(intCount) = arr(intCount) + rng.Value
    Else
        intCount = intCount + 1
    End If
Next

With Selection.End(xlDown).Offset(1)
    .Value = WorksheetFunction.Max(arr)
    .Interior.ColorIndex = 8
End With

End Sub