連續連續重複

Question

任何人都可以幫助我使用單一單元格公式或 VBA 來查找連續單元格中的重複項

1. 兩個連續的單元格具有相同的值 = 1，
2. 三個連續的單元格具有相同的值 = 2
3. .... 很快 ....

我有一組大約500 行的數據，其中包含31 天的數據（成功或失敗），我需要找出連續2 天失敗的次數，甚至更進一步，因為一天的失敗和第二天的成功是可以接受的。

希望足夠清楚......記住我無法在行之間插入行來使用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)

例如：