求在1至36的数字中随机生成3000组总次数相等、组数不重、数字不重的vba程序

[pcaonib]

求在1至36的数字中随机生成3000组总次数相等、组数不重、数字不重的vba程序


1、在数字1到36共36个数字中随机取6个不同的数字组成一组，共随机生成3000组，生成的每一组6个数字中相邻2个数字之间空一格，其结果填在b5开始的b列；
2、要求在已生成的3000组数据中每个数字出现的总次数相等，如本题生成的3000组数组中，每个参与组合的数字出现的总次数是500次；
3、要求在已生成的3000组数据中，每组数据只能出现一次（也就是说6个相同的数据只能出现一次），例如：生成的3000组数据中有一组数是：1 9 18 23 28 36 ，那么1 9 18 23 28 36就只能出现1次，而下面的组合1 9 18 23 28 36出现了2次，那么这种组合就不符合要求。
3 4 6 21 28 33
1 9 18 23 28 36
8 16 18 20 26 36
5 7 15 19 27 30
2 9 11 12 22 31
1 9 18 23 28 36
10 14 24 25 32 35
。。。。。。

谢谢！

3000组*6个数/36个数=500次