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

sailorgo

自己再顶一下，谢谢各位！

香川群子

sailorgo 发表于 2016-11-28 14:52
各位大咖：
      有N行数据，共12列，对这12列数据选出6列进行组合，对各组合进行求和
       例如：

最大有多少行？
如果有几千几万、甚至几十万行，那么计算和输出都是很大的负担。

如果小于250行，可以把行列转置，取1-12行中的6行进行组合求和，结果输出在下面的924行中。

香川群子

按列输出的代码:

1. Dim sj, jg(), k&, l&, m&, n&
   
2. Sub Combin_1()
   
3.     tms = Timer
   
4.     sj = [a1].CurrentRegion: l = UBound(sj)
   
5.     m = 12: n = 6: k = WorksheetFunction.Combin(m, n)
   
6.     ReDim jg(1 To l, k)
   
7.    
   
8.     k = 0: Call dgZH(0, 1)
   
9.     MsgBox Format(Timer - tms, "0.000s")
   
10.     [o1].CurrentRegion = "": [o1].Resize(l, k) = jg
    
11. End Sub
    
12. Sub dgZH(j1&, t&)
    
13.     Dim i&, j&
    
14.     For j = j1 + 1 To 6 + t 'm - n + t
    
15.         For i = 1 To l
    
16.             jg(i, k) = jg(i, k) + sj(i, j)
    
17.         Next
    
18.         If t < n Then
    
19.             Call dgZH(j, t + 1)
    
20.         Else
    
21.             k = k + 1
    
22.             For i = 1 To l
    
23.                 jg(i, k) = jg(i, k - 1)
    
24.             Next
    
25.         End If
    
26.         For i = 1 To l
    
27.             jg(i, k) = jg(i, k) - sj(i, j)
    
28.         Next
    
29.     Next
    
30. End Sub

复制代码

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

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

sailorgo

香川群子 发表于 2016-11-29 09:58
按列输出的代码:

谢谢香川老师!