活动人员（名单）按条件（性别，部门等）随机分组

aipeng

各位大神，遇到一个工作问题。
三百人的活动（有时更多），需要随机分成30组——每组男女、部门、楼层按比例分配（如总300人中，男女比例4:6，则每组中男4人、女6人）。试了许多Excel功能（函数、模型，数据查询……）都搞不出来，想到了无所不能的VBA，哪位大神能帮忙呀？
万分感谢~

grf1973

组合条件的话的比较难弄。可以先按主条件分配后，再微调。比如先按男女64分配，再交换各组男，达到部门比例，再考虑楼层比例。。。。。。

也可以先性别、部门、楼层把名单分成很多小组，按比例在小组中抽取。

盼盼198310

grf1973 发表于 2023-4-24 13:56
组合条件的话的比较难弄。可以先按主条件分配后，再微调。比如先按男女64分配，再交换各组男，达到部门比例 ...

楼主的附件中男女比例根本不是4:6而是273:500左右

aipeng

盼盼198310 发表于 2023-4-24 14:09
楼主的附件中男女比例根本不是4:6而是273:500左右

4比6只是举例，便于大家理解。实际情况就如数据一样不一定的。。。

aipeng

grf1973 发表于 2023-4-24 13:56
组合条件的话的比较难弄。可以先按主条件分配后，再微调。比如先按男女64分配，再交换各组男，达到部门比例 ...

谢谢，我也是发现实在太难了。。。。本想着使用工作高效处理的。但是真没解决怎么感觉怎么是多个循环，所以想着是不是VBA可以搞定，其他方法我是实在想不出了。。。

aipeng

grf1973 发表于 2023-4-24 13:56
组合条件的话的比较难弄。可以先按主条件分配后，再微调。比如先按男女64分配，再交换各组男，达到部门比例 ...

那请问，如何按主条件按比例分配呢？我只会通过函数完成全部人员随机分。这不能保证比例
求指导

hcm19522

G2:P31{=INDEX($C:$C,RIGHT(SMALL(MATCH($B$2:$B$301,$B:$B,)*10^8+MATCH($D$2:$D$301,$D:$D,)*10^5+MATCH($E$2:$E$301,$E:$E,)*10^3+ROW($2:$301),ROW(A1)+COLUMN(A1)*30-30),3))

aipeng

hcm19522 发表于 2023-4-24 15:18
G2:P31{=INDEX($C:$C,RIGHT(SMALL(MATCH($B$2:$B$301,$B:$B,)*10^8+MATCH($D$2:$D$301,$D:$D,)*10^5+MATCH( ...

我在G2：P31区域中输入了数组公式{=INDEX($C:$C,RIGHT(SMALL(MATCH($B$2:$B$301,$B:$B,)*10^8+MATCH($D$2:$D$301,$D:$D,)*10^5+MATCH($E$2:$E$301,$E:$E,)*10^3+ROW($2:$301),ROW(A1)+COLUMN(A1)*30-30),3))}
可是只得到了一堆“陈1”。不知道是不是我弄错了？
试着理解公司，没太明白逻辑。求说明

hcm19522

aipeng 发表于 2023-4-24 15:54
我在G2：P31区域中输入了数组公式{=INDEX($C:$C,RIGHT(SMALL(MATCH($B$2:$B$301,$B:$B,)*10^8+MATCH($D$2 ...

F2:F301=RAND()

G2:P31{=INDEX($C:$C,RIGHT(SMALL(MATCH($B$2:$B$301,$B:$B,)*10^8+MATCH($D$2:$D$301,$D:$D,)*10^5+MATCH($E$2:$E$301,$E:$E,)*10^3+RANK($F$2:$F$301,$F:$F),ROW(A1)+COLUMN(A1)*30-30),3))

數組公式 :複製公式 不含 "=" ,貼上後加 "="   ;最前 "{" 代表 shift+ctrl+enter 三鍵一起按所產生 ,非程式裡面

ovxyz

代码没有仔细斟酌。理论上还能简化。
但运行是没有问题的了。
逻辑简单说下：
先把男和女分2个数组存起来。（没什么没用字典是因为需要用到综合变化的随机数取值，字典没有index）
然后根据男女比例的整数位，分别随机抓人组队。
最后把剩余的人丢到前面的组好的队伍中，（前面是按整数比例抓人的，每组会少一个人。）