重复数据只计算一次的问题

yanglinzi

参与一下。。。

usedrange

。。。。。。。。。。。。。。

Benfyhu

ykcbf1100 发表于 2024-11-29 15:51
那就工作表事件

您好！ykcbf1100老师，又得麻烦你一下。如果是日期，和数据更变成如图这样呢。

shiruiqiang

Benfyhu 发表于 2024-11-29 17:47
您好！ykcbf1100老师，又得麻烦你一下。如果是日期，和数据更变成如图这样呢。

ykcbf1100

Benfyhu 发表于 2024-11-29 17:47
您好！ykcbf1100老师，又得麻烦你一下。如果是日期，和数据更变成如图这样呢。

附件供参考。。。

ykcbf1100

统计。。。

1. Sub ykcbf()   '//2024.11.29
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("Sheet1 (2)")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 10)
   
6.     End With
   
7.     With Sheets("Sheet1")
   
8.         rq1 = .[b3].Value
   
9.         rq2 = .[e3].Value
   
10.         For i = 4 To UBound(arr)
    
11.             rq = CDate(arr(i, 10))
    
12.             If rq >= rq1 And rq <= rq2 Then
    
13.                 s = arr(i, 2)
    
14.                 d(s) = d(s) + 1
    
15.             End If
    
16.         Next
    
17.         .[g3] = d.Count & "个"
    
18.         d.RemoveAll
    
19.         For i = 4 To UBound(arr)
    
20.             rq = CDate(arr(i, 10))
    
21.             If rq >= rq1 And rq <= rq2 Then
    
22.                 s = arr(i, 2) & "-" & arr(i, 5)
    
23.                 If Not d.exists(s) Then
    
24.                     d(s) = arr(i, 4)
    
25.                 End If
    
26.             End If
    
27.         Next
    
28.         Sum = 0
    
29.         For Each k In d.keys
    
30.             Sum = Sum + d(k)
    
31.         Next
    
32.         .[h3] = Sum & "个"
    
33.     End With
    
34.     Set d = Nothing
    
35.     MsgBox "OK！"
    
36. End Sub
    

复制代码

Benfyhu

shiruiqiang 发表于 2024-11-29 19:25

非常感谢！好人一生平安！

Benfyhu

ykcbf1100 发表于 2024-11-29 19:54
附件供参考。。。

非常感谢！好人一生平安！

Benfyhu

shiruiqiang 发表于 2024-11-29 19:25

您好！老师。。。如图：印刷数量求和这里错误了。您计算的是所有的总和了。想要实现的是，在规定日期内，同时满足工单号和印张序号的重复数值算一个，的求和。（比如：2355173-1   3500 为一个，2355173-2   3500为一个） 。还有如果是想实现输入日期后自动计算呢。事件代码应是怎么样。谢谢

gaozengxun

不知道理解的对也不对，给个公式：=COUNT(UNIQUE(A1:B20))