求表格数据统计~~~详情请看贴内！

lp82817

求aa、bb、cc各数据总数 （如 aa数值包含aa_11数值）

具体数据请看附件。

跪拜各位大神，帮忙解决！

哥儿-

Sub 汇总()
    Dim arr, dic As Object, i%, n%
    arr = Range("A1").CurrentRegion.Formula
    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        If Len(arr(i, 2)) Then n = i
        dic(Split(arr(n, 2), "_")(0)) = dic(Split(arr(n, 2), "_")(0)) + Val(arr(i, 3))
    Next i
    Range("F5").Resize(, dic.Count) = dic.items
End Sub