Descobrir maior sequencia

Tenho uma planilha com aproximadamente 1000 linhas com 15 colunas cada.

Preciso saber em qual linha se encontra a maior quantidade de números em sequencia.

Tem alguma fórmula pra isso, que possa ser colocada em toda planilha para obter a resposta que preciso?

 

Informações sobre a pergunta


Última atualização agosto 21, 2018 Exibições 22 Aplicável a:
Resposta
Resposta

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!

Rafael I. F. Kamimura
Conheça o Blog Excelmaníacos
http://excelmaniacos.com/

1 pessoa foi ajudada por esta resposta

·

Isso resolveu o problema?

Isso não ajudou.

Ótimo! Obrigado por marcar essa opção como resposta.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários. Isso nos ajuda a melhorar o site.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários.