Página 1 de 1
[RESOLVIDO] Contar Conjunto de Repetições
Enviado: 17 Jan 2022 às 11:15
por 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.
Re: Contar Conjunto de Repetições
Enviado: 17 Jan 2022 às 13:40
por osvaldomp
Olá,
@wagnerandret
#
wagnerandret escreveu: ↑17 Jan 2022 às 11:15
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 ?
Re: Contar Conjunto de Repetições
Enviado: 17 Jan 2022 às 15:16
por wagnerandret
Olá, osvaldomp
Sim, procuro uma solução via macro.
Os dados estão na coluna Z.
Obrigado pela atenção!
Re: Contar Conjunto de Repetições
Enviado: 17 Jan 2022 às 16:49
por osvaldomp
Experimente:
Código: Selecionar todosSub 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
Re: Contar Conjunto de Repetições
Enviado: 17 Jan 2022 às 18:52
por wagnerandret
Farei o teste sim e retornarei com o resultado.
Mesmo assim, agradeço muito sua contribuição!
Re: Contar Conjunto de Repetições
Enviado: 18 Jan 2022 às 08:56
por wagnerandret
Funcionou perfeitamente.
Muito obrigado, osvaldomp. Salvou meu projeto!