将同一卡号在同一天出现超过两次的提出来，放到sheet2里面，数据量非常大。

lanseqingren

由于数据量太大，所以，想用VBA将sheet1表单里面将（同一卡号+同一天）出现次数大于2的数据放到sheet2中。谢谢

wangnandu

1. Sub AA()
   
2. 
   
3. arr = Sheets("Sheet1").Range("a2:c" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
   
4. brr = Sheets("Sheet1").Range("c2:c" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
   
5. Set dic = CreateObject("Scripting.Dictionary")
   
6. For i = 1 To UBound(arr)
   
7.   arr(i, 3) = Split(arr(i, 2), " ")(0)
   
8.   dic(arr(i, 1) & "&" & arr(i, 3)) = dic(arr(i, 1) & "&" & arr(i, 3)) + 1
   
9. Next
   
10. 
    
11. For i = 1 To UBound(arr)
    
12.   brr(i, 1) = dic(arr(i, 1) & "&" & arr(i, 3))
    
13. Next
    
14. Sheets("Sheet1").Range("c2:c" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row) = brr
    
15. 
    
16. End Sub
    
17. 
    

复制代码

deadzlq

PivotTable汇总参考（貌似都大于2）

lanseqingren

谢谢二位了，字典的效率非常高。