难题求助大神，统计01出现次数

清风竹-

wang03158 发表于 2020-7-21 15:27
大哥再麻烦你帮我看下：
Sub 统计次数()
   m = [a65536].End(3).Row

Sub 统计次数2()

m = Range("A" & Rows.Count).End(xlUp).Row
    arr = Range("a1:a" & m)
   ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        If arr(i, 1) = 0 Then
           b = 0
        End If
        If arr(i, 1) = 1 Then
          b = b + 1
          brr(i, 1) = b
           a = 0
        End If
    Next
   Range("b1:b" & m) = brr
End Sub