用什么方法能迅速汇总

luodynasty

举例：红色相加：例7+1+31+36=75，说明有75个1,表示为75（1），我现在用sumif函数做，但好费劲。各位大神有没有更简便的方法

deadzlq

PQ参考解法

luodynasty

deadzlq 发表于 2019-9-3 13:30
PQ参考解法

十分感谢，没怎么看懂怎么用，不过还是十分感谢！

luodynasty

deadzlq 发表于 2019-9-3 13:30
PQ参考解法

那个大神，实在是才疏学浅，能不能您帮个忙把我原文件里有个平山区用您的方法汇总一下呢？感谢不尽

astupig

先把中文的（ ） 换成英文的() 然后用VBA就可以了。

1. Sub Test()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     For i = 3 To 8 '' 起始行是3，结束行是8
   
4.         For Each j In Split(Cells(i, 1).Value, "、")
   
5.             myItem = Val(Split(j, "(")(1))
   
6.             myCount = Val(Split(j, "(")(0))
   
7.             d(myItem) = d(myItem) + myCount
   
8.         Next j
   
9.     Next i
   
10.    
    
11.     [f1:g1] = Array("item", "count")
    
12.    
    
13.     [f2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
14.     [g2].Resize(d.Count, 1) = Application.Transpose(d.items)
    
15.    
    
16.     [f2].Resize(d.Count, 2).Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlYes
    
17.    
    
18.     ReDim arr(1 To d.Count)
    
19.    
    
20.     For i = 1 To d.Count
    
21.         arr(i) = Cells(i + 1, "G") & "(" & Cells(i + 1, "F") & ")"
    
22.     Next
    
23.    
    
24.     Range("F:G").Clear
    
25.    
    
26.     [c4] = Join(arr, "、")
    
27.      
    
28. End Sub
    

复制代码

luodynasty

astupig 发表于 2019-9-3 16:19
先把中文的（ ） 换成英文的() 然后用VBA就可以了。

没有鲜花送不了，只有感谢了。。。。非常感谢