求助：分组抽签

LIUZHU

micch 发表于 2024-6-12 21:14
还是不写通用的了，纯粹用字典随机去重练习一下吧

Sub Main()

应该有一个强制排除的办法，即某个省分的队伍被抽出来了，下一次的可选范围就没有那些省的

一指禅62

LIUZHU 发表于 2024-6-12 22:51
同一省分的队伍不在同一分组，这个没体现吧

LIUZHU

再思考了昨天的问题，从本帖他人的精彩回复中学到的知识，改成了通用代码，即不论按哪个键都是调用同一个代码。

LIUZHU

这次代码少多了

1. function 比赛抽签(){
   
2.         const game=Application.Caller().match(/\d+米/)[0];
   
3.         let sf=Range("k7").CurrentRegion.Value2.slice(1 ).reduce((sf,x,i,ar)=>{
   
4.                 if (x[2]==null) x[2]=ar[i-1][2];
   
5.                 return sf[x[1]]=x[2], sf;
   
6.         },{});
   
7.         let n=Math.ceil(Object.keys(sf).length/7)-1, res=[];
   
8.         for (let i=0;i<=n;i++){
   
9.                 let count=Math.min(7,Object.keys(sf).length);                        //剩余未分组的队员数量
   
10.                 for (let j=1;j<=count;j++){
    
11.                         let temp=res[j]=res[j] || Array(n+1).fill([]);
    
12.                         let dy=Object.entries(sf).filter(([a,b])=>!temp.some(([,s])=>s==b));                //排除同组队员省分
    
13.                         if (dy.length==0) dy=Object.entries(sf);
    
14.                         let k=Math.floor(Math.random()*dy.length);                //随机号码
    
15.                         temp[i]=[`${dy[k][0]}-${dy[k][1]}`,dy[k][1]];
    
16.                         delete sf[dy[k][0]];                                                        //删除已被抽中参赛队
    
17.                 }
    
18.         }
    
19.         res=res.flat();
    
20.         Cells.Find(game).Offset(1,0).Resize(res.length,1).Value2=res;
    
21. }

复制代码

LIUZHU

更新后的附件，同样是WPS打开测试

micch

LIUZHU 发表于 2024-6-13 00:23
对排除相同省分的办法，n在9999次以内，就一定会得到不同省分的吗？

9999是我个人习惯，用do循环的时候，写一个防止数据不合理陷入无限循环

实际上，如果数据没有冲突，用不了几次就会随机到可选的人员

leeson7502

按省排序，按每组人数间隔挑人

jx928867128

LIUZHU 发表于 2024-6-13 09:31
这次代码少多了

这个收下，备用