求助EXCEL2007多条件统计不重复个数

hxj119

公式右拉下拉

1. =SUMPRODUCT((RIGHT($B$2:$B$10935,2)=LEFT(G$1,2))*($C$2:$C$10935=$F2)*(MATCH($A$2:$A$10935,$A$2:$A$10935,0)=ROW($A$2:$A$10935)-1))

复制代码

510437958

沈默00 发表于 2025-4-8 11:13
别折腾了，，用数透好了，，简单，，

2007透视表可以去重计数吗？

ykcbf1100

统计，VBA

ykcbf1100

1. Sub ykcbf()   '//2025.4.8
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     ReDim brr(1 To 10000, 1 To 3)
   
5.     On Error Resume Next
   
6.     With Sheets("Sheet1")
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         arr = .[a1].Resize(r, 3)
   
9.         For i = 2 To UBound(arr)
   
10.             s = arr(i, 3)
    
11.             p1 = IIf(arr(i, 2) = "开具", 1, 0)
    
12.             p2 = IIf(arr(i, 2) = "开具作废", 1, 0)
    
13.             If Not d.exists(s) Then
    
14.                 m = m + 1
    
15.                 d(s) = m
    
16.                 brr(m, 1) = s
    
17.                 brr(m, 2) = p1
    
18.                 brr(m, 3) = p2
    
19.             Else
    
20.                 r = d(s)
    
21.                 brr(r, 2) = brr(r, 2) + p1
    
22.                 brr(r, 3) = brr(r, 3) + p2
    
23.             End If
    
24.         Next
    
25.         .[f2].Resize(10000, 3) = Empty
    
26.         .[f2].Resize(m, 3) = brr
    
27.     End With
    
28.     Set d = Nothing
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "OK！"
    
31. End Sub
    
32. 
    

复制代码

沈默00

510437958 发表于 2025-4-8 11:22
2007透视表可以去重计数吗？

透视表有去重功能

510437958

jivy1212 发表于 2025-4-8 11:11
右拉下拉

大神，FREQUENCY后面配置ROW(A:A)可以解释一下吗？还有后面的MATCH($A$2:$A$10935,$A:$A,)*($C$2:$C$10935=$F2)*(LEFT(G$1,2)=RIGHT($B$2:$B$10935,2))前面的MATCH匹配A列第2行到10935行，为什么还要加个,$A:$A？还有($C$2:$C$10935=$F2)*(LEFT(G$1,2)=RIGHT($B$2:$B$10935,2))好像是匹配C列字符为开具和开具作废，此处可以直接用字符代把？比如“开具作废”、“开具”？期待您的指导！谢谢！

zhangcheng6688

借楼学习一下字典，第一个三层字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   If Not dic.exists(arr(i, 3)) Then
      Set dic(arr(i, 3)) = CreateObject("scripting.dictionary")
   End If
   If Not dic(arr(i, 3)).exists(arr(i, 2)) Then
      Set dic(arr(i, 3))(arr(i, 2)) = CreateObject("scripting.dictionary")
   End If
   dic(arr(i, 3))(arr(i, 2))(arr(i, 1)) = ""
Next
brr = [f1].CurrentRegion
For i = 2 To UBound(brr)
   If dic(brr(i, 1)).exists("开具") Then
      brr(i, 2) = dic(brr(i, 1))("开具").Count
   End If
   If dic(brr(i, 1)).exists("开具作废") Then
      brr(i, 3) = dic(brr(i, 1))("开具作废").Count
   End If
Next
[f1].CurrentRegion = brr
Set dic = Nothing
End Sub

510437958

hxj119 发表于 2025-4-8 11:19
公式右拉下拉

https://club.excelhome.net/threa ... tml?_dsign=5b3aa55e老师，有兴趣看看这个问题吗？

wyslw2004

别折腾了，，用数透就好了。实在不想换软件，就换个问题