Duplicados secuenciales seguidos

Question

¿Alguien puede ayudarme con una fórmula de celda única o VBA para encontrar los duplicados en celdas consecutivas seguidas con

1. Dos celdas consecutivas que tienen el mismo valor = 1,
2. Tres celdas consecutivas que tienen el mismo valor = 2
3. ... pronto ....

Tengo un conjunto de datos con alrededor de 500 filas con datos de 31 días (éxito o fracaso), necesito encontrar cuántas veces hay un error consecutivamente durante 2 días y más, ya que el error de un día y el éxito al día siguiente son aceptables.

Espero haber sido lo suficientemente claro... Recuerde que no puedo insertar filas entre líneas para usar countif(los datos no se pueden tocar), por lo que necesito generar en la columna 32.

Esto también es urgente para mí.

Answer 1

Primero ingrese la siguiente UDF en un módulo estándar:

Option Explicit

Public Function consecu(rng As Range) As Long
    Dim arr(1 To 31) As Long, i As Long
    Dim r As Range
    arr(1) = 0
    i = 1

    For Each r In rng
        If i = 1 Then
            i = i + 1
        Else
            If r.Value = r.Offset(0, -1).Value Then
                arr(i) = arr(i - 1) + 1
            Else
                arr(i) = 0
            End If
            i = i + 1
        End If
    Next r

    consecu = Application.WorksheetFunction.Max(arr)
End Function

Luego con datos deA1a través deAE1, enAF1ingresar:

=consecu(A1:AE1)

Por ejemplo: