vba随机分组的程序 随机分组小程序

用一个随机函数不就行啦?原始数据前加一个编号,随机函数得编号,使用vlookup索取对应的数据.

dim n as integer dim a() as integer private sub command1_click() dim i as integer,j as. n=inputbox(＂请输入个数＂) 'n的取值得看随机整数的范围 redim a(n) for i=1 to n a(i)=.

32人随机分成四组,每组8人然后再对每组8人随机进行编号,需要是1到8这样的话,建议楼主使用vba来实现吧

请把selection.typetext text:=＂25＂修改为randomizeselection.typetext int(rnd(now()) * 100) + 1加了randomize语句就可以解决问题了.

你的源数据有多少、在哪、想分几组?假设,源数据在a列:1、在b1输入=rand() 回车并向下填充.2、点b列任一格——工具栏——升序排序.3、这样就把a列随机打乱了,再根据你的需要,分段分组就行.如:a列100行,分随机4组.按以上公式打乱后,1~25行为一组、26~50行为二组、51~75行为三组、76~100行为四组.

dim team(7) as string,i%,iA%,iB%randomizefor i=0 to 7 if int(rnd*2)=0 and iA 评论0 0 0

先将每行数据读入,保存到一个动态数组中,然后从头至尾,比如arr(0)随机的与arr(rnd*930)进行交换,直至arr(930),这样arr就是乱序排列,然后再从头至尾从0读至930/2即得第一组数据,剩下的930/2+1至929即为后一组数据了.

大概说个思路吧1、高端点用数据字典dir来得到E列的数据,然后能得到去除重复应该有多少个instance;如果不会这个方法就用remove duplicate来去掉重复的得到实际上的instance数2、根据每个instance数来分别定义同一类的range范围,不要担心范围不连续的问题,一样的道理3、用random函数得到随机的抽取到的坐标行号,然后根据这个行号抽出这行的所有数据另外如果你sql没有问题的话用sql写也可以,根据各个结果集来做那个random也可以,方法多了去了,看你自己思路了

用VB编写一个比赛分组抽签程序,把八支队伍随机分成A,B两.一帆风顺年年好 万事如意步步高 吉星高照 百年天地回元气 一统山河际太平 国泰民安

1team(1) = ＂中国＂2team(2) = ＂美国＂3team(3) = ＂巴西＂ team(4) = ＂古巴＂ team. For i = 1 To 8 x = Int((9 - i) * Rnd + 1) '剩余随机选择 If i > 4 Then teamA(i - 4) = team(x) .