vba实现指定区域不同数值出现次数的统计

一、案例概述：
前面使用SUMPRODUCT 函数 搭建辅助表来计算同一数值出现次数的统计，本章我们使用vba的方式来实现此功能。
二、案例如下：
（1）源数据：

（2）代码部分：

Sub shshi()
    '获取分部的起始位置
    Dim a, b, c, k, m, n As Integer
    Dim arr(1 To 100) As Byte
    Dim brr(1 To 100) As Byte
    arr(1) = 2
    i = 1    '用于定义数组的位置
    d = 1    '用于简单的for 赋值计算
    k = 1    '用于计算指定区域不同月结号出现的次数
    n = 1    '用于给G列定位赋值
    
    '将同一列相同分部的起始位置存放到数组当中
    For b = 3 To 100
        If Sheet8.Cells(arr(i), 2).Value <> Sheet8.Cells(b, 2).Value Then
            '用来记住每个分部的单元格行号  a到b-1
            i = i + 2
            arr(i - 1) = b - 1
            arr(i) = b
        End If
    Next
    
    '