生成随机排序问题

集合

根据要求生成随机排序
随机.rar (10.51 KB, 下载次数: 12)

2021-10-20 11:16 上传

点击文件名下载附件
随机.rar

古伦帝

VBA，设置个数与列数后，单击运行。
注意，我设定了个数/列数必须为整数，不符合时会有提示
副本随机.zip (20.63 KB, 下载次数: 67)

2021-10-20 11:16 上传

点击文件名下载附件
副本随机.zip

雅口无言

厉害，实现了需要的效果，慢慢研究语句。谢谢！

鱼是乎

语句挺简单的，主体是遍历，缺点是数据量很大的话，会卡，你要求的这个量级的话，应该没问题

云屿

数据量足够我使用了，谢谢。

山木旅游一许鄢总部

F2 右拉 下拉 (由上往下){=IFERROR(IF((COLUMN(A1)>$B$2)+(ROW(A1)>ROUNDUP($B$1/$B$2,)),"",SMALL(IF((COUNTIF($F$1:$K1,ROW(INDIRECT("1:"&$B$1)))=0)*(COUNTIF($E2:E2,ROW(INDIRECT("1:"&$B$1)))=0),ROW(INDIRECT("1:"&$B$1))),RANDBETWEEN(1,$B$1+1-(ROW(A1)-1)*$B$2-COLUMN(A1)))),"")
M2 右拉 下拉 (由左往右){=IFERROR(IF((COLUMN(A1)>$B$2)+(ROW(A1)>ROUNDUP($B$1/$B$2,)),"",SMALL(IF((COUNTIF($L$2:L$16,ROW(INDIRECT("1:"&$B$1)))=0)*(COUNTIF(M$1:M1,ROW(INDIRECT("1:"&$B$1)))=0),ROW(INDIRECT("1:"&$B$1))),RANDBETWEEN(1,$B$1+1-ROW(A1)-(COLUMN(A1)-1)*ROUNDUP($B$1/$B$2,)))),"")
B4{=AND(COUNTIF(F:K,ROW(INDIRECT("1:"&$B$1)))=1)
B5{=AND(COUNTIF(M:R,ROW(INDIRECT("1:"&$B$1)))=1)