[已解决]百万行的数据，如何能够快速标记某列中单元格的重复数？？？求大神指教！！！

bai7190

一个百万行数据的表，想要找出其中 E 列中每一个单元格重复的次数，然后标记在相应单元格的后面，也就是F列，


我用了函数COUNTIF，但是表格太卡了，反应不过来
求大神指教有什么更好的办法没有，谢谢！

工作簿1.rar (8.72 KB, 下载次数: 50)

2016-11-23 20:55 上传

点击文件名下载附件
示例文件

最佳答案

月排行榜 / 总排行榜

香川群子

2016-11-30 08:47

确定只有2个表的代码：

1. Sub test() 'by kagawa 2016/11/30
   
2.     Dim arr1, arr2, d, kr, sr, tr, i&, j&, k&, m1&, m2&, n&, r&, s&, t$, t1$, t2$, tms#
   
3.     tms = Timer
   
4.    
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     m1 = Sheet1.Cells(Rows.Count, 5).End(3).Row - 1
   
7.     arr1 = Sheet1.[e2].Resize(m1)
   
8.     For i = 1 To m1
   
9.         t = arr1(i, 1): t1 = Left(t, 6): t2 = Mid(t, 7)
   
10.         If Not d.Exists(t1) Then Set d(t1) = CreateObject("scripting.dictionary")
    
11.         d(t1)(t2) = d(t1)(t2) & "," & i
    
12.     Next
    
13.     m2 = Sheet2.Cells(Rows.Count, 5).End(3).Row - 1
    
14.     arr2 = Sheet2.[e2].Resize(m2)
    
15.     For i = 1 To m2
    
16.         t = arr2(i, 1): t1 = Left(t, 6): t2 = Mid(t, 7)
    
17.         If Not d.Exists(t1) Then Set d(t1) = CreateObject("scripting.dictionary")
    
18.         d(t1)(t2) = d(t1)(t2) & "," & -i
    
19.     Next
    
20.    
    
21.     kr = d.keys
    
22.     For i = 0 To UBound(kr)
    
23.         tr = d(kr(i)).items: s = s + UBound(tr) + 1
    
24.         For j = 0 To UBound(tr)
    
25.             sr = Split(tr(j), ",")
    
26.             n = UBound(sr)
    
27.             For k = 1 To n
    
28.                 r = sr(k): If r > 0 Then arr1(r, 1) = n Else arr2(-r, 1) = n
    
29.             Next
    
30.         Next
    
31.     Next
    
32.     MsgBox Format(Timer - tms, "0.00s") & vbCr & d.Count & vbCr & s & vbCr & m1 + m2
    
33.     Sheet1.[f2].Resize(m1) = ""
    
34.     Sheet1.[f2].Resize(m1) = arr1
    
35.     Sheet2.[f2].Resize(m2) = ""
    
36.     Sheet2.[f2].Resize(m2) = arr2
    
37. End Sub

复制代码

跳转到最佳答案楼层

bai7190

在线等！！！

bai7190

用VBA，我只会简单的引用函数，还是非常慢，经常卡死！求大家指教好办法，谢谢！

bai7190

今天人很少啊

bai7190

等了好一会也没人啊

bai7190

各路大神快快来啊！

苏子龙

countif统计纯数值文本，会当数值处理，超15位就出问题了，要=COUNTIF(E:E,E2&"*")这样处理下
另数据多，用代码也是卡的，可以试试更换好的电脑

望帝春心

楼主是做人口统计的吗？

yeminqiang

vba也怕卡啊，看看大神可有好的方法。

today0427

1. Sub today()
   
2.     Dim d As Object, arr, i&
   
3.     arr = Range("e1:f" & [e65536].End(3).Row)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 1)) = d(arr(i, 1)) + 1
   
7.     Next
   
8. 
   
9.     For i = 2 To UBound(arr)
   
10.         arr(i, 2) = d(arr(i, 1))
    
11.     Next
    
12.     Columns("f:f").ClearContents
    
13.     [f1].Resize(i - 1, 1) = Application.Index(arr, , 2)
    
14. End Sub
    
15. 工作簿1.rar (17.06 KB, 下载次数: 27)
    2016-11-24 08:10 上传

    点击文件名下载附件

复制代码