[已解决]统计数字单个和连续的个数

hhaa999

统计数字单个和连续的个数

最佳答案

月排行榜 / 总排行榜

liuguansky

2013-4-2 16:42

556699.rar (9.12 KB, 下载次数: 3)

2013-4-2 16:44 上传

点击文件名下载附件
Sub df()
    Dim Arr, i&, Ar(1 To 1000, 1 To 2), K&, j&, S&, U&
    Arr = Range([b2], [b2].End(4)).Value
    For i = 1 To UBound(Arr)
        If Arr(i, 1) = 0 Then
            S = 0
            For j = i To UBound(Arr)
                If Arr(j, 1) = 0 Then
                    S = S + 1
                Else
                    Exit For
                End If
            Next j
            i = i + S - 1
            If S > 1 Then
                If U > 0 Then
                    K = K + 1
                    Ar(K, 1) = U: U = 0
                End If
                K = K + 1: Ar(K, 2) = S
            Else
                U = U + 1
            End If
        End If
    Next i
    If U > 0 Then K = K + 1: Ar(K, 1) = U
    [e2].Resize(K, 2) = Ar
End Sub

跳转到最佳答案楼层

liuguansky

556699.rar (9.12 KB, 下载次数: 3)

2013-4-2 16:44 上传

点击文件名下载附件
Sub df()
    Dim Arr, i&, Ar(1 To 1000, 1 To 2), K&, j&, S&, U&
    Arr = Range([b2], [b2].End(4)).Value
    For i = 1 To UBound(Arr)
        If Arr(i, 1) = 0 Then
            S = 0
            For j = i To UBound(Arr)
                If Arr(j, 1) = 0 Then
                    S = S + 1
                Else
                    Exit For
                End If
            Next j
            i = i + S - 1
            If S > 1 Then
                If U > 0 Then
                    K = K + 1
                    Ar(K, 1) = U: U = 0
                End If
                K = K + 1: Ar(K, 2) = S
            Else
                U = U + 1
            End If
        End If
    Next i
    If U > 0 Then K = K + 1: Ar(K, 1) = U
    [e2].Resize(K, 2) = Ar
End Sub