|
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
|
|