仅当总和是另一列的最大和时，才返回总和值

如何解决仅当总和是另一列的最大和时，才返回总和值

我正在寻找公式解决方案或vba代码以计算单元格L2和M2上的数据。

说明

我有一个列范围G：I中的表，该表记录的日期是1到1000天，该值是已售出的金额（可以是贷方或借方），当是贷方时，“ I”列”将显示“ Good Day”，否则显示“ Bad day”。所有这些计算都得到正确处理，当我想获取连续的“好日子”或“坏日子”的最大总和值时，问题就出现了。

第1天和第2天是连续的“不良天”，两个值的总和为200（到目前为止，这是最大总和），当我再次获得连续的“不良天”及其总和时，就会出现问题值大于我的初始连续最大和值。第500天和第501天是连续的“糟糕的日子”，两者的总和为600（这是我在单元格L2中想要的）。 “ Good Day”的流程相同

连续日期是指超过1天，例如“不良日”或“好日子”，例如2天，4天，100天等。假设我有100个连续的“不良日”，总和为1000，然后有1个“上帝的日子”，然后又有2个连续的“不良日”，总和为5000，这比我拥有的大在之前连续100天的“不良日子”中获取（我需要在L2单元格上输入5000的值）

在下面的图片中，前2天是连续的“不良天”，总和为200（到目前为止，这是最大值）。从第4天到第10天，有7个连续的“不良日期”，总和为35（小于先前连续值的总和200）。现在，第500天和501天是连续2天的“不良天数”，总和是600，这比第1天和第2天的前连续2天要大。600现在是我在单元格L2上需要的最大值（如果有人更改结果或值，L2也必须更新

解决方法

在K3单元格中使用

=MAX(IF($I$2:$I$14=K2,$H2:$H14,0)+IF($I$3:$I$15=K2,$H3:$H15,0))

如果没有Office 365，则需要使用Ctrl + Shift + Enter确认公式。

复制到单元格L3。

,

我已经找到了解决方法，方法是构建一个vba代码以在每个单元格上的连续数据等于或大于2时，并且如果该单元格左侧的列具有“正数”，则仅对连续数据组求和或“负”值（如果不满足条件，则将单元格留空并转到下一个单元格道）

'Calcular Suma de Stops Seguidos
    Dim IteracionesFinales As String
    IteracionesFinales = (Fil_F - Fil_I)
    
    'Rango descendente
    Dim r As String
    r = 9
    'Restar Filas
    Dim rf As Integer
    'Maximo de itraciones
    
    For i = 1 To IteracionesFinales
    
    If Range("AA" & r).Value = "" Then
    r = r + 1
    
    Else:
    
    rf = (Range("AA" & r).Value - 1) * -1
    
    Range("AB" & r).Select
    ActiveCell.FormulaR1C1 = _
    "=IF(AND(RC[-1]>=2,RC[-2]=""NEGATIVA""),SUM(R[" & rf & "]C[-4]:OFFSET(RC[-4],0)),"""")"
    
    r = r + 1
    rf = 0
    
    End If
    
    
    Next i
        
    
     'Calcular Suma de Takes Seguidos
 
    'Rango descendente
    Dim r2 As String
    r2 = 9
    'Restar Filas
    Dim rf2 As Integer
    'Maximo de itraciones
    
    For i = 1 To IteracionesFinales
    
    If Range("AA" & r2).Value = "" Then
    r2 = r2 + 1
    
    Else:
    
    rf2 = (Range("AA" & r2).Value - 1) * -1
    
    Range("AC" & r2).Select
    ActiveCell.FormulaR1C1 = _
    "=IF(AND(RC[-2]>=2,RC[-3]=""POSITIVA""),SUM(R[" & rf2 & "]C[-4]:OFFSET(RC[-4],"""")"
    
    r2 = r2 + 1
    rf2 = 0
    
    End If
    
    
    Next i
    
    Range("Q19").Select
    ActiveCell.FormulaR1C1 = _
        "=MAXIFS(R[-11]C[11]:R[370]C[11],R[-11]C[9]:R[370]C[9],""NEGATIVA"")"
    Range("R19").Select
    ActiveCell.FormulaR1C1 = _
        "=MAXIFS(R[-11]C[11]:R[370]C[11],R[-11]C[8]:R[370]C[8],""POSITIVA"")"

上面的代码将每个组的和数据放入最后两列AB，AC中。然后我只需要一个MAXIFS函数来获取最大金额