[第50问]请帮我修改表格中的代码提高运行速度

hbhs2022

见附件说明。我换了新的表格，重新设置了一下，帮我解决后面的问题。

LIUZHU

看不懂数据是什么意思，直接说问题吧，重新写一个

hbhs2022

LIUZHU 发表于 2024-6-9 21:11
看不懂数据是什么意思，直接说问题吧，重新写一个

前区数据代码中有，难到看不懂？

ynzsvt

前驱代码改成数组一次性输出就很快了。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("数据")
   
7.         r = .Cells(.Rows.count, 2).End(xlUp).Row
   
8.         arr = .Range("d3:h" & r)
   
9.         ReDim brr(1 To UBound(arr), 1 To 4)
   
10.         For i = 1 To UBound(arr)
    
11.             x1 = 0
    
12.             x2 = 0
    
13.             y1 = 0
    
14.             y2 = 0
    
15.             For j = 1 To UBound(arr, 2)
    
16.                 s = Val(arr(i, j))
    
17.                 brr(i, 2) = brr(i, 2) + s
    
18.                 If s Mod 2 = 1 Then
    
19.                     x1 = x1 + 1
    
20.                 Else
    
21.                     x2 = x2 + 1
    
22.                 End If
    
23.                 If s > 17 Then
    
24.                     y1 = y1 + 1
    
25.                 Else
    
26.                     y2 = y2 + 1
    
27.                 End If
    
28.             Next
    
29.             brr(i, 3) = x1 & ":" & x2
    
30.             brr(i, 4) = y1 & ":" & y2
    
31.         Next
    
32.         For i = 2 To UBound(arr)
    
33.             d.RemoveAll
    
34.             For j = 1 To UBound(arr, 2)
    
35.                 d(arr(i - 1, j)) = d(arr(i - 1, j)) + 1
    
36.                 d(arr(i, j)) = d(arr(i, j)) + 1
    
37.             Next
    
38.             For Each aa In d.keys
    
39.                 If d(aa) > 1 Then
    
40.                     brr(i, 1) = brr(i, 1) + 1
    
41.                 End If
    
42.             Next
    
43.         Next
    
44.     End With
    
45.     With Worksheets("图表")
    
46.         .Range("al4").Resize(UBound(brr), UBound(brr, 2)) = brr
    
47.     End With
    
48. 
    
49. End Sub
    

复制代码

chxw68

参与一下。

quqiyuan

改用数组，速度快多了，供参考吧

hbhs2022

ynzsvt 发表于 2024-6-9 21:46
前驱代码改成数组一次性输出就很快了。

谢谢你的帮助。重号第1期为0（因为第1期没有重号，彩票网站都是显示重号为0）。如何修改代码？

hbhs2022

chxw68 发表于 2024-6-9 21:58
参与一下。

谢谢你的帮助。重号第1期为0（因为第1期没有重号，彩票网站都是显示重号为0）。如何修改代码？

hbhs2022

chxw68 发表于 2024-6-9 21:58
参与一下。

字典代码怎么变成下面这个样子。奇偶和大小下面单元格设置常规不行，要设置文本格式才行。重号没有显示0，怎么显示空。