[已解决]12个数随机抽取6个数进行求和，如何穷尽？

sailorgo · 发表于 2016-11-28 13:54

各位大咖：
从1,2,3,4,5,6,7,8,9,10,11,12总共12个数，随机抽取6个数组成组合，如何求各组合的和值（穷举）?例如取1,2,3,4,5,6 组合和值为21，如果是1,2,3,4,5,7组合，和值尾22,如何穷举谢谢各位大咖帮忙！

最佳答案

月排行榜 / 总排行榜

香川群子

2016-11-29 09:58

本帖最后由香川群子于 2016-11-29 12:40 编辑

按列输出的代码:

Dim sj, jg(), k&, l&, m&, n&
Sub Combin_1()
tms = Timer
sj = [a1].CurrentRegion: l = UBound(sj)
m = 12: n = 6: k = WorksheetFunction.Combin(m, n)
ReDim jg(1 To l, k)
k = 0: Call dgZH(0, 1)
MsgBox Format(Timer - tms, "0.000s")
[o1].CurrentRegion = "": [o1].Resize(l, k) = jg
End Sub
Sub dgZH(j1&, t&)
Dim i&, j&
For j = j1 + 1 To 6 + t 'm - n + t
For i = 1 To l
jg(i, k) = jg(i, k) + sj(i, j)
Next
If t < n Then
Call dgZH(j, t + 1)
Else
k = k + 1
For i = 1 To l
jg(i, k) = jg(i, k - 1)
Next
End If
For i = 1 To l
jg(i, k) = jg(i, k) - sj(i, j)
Next
Next
End Sub

复制代码

注意输出语句要改一下：
[o1].CurrentRegion = "": [o1].Resize(l, k) = jg

我测试时用了数字10，只能输出10列。

跳转到最佳答案楼层

蝶·舞 · 发表于 2016-11-28 14:16

理论上就是21-57这三十七个值

望帝春心 · 发表于 2016-11-28 14:18

COMBIN(12,6)=924种，这类问题得找香川群子大神

sailorgo · 发表于 2016-11-28 14:43

是我说的不全
应该还有N行
1,2,3,4,5,6,7,8,9,10,11,12
。。。。。。。。。。。。
4,5,8,10,12,14,18,20,30,33,36,38
就是这12列种随机选择6列进行求和
穷举一下

望帝春心 · 发表于 2016-11-28 14:51

sailorgo 发表于 2016-11-28 14:43
是我说的不全
应该还有N行
1,2,3,4,5,6,7,8,9,10,11,12

一行就是924种，你有多少行？自己去算一下这个计算量？算出来的结果放在哪里？又是彩票吗？

sailorgo · 发表于 2016-11-28 14:52

各位大咖：
   有N行数据，共12列，对这12列数据选出6列进行组合，对各组合进行求和
   例如：
         第一行 1,2,3,4,5,6,7,8,9,10,11,12，
.............................................................
         第N-1行 5,8,10,11,12,15,17,22,24,28,36,42
      第N行 3,4,6,9,10,14,12,16,18,21,23,28,
第1-6列为一个组合  求值分别为
         21
.....................
         61
         46
如何用vba进行穷举  多谢！

tgydslr · 发表于 2016-11-28 17:16

有时光来讨答案的吧，停一下学习学习多好啊

sailorgo · 发表于 2016-11-28 18:09

望帝春心发表于 2016-11-28 14:51
一行就是924种，你有多少行？自己去算一下这个计算量？算出来的结果放在哪里？又是彩票吗？

因为有N行，所以结果只能放在12列之后，彩票不需要求和吧

望帝春心 · 发表于 2016-11-28 18:19

sailorgo 发表于 2016-11-28 18:09
因为有N行，所以结果只能放在12列之后，彩票不需要求和吧

哦，等大神出招吧，感觉好难

sailorgo · 发表于 2016-11-28 20:28

不知道是用多条件求和比较好？还是用VBA?

		自动登录	找回密码
密码			注册

[已解决]12个数随机抽取6个数进行求和，如何穷尽？

N行 共12列，如何对12列选出6列进行组合后求和（穷举的）

N行共12列，如何对12列选出6列进行组合后求和（穷举的）