VBA挑选组合哪一条最多

laoau138

VBA挑选组合哪一条最多

grf1973

1. Sub tj()
   
2.     Dim brr(1 To 35, 1 To 2)
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.             brr(arr(i, j), 1) = brr(arr(i, j), 1) + 1
   
7.             brr(arr(i, j), 2) = arr(i, j)
   
8.         Next
   
9.     Next
   
10.     For i = 1 To 34
    
11.         For j = i + 1 To 35
    
12.             If brr(i, 1) < brr(j, 1) Then
    
13.                 tmp = brr(i, 1): brr(i, 1) = brr(j, 1): brr(j, 1) = tmp
    
14.                 tmp = brr(i, 2): brr(i, 2) = brr(j, 2): brr(j, 2) = tmp
    
15.             End If
    
16.         Next
    
17.     Next
    
18.    
    
19.     [H3].Resize(, 11) = Application.Transpose(Application.Index(brr, , 2))
    
20. End Sub

复制代码

香川群子

全部组合大约需要计算3-4个小时。

香川群子

grf1973 发表于 2016-10-13 16:46

你这样得到的结果是啥意思？
排序后为：

2

3

10

11

16

25

29

31

32

34

35

这11个数的选5组合，不能覆盖原始数据……一组都没有。

…………
我的组合计算，目前最大可以覆盖4组。

1

2

3

4

5

6

7

12

17

26

31

006	01	03	04	05	31
023	01	05	06	17	26
070	01	06	07	17	31
077	04	05	07	12	26

laoau138

grf1973 发表于 2016-10-13 16:46

today   快来学习啊

laoau138

香川群子 发表于 2016-10-13 16:54
你这样得到的结果是啥意思？
排序后为：

不知道，题目是论坛其它人架

today0427

laoau138 发表于 2016-10-13 17:16
today   快来学习啊

根本连题意都看不懂，感觉像逼着年幼时候的我做奥数题一样，我这脑子，就算了

laoau138

香川群子 发表于 2016-10-13 16:54
你这样得到的结果是啥意思？
排序后为：

函数计算出现次数最多的11个独立数字


如果挑选出一条11码.........包含B:F列这100行数据中4个数的组合最多............怎么办

laoau138

today0427 发表于 2016-10-13 17:51
根本连题意都看不懂，感觉像逼着年幼时候的我做奥数题一样，我这脑子，就算了

你终于露面了         奥数我也不懂，  听说小学奥数题， 难倒了高中生 甚至大学生，不知道真假

today0427

laoau138 发表于 2016-10-13 18:05
你终于露面了         奥数我也不懂，  听说小学奥数题， 难倒了高中生 甚至大学生，不知道真假

最痛苦的是，本来列个方程就能解决的问题，他偏不让你列，偏不让你列，眼看着你绕死在题目中不可自拔