有点难度的不确定数据组合

gfdhgw

tomxie 发表于 2023-7-21 00:21
SQL:1句9行最精简，119毫秒  最快

不错,辛苦了

micch

gfdhgw 发表于 2023-7-21 08:57
你好,这个组合内部排序的代码是什么?谢谢

1. Sub Main()
   
2.     tt = Timer
   
3.     ar = Range("a1:d8").Value
   
4.     br = Range("f2:h5").Value
   
5.     n = Range("i2").Value
   
6.     ReDim cr(1 To 4)
   
7.     For i = 1 To 4
   
8.         cr(i) = GetNumofColumn(ar, i)
   
9.     Next
   
10.     ar = cr
    
11.     ReDim result(1 To 50000, 1 To n)
    
12.    
    
13.     For i1 = br(1, 2) To br(1, 3)
    
14.     For i2 = br(2, 2) To br(2, 3)
    
15.     For i3 = br(3, 2) To br(3, 3)
    
16.     For i4 = br(4, 2) To br(4, 3)
    
17.             If i1 + i2 + i3 + i4 = n Then
    
18.                 j = 0
    
19.                 If i1 > 0 Then j = j + 1: cr(j) = CombinM_N(ar(1), i1)
    
20.                 If i2 > 0 Then j = j + 1: cr(j) = CombinM_N(ar(2), i2)
    
21.                 If i3 > 0 Then j = j + 1: cr(j) = CombinM_N(ar(3), i3)
    
22.                 If i4 > 0 Then j = j + 1: cr(j) = CombinM_N(ar(4), i4)
    
23.                 If j < 4 Then
    
24.                     ReDim temp(1, 1)
    
25.                     For i = j + 1 To 4
    
26.                         cr(i) = temp
    
27.                     Next
    
28.                 End If
    
29.                     For j1 = 1 To UBound(cr(1))
    
30.                     For j2 = 1 To UBound(cr(2))
    
31.                     For j3 = 1 To UBound(cr(3))
    
32.                     For j4 = 1 To UBound(cr(4))
    
33.                         k = k + 1
    
34.                         For k1 = 1 To UBound(cr(1), 2)
    
35.                             If k1 <= n Then result(k, k1) = cr(1)(j1, k1)
    
36.                         Next
    
37.                         For k2 = 1 To UBound(cr(2), 2)
    
38.                             If k1 - 1 + k2 <= n Then result(k, k1 - 1 + k2) = cr(2)(j2, k2)
    
39.                         Next
    
40.                         For k3 = 1 To UBound(cr(3), 2)
    
41.                             If k1 + k2 - 2 + k3 <= n Then result(k, k1 + k2 - 2 + k3) = cr(3)(j3, k3)
    
42.                         Next
    
43.                         For k4 = 1 To UBound(cr(4), 2)
    
44.                             If k1 + k2 + k3 - 3 + k4 <= n Then result(k, k1 + k2 + k3 - 3 + k4) = cr(4)(j4, k4)
    
45.                         Next
    
46.                         For k1 = 1 To n - 1
    
47.                         For k2 = k1 + 1 To n
    
48.                             If result(k, k1) > result(k, k2) Then
    
49.                                 k3 = result(k, k1)
    
50.                                 result(k, k1) = result(k, k2)
    
51.                                 result(k, k2) = k3
    
52.                             End If
    
53.                         Next
    
54.                         Next
    
55.                         
    
56.                     Next
    
57.                     Next
    
58.                     Next
    
59.                     Next
    
60.             End If
    
61.     Next
    
62.     Next
    
63.     Next
    
64.     Next
    
65.     Range("k1").Resize(k, n).Value = result
    
66.     MsgBox "组合数量： " & k & Chr(10) & "用时： " & Timer - tt
    
67. End Sub

复制代码

80783844

SQL竟然还能这么用

wodewan

gfdhgw 发表于 2023-7-20 22:17
你好,你这个好像没有对同一组合内的数字排序后输出,如果第一列的数字比后面的大,输出就不是依次从小到大 ...

wodewan

tomxie 发表于 2023-7-21 10:24
我下载下来，完全找不到 宏！！！

micch

tomxie 发表于 2023-7-21 09:03
我电脑上执行 好像 需要 0.68秒。

代码硬写的，很多无效的循环，速度我这边也不稳定，没排序的时候0.625，加了排序循环，反而变短了。

本来就是烂代码，也不纠结速度了。这个代码时候，将来讲代码结构和可读性，可维护性优化，用来做反面材料。

jz_l

jz_l

wodewan 发表于 2023-7-20 18:21
老大，用WPS的JSA瞎写了一个整体比VBA快一倍，数据没你快，标色比你快，哈哈

JSA标色这么快？厉害了

wodewan

jz_l 发表于 2023-7-21 14:18
JSA标色这么快？厉害了

那里是JSA标色快，JSA除了单纯运算感觉比VBA快点，操作表格比VBA慢的不是一星半点（就看写入就知道至少慢一倍），第一次那个快是因为没排序，我的数据是按分组整体分区的，比较集中，统一标色，操作次数少罢了，后来知道要排序，试了试标色要2-3秒，直接删了。

话说老大一出手就知有没有啊，你怎么每次都能把VBA玩的运行速度玩的这么极致呢？直接甩几条街了。。。。。。

jz_l

wodewan 发表于 2023-7-21 15:31
那里是JSA标色快，JSA除了单纯运算感觉比VBA快点，操作表格比VBA慢的不是一星半点（就看写入就知道至少慢 ...

你这叫我怎么吹呢。。。
我亦无他，惟手熟尔