以下公式解法只限:
笔数正确
总和正确
不重复
(不处理上下限)
A1 输入个数:16
A2 输入总和:365
A4 输入检查用公式
=IF(AND(SUMPRODUCT(1/COUNTIF(OFFSET(B1,,,A1,),OFFSET(B1,,,A1,)))=A1,SUM(B:B)=A2),"不重复,总和正确","X")
B1
=IF(ROW()>A$1,"",1+ROUND(IF(ROW()>A$1,"",SMALL(D:D,ROW())/SUM(D:D)*(A$2-A$1)),))
下拉至B30
D1
=IF(ROW()>A$1,"",RAND())
下拉至D30
输入完成后,可随时更改A1,A2。
多次按 F9 (模拟搅珠),直至A4出现 "不重复,总和正确" 为止。
