统计某个数字的分布情况

归纳猜想

求助：请高手们帮助解决！统计一列中某个数字连续出现次数和不连续出现的次数

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, m, a, b
  arr = Range("a3:a" & Cells(Rows.Count, "a").End(xlUp).Row + 1)
  For i = 1 To UBound(arr, 1) - 1
    If arr(i, 1) = 4 Then
      a = 0
      For j = i To UBound(arr, 1) - 1
        a = a + 1
        If arr(j + 1, 1) <> 4 Then
          m = m + 1: arr(m, 1) = a: b = 0
          Exit For
        End If
      Next
      For j = j + 1 To UBound(arr, 1) - 1
        b = b - 1
        If arr(j + 1, 1) = 4 Or Len(arr(j + 1, 1)) = 0 Then
          m = m + 1: arr(m, 1) = b: i = j
          Exit For
        End If
      Next
    End If
  Next
  With [b3]
    .Resize(Rows.Count - 2).ClearContents
    If m > 0 Then .Resize(m) = arr
  End With
End Sub

蓝桥玄霜

请见代码。

归纳猜想

谢谢两位的帮助！谢谢！！