Este fórum está sendo desativado

[wagnerandret]

Olá,
Estou tentando fazer a contagem de grupos de repetições em que o número “1” ocorre. Sendo que a cada vez em que o número “0” aparecer, a contagem pára, retornando no próximo conjunto. Segue o exemplo abaixo:
1
1
1 Resultado=3
0
1
1 Resultado=2
0
0
1 Resultado= 1
0
0
1
1
1
1 Resultado=4

Desde já, peço desculpas se postei no tópico errado. Sou novo no fórum.

[osvaldomp]

Olá, @wagnerandret
#

Desde já, peço desculpas se postei no tópico errado.

#
Você postou no sub tópico Macros e VBA. Então, por favor confirme se você busca uma solução via macro ou via fórmula?

Em qual coluna estão os dados ?

[wagnerandret]

Olá, osvaldomp
Sim, procuro uma solução via macro.
Os dados estão na coluna Z.
Obrigado pela atenção!

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ContaRepetições()
 Dim a As Range, LR As Long
 Application.ScreenUpdating = False
 LR = Cells(Rows.Count, 26).End(3).Row
 Range("Z1:Z" & LR).Replace "1", ""
 For Each a In Range("Z1:Z" & LR).SpecialCells(4).Areas
  a.Cells(a.Rows.Count, 2) = a.Rows.Count 
 Next a
 Range("Z1:Z" & LR).Replace "", 1
End Sub

#

O código irá colocar a contagem somente (valor x), se você quiser que apareça Resultado=x, como está no seu primeiro post, então substitua esta expressão ~~~> a.Rows.Count
por esta ~~~> "Resultado=" & a.Rows.Count

[wagnerandret]

Farei o teste sim e retornarei com o resultado.
Mesmo assim, agradeço muito sua contribuição!

[wagnerandret]

Funcionou perfeitamente.
Muito obrigado, osvaldomp. Salvou meu projeto!