多条件去重统计汇总

缇缇10

求各位大神帮帮忙，统计汇总每月的顾客数目以及购买次数2次以上的顾客数目（根据销售员，顾客姓名，时间不重复计数）1、计算每月销售员对应的顾客数(去重)
2、计算每月销售员对应的顾客购买次数超两次以上的顾客数
最终结果如下图所示

销售员	1月     顾客数	购买次数超过2次以上	2月     顾客数	购买次数超过2次以上	3月     顾客数	购买次数超过2次以上
张三	2	2	1	0	2	0
张四	1	0	1	0	2	0
张五	2	1	1	0	2	0
张六	1	0	1	0	1	0
张七	1	0	1	0	1	0

hcm19522

F2:F6=SUMPRODUCT(($A$2:$A$25=$E2)*(MONTH($C$2:$C$25)=INT(COLUMN(B1)/2)))

G2:G6{=SUM((MATCH($A$2:$A$25&$B$2:$B$25&(MONTH($C$2:$C$25)=INT(COLUMN(B1)/2)),$A$2:$A$25&$B$2:$B$25&(MONTH($C$2:$C$25)=INT(COLUMN(B1)/2)),)=ROW(A$2:A$25)-1)*(MONTH($C$2:$C$25)=INT(COLUMN(B1)/2))*($A$2:$A$25=$E2))

F2:G6複製到H2:K6

stonelee2018

hcm19522 发表于 2018-7-11 15:23
F2:F6=SUMPRODUCT(($A$2:$A$25=$E2)*(MONTH($C$2:$C$25)=INT(COLUMN(B1)/2)))

G2:G6{=SUM((MATCH($A$2:$ ...

牛逼的公式！！！

stonelee2018

你干脆排个序，再来个数据汇总就出来了

grf1973

1. Sub tj()
   
2.     arr = Sheets("明细").[a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     ReDim brr(1 To UBound(arr), 1 To 25)
   
5.     For i = 2 To UBound(arr)
   
6.         x = arr(i, 1)
   
7.         mnth = Month(arr(i, 3))
   
8.         If mnthmax < mnth Then mnthmax = mnth
   
9.         If Not d.exists(x) Then
   
10.             n = n + 1
    
11.             d(x) = n
    
12.             brr(n, 1) = x
    
13.         End If
    
14.         p = d(x)
    
15.         brr(p, 2 * mnth) = brr(p, 2 * mnth) & "," & arr(i, 2)
    
16.     Next
    
17.     [a20].Resize(n, 2 * mnthmax + 1) = brr
    
18.    
    
19.     For i = 1 To n
    
20.         For j = 1 To mnthmax
    
21.             d.RemoveAll
    
22.             xrr = Split(Mid(brr(i, 2 * j), 2), ",")
    
23.             For Each x In xrr
    
24.                 d(x) = d(x) + 1
    
25.             Next
    
26.             brr(i, 2 * j) = UBound(xrr) + 1 'd.Count
    
27.             For Each x In d.keys
    
28.                 If d(x) > 1 Then brr(i, 2 * j + 1) = brr(i, 2 * j + 1) + 1
    
29.             Next
    
30.         Next
    
31.     Next
    
32.     [a10].Resize(n, 2 * mnthmax + 1) = brr
    
33. End Sub
    

复制代码

缇缇10

grf1973 发表于 2018-7-11 16:19

抱歉，我可能没有表达清楚，顾客数目是需要去重的，麻烦在帮我处理下可以吗

缇缇10

hcm19522 发表于 2018-7-11 15:23
F2:F6=SUMPRODUCT(($A$2:$A$25=$E2)*(MONTH($C$2:$C$25)=INT(COLUMN(B1)/2)))

G2:G6{=SUM((MATCH($A$2:$ ...

抱歉，我可能没有表达清楚，顾客数目是需要去重的，麻烦在帮我处理下可以吗

grf1973

第26句留了一手的。。。。用  brr(i, 2 * j) = d.Count 即可。

缇缇10

grf1973 发表于 2018-7-12 14:03
第26句留了一手的。。。。用  brr(i, 2 * j) = d.Count 即可。

抱歉 这阵子出差了，没上网络，已解决，谢谢