Descobrir maior sequencia

Bom dia Mauricio,

Não consegui pensar numa solução simples deste problema por via de funções nativas. Creio que com uso de várias colunas auxiliares para ir testando valor a valor com vários SE's resolveria, porém seria bastante trabalhoso.

Como alternativa, desenvolvi uma função personalizada (UDF) para dizer qual a maior sequencia de um intervalo em linha.

Pressione ALT+F11 para abrir o editor do Visual Basic, insira um novo módulo na sua pasta de trabalho e cole o código abaixo que fiz correndo e sei que ainda pode ser melhorado e simplificado, mas no momento irá atender a sua necessidade.

Public Function MAIOR_SEQ(vArray As Range) As Integer
    
    Dim v As Range
    Dim lCount As Long, n As Long, lSum As Long, i As Long
    Dim asOut() As Integer
    
    lCount = vArray.Columns.Count
    ReDim Preserve asOut(1 To lCount)
    
    If vArray.Rows.Count > 1 Then
        MAIOR_SEQ = CVErr(xlErrNum)
        Exit Function
    End If
    
    lSum = 1
    i = 1
    
    For Each v In vArray
        n = 1
        For n = 1 To lCount - 1
            If v + n = v.Offset(0, n).Value Then
                lSum = lSum + 1
            Else
                Exit For
            End If
        Next n
        asOut(i) = lSum
        lSum = 1
        i = i + 1
        lCount = lCount - 1
    Next v
    
    MAIOR_SEQ = WorksheetFunction.Max(asOut)
    
End Function

Feche o editor e em alguma coluna à direita dos seus dados insira a fórmula usando esta função, que só tem um argumento que é o intervalo que deseja ver a maior sequencia. Por exemplo:

=MAIOR_SEQ(A2:O2)

Assim fica fácil você identificar a maior sequência, basta usar a função MÁXIMO na coluna com a fórmula (Coluna X no exemplo acima).

Como foi criada uma UDF o arquivo precisará ser salvo como .xlsm.

Abraços!