[已解决]VBA搜索历史

grf1973

1. Sub main()
   
2.     tms = Timer
   
3.     arr = Sheet2.Range("c2:h" & Sheet2.[c65536].End(3).Row)       '彩票数据数组
   
4.     brr = Sheet1.Range("b2:g" & Sheet1.[b65536].End(3).Row)        '条件数组
   
5.     Dim ar%(5), br%(5)
   
6.     ReDim crr(1 To UBound(brr), UBound(brr, 2))
   
7.     For i = 1 To UBound(brr)
   
8.         For j = 1 To 6: br(j - 1) = brr(i, j): Next
   
9.         For k = 1 To UBound(arr)
   
10.             For j = 1 To 6: ar(j - 1) = arr(k, j): Next
    
11.             p = CompAB(ar, br)
    
12.             crr(i, p) = crr(i, p) + 1
    
13.         Next
    
14.     Next
    
15.     [I2].Resize(UBound(crr), UBound(crr, 2)) = crr
    
16.     MsgBox Timer - tms & "秒"
    
17. End Sub
    
18. 
    
19. Function CompAB(ar%(), br%())        '返回数组br各数在数组ar中出现的次数
    
20.     Dim s%(1 To 33)
    
21.     For Each a In ar    '数组s以ar中每个数为下标的值设为1
    
22.         s(a) = 1
    
23.     Next
    
24.     For Each b In br       '数组s以br中每个数为下标的值相加，即为数组br各数在数组ar中出现的次数
    
25.         CompAB = CompAB + s(b)
    
26.     Next
    
27. End Function
    

复制代码

grf1973

运算结果和你的模拟结果不一致。不知道是谁的问题。

grf1973

代码小改一下就可。速度比蓝版的要快些。

grf1973

我原来比较的是条件数组在彩票数组中出现的次数，现在倒过来，比较彩票数组在条件数组中出现的次数。