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?

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.

 
 

Informações sobre a pergunta


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