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

0

Atualmente tenho uma coluna de valores como a abaixo, listando os resultados dos jogos de futebol.

Lost
Lost
Lost
Won
Drew
Drew
Won
Won

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

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

No entanto, eu gostaria de calcular onde o valor é 'Drew' ou 'Won' (mostrando assim o número de linhas sem uma aparição "perdida". Isso é possível?

Obrigado

user1901025
fonte
1
Você quer count (como o título da sua pergunta indica) ou encontrar a localização (como você mencionou na pergunta)? Você pode edite sua pergunta para nos mostrar o resultado esperado?
cybernetic.nomad
Se você quer apenas uma contagem total, então algo como =COUNTA(A1:A8)-COUNTIF(A1:A8,"Lost")?
fixer1234

Respostas:

0

Aqui está um sub módulo que olha através da coluna A até encontrar uma célula em branco e imprime o maior não-"Lost" para a 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
Brian
fonte