问题:简单粗暴方式:用VBA循环;
有算法的VBA。
用EXCEL公式。
这里分享第三个思路, 用EXCEL公式来解决。
EH灰袍法师提供了很巧妙的思路: 10个1-20的数, 要加起来等于100,那么就是100个小球,随机放到200个小洞里(每个小洞有1个或者0个球)。
洞1-洞20的球总和,也就是第一个随机数。洞21-40的球总和,也就是第2个随机数。。。
那么怎么知道某个洞是1还是0呢,那就用Rand()函数产生一个随机数,如果某个洞的随机数排在100前,那么就可以令其等于1.
利用这个思路, 我们进行EXCEL建模求解。由于有一位小数点,所以我们要先进行乘以10的操作。总小球有1000个。
由于每个区间都有起始值,所以要预分配一些球,这个预分配的值是:(1+16+20+16+9+8+4)=740.
所以我们只有1000-740=260个球可以随机分配。
洞的数量有多少呢? 洞的数量就是每个区间的上限减去下限的总和。也就是(5-1 + 24-20 + 21-16 + 19-9 + 11-8 + 8-4)*10 = 380
也就是,把260个球,随机分配到380个洞里面。
建模界面如图:
=RAND() 建立每个小洞的随机数
=IF(RANK(B2,B$2:B$381)<=260,1,0) 如果随机数的排序小于等于260, 则小球进洞(1)
=SUM(OFFSET(C$2,N(F6),0,F7,1)) 统计区间小球数量(SUM+OFFSET的组合公式)
=SUM(OFFSET(C$2,SUM(F7:F$7),0,F8,1)) 统计区间小球数量(SUM+OFFSET的组合公式)
=G7+I7 得出实际数