연속적인 중복

Question

누구든지 단일 셀 수식이나 VBA로 나를 도와 연속 셀의 중복 항목을 찾을 수 있습니까?

1. 동일한 값을 갖는 두 개의 연속 셀 = 1,
2. 동일한 값을 갖는 세 개의 연속 셀 = 2
3. ... 곧 ....

31일(성공 또는 실패) 동안의 데이터가 포함된 약 500개의 행이 있는 데이터 세트가 있습니다. 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)

예를 들어: