可以通过迭代运算或者vba来实现。
迭代运算要选在选项-公式里启用迭代，迭代次数可设为最大的32767次。
选中A2，输入公式 =IF(SUM($A2:$AD2)<>$AE2,IF(ROUND(RAND(),),1,""),A2)
然后右拉至AD2，则可实现。
将该行公式下拉至第三、第四。。。即可实现下面行的运算。
但是此方法有1个缺陷，就是对于AE2中如果是特别小的或特别大的数字，迭代运算的过程会比较久，甚至有无法运算出正确结果的可能性。
思路是先在30个格子里设置随机数，然后判断大小顺序，最终取出符合个数的显示为1
见附件。
内容全部来源于网络收集，如有侵权，请联系网站删除！