連続した重複行

Question

連続するセル内の重複を見つけるための単一セル式またはVBAについて誰か助けてくれませんか？

1. 同じ値を持つ2つの連続するセル = 1、
2. 同じ値を持つ連続する3つのセル = 2
3. ... すぐ ....

31 日間のデータ (成功または失敗) を含む約 500 行のデータ セットがあります。1 日失敗して翌日成功しても問題ないため、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)

例えば：