☰

Contando valores duplicados em uma sequência – para resultados de futebol

tag-icon • tag-icon microsoft-excel
Contando valores duplicados em uma sequência – para resultados de futebol

Atualmente tenho uma coluna de valores como a abaixo, listando os resultados das partidas de futebol.

Lost
Lost
Lost
Won
Drew
Drew
Won
Won

Usando esta fórmula, consegui calcular onde uma sequência é repetida - portanto, para a lista acima, há três 'Perdidos' seguidos.

=IF(A2=A1,B1+1,1)

No entanto, gostaria de calcular onde o valor é 'Drew' ou 'Won' (mostrando assim o número de linhas sem aparecer "perdido". Isso é possível?

Obrigado

Responder1

Aqui está um submódulo que examina a coluna A até encontrar uma célula em branco e imprime a maior faixa não "perdida" na célula B1.

Sub CountNonLoss()

Dim nonloss As Integer
Dim LongestStreak As Integer
Dim Val
Dim streak As New Collection
nonloss = 0
LongestStreak = 0

Range("A1").Select

  Do Until IsEmpty(ActiveCell)
    If ActiveCell.Value <> "Lost" Then
       nonloss = nonloss + 1
    Else
       streak.Add nonloss
       nonloss = 0
    End If
  ActiveCell.Offset(1, 0).Select
  Loop

  For Each Val In streak
    If Val > LongestStreak Then
       LongestStreak = Val
    End If
  Next Val

Range("B1").Value = LongestStreak
End Sub

informação relacionada