两个分类要求怎么统计

xwdljh

见附件

字典与普通办法都可以，代码简单为好。

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=b73ad3d6
字典案例，楼主可以先参考下

Yalishanda30

供参考。。。。。。

Jaofuan

1. Sub jaofuan()
   
2.     Dim d As Object, ar, br, row As Long, x As Long
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     row = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row
   
5.     ar = ActiveSheet.Range("A3:C" & row)
   
6.     ReDim br(1 To row, 1 To 3)
   
7.     For i = 1 To UBound(ar)
   
8.         If ar(i, 1) <> "" Then
   
9.             If Not d.exists(ar(i, 1) & ar(i, 3)) Then
   
10.                 x = x + 1
    
11.                 d(ar(i, 1) & ar(i, 3)) = x
    
12.                 br(x, 1) = ar(i, 1)
    
13.                 br(x, 2) = ar(i, 2)
    
14.                 br(x, 3) = ar(i, 3)
    
15.             Else
    
16.                 br(d(ar(i, 1) & ar(i, 3)), 2) = br(d(ar(i, 1) & ar(i, 3)), 2) + ar(i, 2)
    
17.             End If
    
18.         End If
    
19.     Next
    
20.     ActiveSheet.Range("E3").Resize(row, 3) = br
    
21. End Sub

复制代码

ykcbf1100

字典吧，简单点

今铭昔

xwdljh

ykcbf1100 发表于 2023-3-10 13:09
字典吧，简单点

一目了然，简单实用，非常感谢！
d(s)=d(s)+arr(i,2)一句就将数组去重、累加装入字典，概念清晰。
一直在想，如何不用字典。
自己写了一段不用字典的，用前后记录比较和循环，烂到都不好意思贴出来。
大师能否给出一段不用字典的代码，不胜感激。

cjc209

xwdljh 发表于 2023-3-10 14:09
一目了然，简单实用，非常感谢！
一直在想，如何不用字典。
自己写了一段不用字典的，用前后记录比较和 ...

不用字典就用数据透视表

ykcbf1100

xwdljh 发表于 2023-3-10 14:09
一目了然，简单实用，非常感谢！
一直在想，如何不用字典。
自己写了一段不用字典的，用前后记录比较和 ...

排重汇总还是字典简单。
不用字典的话，我只会汇总数值。

renkangjizhen

三个字典，一次循环搞定！