连续重复

Question

有谁能帮助我使用单个单元格公式或 VBA 来查找连续单元格中的重复项

1. 两个连续单元格具有相同的值 = 1，
2. 三个连续单元格具有相同的值 = 2
3. ... 很快 ....

我有一组大约 500 行的数据，包含 31 天的数据（成功或失败），我需要找出连续两天失败的次数，并且进一步说，一天失败，第二天成功是可以接受的。

希望我足够清楚...请记住我不能在行之间插入行来使用countif（不能触及数据）所以我需要在第 32 列输出。

这对我来说也很紧急

Answer 1

首先在标准模块中输入以下UDF：

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

然后使用来自A1通过AE1， 在AF1进入：

=consecu(A1:AE1)

例如：