[已解决]33个数中生成不 重复6个数

张雄友

xdragon 发表于 2014-10-7 02:24

只在一个表生成可以吗？如达到EXCEL 最大行数 rows.count 时，隔一空列再输出，可以吗？

xdragon

1. Sub array_to_range()
   
2.     Static colcnt%
   
3.     If colcnt = 0 Then Cells.Clear
   
4.     Range("A1").Offset(0, colcnt * (chs + 1)).Resize(cnt, chs) = rnd_array
   
5.     colcnt = colcnt + 1
   
6.     cbn = cbn - irow
   
7.     If cbn > 0 Then
   
8.        ReDim rnd_array(1 To IIf(cbn > irow, irow, cbn), 1 To UBound(rnd_array, 2))
   
9.     Else
   
10.        colcnt = 0
    
11.        Erase rnd_array
    
12.     End If
    
13.     cnt = 0
    
14. End Sub

复制代码

只需更改最后一个模块

张雄友

xdragon 发表于 2014-10-8 21:09
只需更改最后一个模块

怎么不能实现组合个数的统计？？

Sub 组合()
    TT = Timer: Cells.Clear
   ttl = 36: chs = 4
   cbn = Application.WorksheetFunction.Combin(ttl, chs)
   irow = Rows.Count
   If cbn > irow Then ReDim rnd_array&(1 To irow, 1 To chs) Else ReDim rnd_array&(1 To cbn, 1 To chs)
   ReDim t_array&(1 To chs)
   Call dgzh(1, 0)
   MsgBox "用时" & Format(Timer - TT, "0.00") & "秒" & cbn
End Sub

张雄友

明白了。

张雄友

张雄友 发表于 2014-10-9 19:26
怎么不能实现组合个数的统计？？

Sub 组合()

在组合个数很大时，加多二句
Application.ScreenUpdating = False
Application.ScreenUpdating = True


都不能提速了。

只是活着而已

啊啊啊啊啊 啊啊啊

mmc998

xdragon 发表于 2014-10-5 23:39
最终结果在re这个数组里，由于33选6有110多w组合，一次性无法导出到单元格。如果需要请回复哈

需要

吶呐呀

xdragon 发表于 2014-10-5 23:39
最终结果在re这个数组里，由于33选6有110多w组合，一次性无法导出到单元格。如果需要请回复哈

需要，怎么联系你？