Subhz()'子程序hz()Dimi&,Myr&,x,Arr'定义变量i&,Myr&,x,ArrDimd,k,t'定义变量d,k,tSetd=CreateObject("Scripting.Dictionary")'设定d=<创建工程>("Scripting.Dictionary")Application.ScreenUpdating=False'关闭屏幕刷新(可以提高运行速度)Sheet2.Activate'Sheet2的激活Myr=[a65536].End(xlUp).Row'Myr=[a65536]的<末端>(方向向上)的行标Arr=Range("a2:e"&Myr)'Arr=<单元格>区域("a2:e"&Myr)Fori=1ToUBound(Arr)'设定变量范围为i=1到<数组上限>(Arr)IfArr(i,1)=1Then'如果Arr(i,1)=1则执行x=Arr(i,2)&"|"&Arr(i,4)'x=Arr(i,2)&"|"&Arr(i,4)d(x)=d(x)+Arr(i,5)'d(x)=d(x)+Arr(i,5)EndIf'If判断过程结束Next'下一个k=d.keys'k=d的关键字t=d.items't=d的itemsSheet1.Activate'Sheet1的激活[a2:c1000].ClearContents'[a2:c1000]的清除内容[a2].Resize(d.Count,2)=Application.Transpose(k)'[a2]的<重调大小>(d的计数值,2)=应用程序的<区域转置>(k)[a:a].Replace"|*","":[b:b].Replace"*|",""'[a:a]的替换字符串"|*","":[b:b]的替换字符串"*|",""