数据分类汇总计数

endupbkb

按不同产品分类，计数各各地市的环节数量，请各位大神帮忙。

liulang0808

楼主可以将三列内容合并，然后分类汇总计数，就能统计结果，再处理吧

liulang0808

1. Sub 按钮1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     arr = ActiveSheet.UsedRange
   
5.     For j = 2 To UBound(arr)
   
6.         d(arr(j, 1) & arr(j, 2) & arr(j, 3)) = 1 + d(arr(j, 1) & arr(j, 2) & arr(j, 3))
   
7.     Next j
   
8.     For j = 2 To 14 Step 5
   
9.         For i = j To j + 2
   
10.             For k = 7 To 11
    
11.                 arr(i, k) = d(arr(i, 6) & arr(j - 1, 5) & arr(j - 1, k))
    
12.             Next k
    
13.         Next i
    
14.     Next j
    
15.     ActiveSheet.UsedRange = arr
    
16.     Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

endupbkb

liulang0808 发表于 2018-9-4 16:34
楼主可以将三列内容合并，然后分类汇总计数，就能统计结果，再处理吧

茅塞顿开，太感谢了