Как рассчитать общее число последовательных чисел в столбце в Excel?

Question

У меня столбец состоит из 0 и 1. Мне нужно подсчитать общее количество последовательных вхождений 1.

Column
  0
  0
  1
  1
  1
  0
  0
  0
  1
  1
  0
  1
  1
  1

Ответ должен быть: 5 (5 последовательных 1-х)

Answer 1

Нет необходимости в VBA или UDF:

 =COUNTIFS(A1:A13,1,A2:A14,1)

a SUMPRODUCT также работает:

 =SUMPRODUCT(--(A1:A13=A2:A14),--(A2:A14=1))

В обоих случаях не смещение строки в диапазонах

Answer 2

Судя по ответу 5 и комментариям, я предполагаю, что вы хотите получить число 1, следующее за другим 1.

Возможно, для этого есть простая функция, но, поскольку я Я лучше с VBA ... Это проверит первый столбец (A) и все вниз, и вернет сумму 1, который следует за другим 1.

Sub oneFollowingOne()
Dim r As Range, total As Long
total = 0
For Each r In Range("A2", ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp))
    If r.Value = 1 And r.Offset(-1).Value = 1 Then total = total + 1
Next r
MsgBox "Total: " & total
End Sub