万望大神相助（随机数问题）

kratos713

如图，要在B列产生随机数，要求随机数合计正好是2000，或者其他指定的数值，可以保留小数点后1位或者不保留都行。
Excel 2019
万望大神相助，小弟涕零遥拜！

cutecpu

B2 公式: =IF(ROW()=COUNTA(A:A),F$1-SUM(B$1:B1),RANDBETWEEN(MAX(B$1:B1),INT((F$1-SUM(B$1:B1))/(COUNTA(A:A)-ROW()+1))))

kratos713

cutecpu 发表于 2020-5-17 14:42
B2 公式: =IF(ROW()=COUNTA(A:A),F$1-SUM(B$1:B1),RANDBETWEEN(MAX(B$1:B1),INT((F$1-SUM(B$1:B1))/(COUNTA ...

首先感谢大神百忙之中回复，如果能让随机出现的结果不是那么的接近就更加完美了，拜谢了！

冠字风华瞳

香川老师的代码可以参考下  
f(2000, 10, 500, 15, -1)

1. Sub test() '测试代码 在立即窗口中打印结果
   
2.     For i = 1 To 20
   
3.         Debug.Print f(2000, 10, 500, 15, -1)
   
4.     Next
   
5. End Sub
   
6. 
   
7. '下面是自定义函数过程，可以直接在Excel工作表中引用
   
8. Function f(h, h1, h2, n, d, Optional k = 100)
   
9.     Application.Volatile '设置为易失性函数，可以按F9自动重算
   
10. 
    
11.     h = h * 10 ^ d: h1 = h1 * 10 ^ d: h2 = h2 * 10 ^ d '按设定小数位转为整数处理
    
12.     v& = Int(h / n): If v < h1 Or v > h2 Then f = "Average Err !": Exit Function
    
13.     '如果计算平均值不在设置范围内则报错停止
    
14.    
    
15.     ReDim a&(n - 1)
    
16.     For i = 1 To n - 1
    
17.         a(i) = v
    
18.     Next
    
19.     a(0) = h - v * (n - 1)
    
20.     '以上为数组a按平均值初始化
    
21. 
    
22.     '以下为随机t交换计算调整
    
23.     Randomize
    
24.     For i = 1 To k '重复k次 k可自行设置
    
25.         r1 = Int(Rnd * n) '随机定第1个数位置r1
    
26.         r2 = Int(Rnd * n) '随机定第2个数位置r2
    
27.         If Rnd < 0.5 Then  '随机选择r1减去t、r2加上t
    
28.             p = h2 - a(r2): q = a(r1) - h1: If p < q Then t = p Else t = q '求t最大可能值
    
29.             t = Int(Rnd * t) '在t可能区间内随机取值
    
30.             a(r1) = a(r1) - t: a(r2) = a(r2) + t 'r1减去t、r2加上t
    
31.         Else '或随机选择r1加上t、r2减去t
    
32.             p = h2 - a(r1): q = a(r2) - h1: If p < q Then t = p Else t = q '求t最大可能值
    
33.             t = Int(Rnd * t) '在t可能区间内随机取值
    
34.             a(r1) = a(r1) + t: a(r2) = a(r2) - t 'r1加上t、r2减去t
    
35.         End If
    
36.     Next
    
37.    
    
38.     '随机k次(默认k=100)次随机t交换计算后 输出结果
    
39.     For i = 0 To n - 1
    
40.         s = s & "+" & a(i) * 10 ^ -d
    
41.     Next
    
42.     f = h * 10 ^ -d & "=" & Mid(s, 2)
    
43. End Function
    

复制代码

http://club.excelhome.net/forum. ... 252&pid=8239845

excelvlookup

图上看，有15个数，先随机生成14个数，第15个数等于2000－前14个数之和

larer

随机数比凑数简单一点.

larer

代码与运行结果如图:

世界客都

选中B2:B16单元格，输入：

1. =MOD(SMALL(RANDBETWEEN(ROW(1:5)^0*{1,1,1},999)*1000+ABS(IF({1,1,0},201*{1,0}-RANDBETWEEN(ROW(1:5)^0,200),{0;0;0;0;995}-MMULT({1,0,0,0;0,1,0,0;0,0,1,0;0,0,0,1;1,1,1,1},RANDBETWEEN({1;1;1;1}*199,200)))),ROW(1:15)),500)

复制代码

按ctrl+shift+enter即可数值在1到200之间。如果你需要的是其它范围的数值，再告诉我即可

小花鹿

应该说明一下是否允许重复