老师请帮忙：根据要求统计数量

liulang0808

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets(1).UsedRange
    For j = 2 To UBound(arr)
        If arr(j, 2) <> "缺少" Then
            d(Left(arr(j, 1), 4)) = d(Left(arr(j, 1), 4)) + 1
        End If
    Next j

    For j = 2 To 23
        If d.exists(Cells(j, "b").Value) Then
            Cells(j, "c") = d(Cells(j, "b").Value)
        Else
            Cells(j, "c") = ""
        End If
    Next j
    a = Cells(2, "c")
    b = 2
    For j = 3 To Cells(Rows.Count, "a").End(3).Row
        If Len(Cells(j, "a")) > 0 Then

            Cells(b, "d") = a
            a = Cells(j, "c")
            b = j
        Else
            a = a + Cells(j, "C")
        End If
    Next j
        Cells(b, "d") = a
    Application.ScreenUpdating = True
End Sub

liulang0808

具体看看附件是否满足需求

沙漠滴雨

liulang0808 发表于 2014-4-4 20:22
具体看看附件是否满足需求

感谢老师帮助。
我又在21、25楼又有了新的要求，您再看看好吗？

沙漠滴雨

yjh_27 发表于 2014-4-4 11:47
注意汇总规则在黄色区域，移动时对应修改sub aa

请继续测试。

老师，您费心了。谢谢。

沙漠滴雨

liulang0808 发表于 2014-4-4 20:22
具体看看附件是否满足需求

老师，我是这样想的：每一次统计的内容可能不一样，也许下一次就没有第一类701A的内容或其他的。

但701A隶属于第一类；702B隶属于第二类；703C——711K隶属于第三类；712N——721X隶属于第四类；722Z隶属于第五类。这五类所包括的小类是一定的。

如果701A一小类不存在，那么其他小类隶属的大类也是不变的。

我的意思您明白了吗？

yjh_27

沙漠滴雨 发表于 2014-4-5 07:14
老师，我是这样想的：每一次统计的内容可能不一样，也许下一次就没有第一类701A的内容或其他的。

但70 ...

所以要设置汇总规则（黄色区域，可编辑内容），汇总规则变化不改代码