求助各位大师

吴中泉

综合以上,提炼出简洁高效的代码如下:

1. '利用字典统计同列相同数据出现超3次以上
   
2. Sub test2()
   
3.     Dim dic, arr, arr1, i, max_row
   
4.     Set dic = CreateObject("Scripting.Dictionary")
   
5.     max_row = [B1008888].End(xlUp).Row
   
6.     arr = Range("B1:B" & max_row)
   
7.     For i = 1 To UBound(arr)
   
8.         dic(arr(i, 1)) = dic(arr(i, 1)) + 1
   
9.     Next
   
10.     ReDim arr1(1 To dic.Count, 1 To 2)
    
11.     i = 0
    
12.     For Each keyname In dic.keys
    
13.         If dic(keyname) > 3 Then
    
14.             i = i + 1
    
15.             arr1(i, 1) = keyname
    
16.             arr1(i, 2) = dic(keyname)
    
17.         End If
    
18.     Next
    
19.     [I2].Resize(i, 2) = arr1   
    
20. End Sub
    

复制代码