如何将1-49个数随机分组

yishang3

香川群子 发表于 2014-7-14 15:12
3楼代码的算法，本质上就是【数组洗牌法】了。代码挺不错的。

好代码，学习！
当存在余数时，能否做到尽可能平均，即各小组的差异数字最小！
想了很久都没做出来，还请老师帮忙呀！

ycz22

兄弟你想买陆： 彩

chenbiao2012

1. Sub test()
   
2.     Dim brr(1 To 7, 1 To 8)
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Do
   
5.        ran = Application.RandBetween(1, 49)
   
6.         d(ran) = ""
   
7.     Loop Until d.Count = 49
   
8.     k = d.keys
   
9.     m = 1
   
10.     For i = 0 To UBound(k)
    
11.         n = n + 1
    
12.         brr(n, m) = k(i)
    
13.         If i <> 47 Then
    
14.             If n = 6 Then n = 0: m = m + 1
    
15.         End If
    
16.     Next
    
17.     [a1].Resize(7, 8) = brr
    
18. End Sub
    

复制代码

s8th

各位大神， 如果在这个 随机 分组里增加一点难度，不知道该怎么做：

就是 每次分组 每个数字 不能在同一行，必须换行， 比如 第一次分组是   4 ， 10，   6， 29，  40， 16， 第二次分组的时候  4就不能在第一行， 10也不能再第二行 等等。。。