[已解决]将同一个卡号在同一天内出现的次数在2次或以上的列出来

秋意正浓

详见附件说明，谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2013-4-10 11:29

1. Sub test()
   
2.     Dim d, A(), t(), i&
   
3.     Sheets(1).Select
   
4.     A = Range("a1:c" & Range("a65536").End(xlUp).Row).Value
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For i = 2 To UBound(A)
   
7.         d(A(i, 1) & A(i, 2)) = d(A(i, 1) & A(i, 2)) + 1
   
8.     Next i
   
9.     t = d.items
   
10.    
    
11.     For i = 2 To UBound(A)
    
12.         A(i, 3) = d(A(i, 1) & A(i, 2))
    
13.     Next i
    
14.     [a1].Resize(i - 1, 3) = A
    
15. End Sub

复制代码

将一个卡号在同一天出现的次数在2次或以上的列出来b.rar (14.34 KB, 下载次数: 9)

2013-4-10 11:29 上传

点击文件名下载附件

跳转到最佳答案楼层

tuotuo865

在C2处输入如下函数即可：
=SUMPRODUCT((A$2:A$144=A2)*(B$2:B$144=B2))

爱疯

1. Sub test()
   
2.     Dim d, A(), t(), i&
   
3.     Sheets(1).Select
   
4.     A = Range("a1:c" & Range("a65536").End(xlUp).Row).Value
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For i = 2 To UBound(A)
   
7.         d(A(i, 1) & A(i, 2)) = d(A(i, 1) & A(i, 2)) + 1
   
8.     Next i
   
9.     t = d.items
   
10.    
    
11.     For i = 2 To UBound(A)
    
12.         A(i, 3) = d(A(i, 1) & A(i, 2))
    
13.     Next i
    
14.     [a1].Resize(i - 1, 3) = A
    
15. End Sub

复制代码

将一个卡号在同一天出现的次数在2次或以上的列出来b.rar (14.34 KB, 下载次数: 9)

2013-4-10 11:29 上传

点击文件名下载附件

秋意正浓

我太感动了！这么快就有人给我回复了，十分谢谢！

1032446692

你看看  结果自己核对 有问题在修改

秋意正浓

继续请教“爱疯”高手，每天刷卡次数是1次的，不用列出来在SHEET2表，但凡是一天内出现的次数是2次或以上的明细，都要列出来在SHEET2表中，最好能按次数由高向低排序！
附件中有要求达到的效果，谢谢啊

爱疯

1. Sub test()
   
2.     Dim rng As Range
   
3.     Dim d As Object
   
4.     Dim A(), t()
   
5.     Dim i As Long
   
6.    
   
7.     '统计次数
   
8.     Sheets(1).Select
   
9.     Set rng = Range("a1:c" & Range("a65536").End(xlUp).Row)
   
10.     A = rng.Value
    
11.     Set d = CreateObject("scripting.dictionary")
    
12.     For i = 2 To UBound(A)
    
13.         d(A(i, 1) & A(i, 2)) = d(A(i, 1) & A(i, 2)) + 1
    
14.     Next i
    
15.     t = d.items
    
16.     For i = 2 To UBound(A)
    
17.         A(i, 3) = d(A(i, 1) & A(i, 2))
    
18.     Next i
    
19.     [a1].Resize(i - 1, 3) = A
    
20. 
    
21.     '高级筛选
    
22.     Sheets("Sheet2").Select
    
23.     rng.AdvancedFilter Action:=xlFilterCopy, _
    
24.                        CriteriaRange:=Sheets("Sheet1").Range("Z1:Z2"), _
    
25.                        CopyToRange:=Range("D1:F1"), _
    
26.                        Unique:=False
    
27. 
    
28.     '按F列排升序
    
29.     Range("d1").CurrentRegion.Sort Key1:=Range("F1"), _
    
30.                                    Order1:=xlAscending, _
    
31.                                    Header:=xlYes
    
32. 
    
33. End Sub

复制代码

将一个卡号在同一天出现的次数在2次或以上的列出来c.rar (14 KB, 下载次数: 5)

2013-4-10 12:15 上传

点击文件名下载附件