contar signos iguales seguidos

Usando una función personalizada:

Function ContarSeguidos(rngR As Range, vValor As Variant) As Variant
If rngR.Columns.Count <> 1 Then
ContarSeguidos = "Error: el rango debe ser de una sola columna"
Exit Function
End If

Dim rngC As Range
Dim acum As Long
For Each rngC In rngR.Cells
If rngC = vValor Then
acum = acum + 1
If acum > ContarSeguidos Then ContarSeguidos = acum
Else
acum = 0
End If
Next rngC

Set rngC = Nothing
End Function


La sintaxis es:

=ContarSeguidos(A1:A12;1)

donde A1:A12 es el rango a evaluar, y 1 el valor.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Luis" escribió en el mensaje news:2b1f601c46729$480ce060$
Hola a todos.

Existe alguna formula que haga lo siguiente:

Dadas una serie de datos, ejemplo:

101011110001110001000 colocados en filas o en columnas (es
igual), obtener el número de "UNOS" consecutivos, es
decir, en este caso el resultado debería ser 4 porque el
número máximo de unos consecutivos es cuatro.

Gracias anticipadas.