EXCL 中限定范围的随机数之和为固定值

EXCL 中限定范围的随机数之和为固定值

Public Function RandC(R_Count As Long, sum_i As Long) As String
'R_Count为随机数个数
'sum_i为限定的随机数和
Dim n1 As Long
Dim Rt As String
Dim i As Long
Dim Rt_sum As Long
For i = 1 To R_Count - 1
Randomize
n1 = Int(Rnd() * sum_i) + 1
If Rt_sum + n1 <= sum_i Then
Rt = Rt & n1 & ";"
Rt_sum = Rt_sum + n1
Else
Rt = Rt & "0;"
End If
Next i

Rt = Rt & (sum_i - Rt_sum)
RandC = Rt
'返回用分号隔开的字符串
End Function

你好！ 比如，我想得到五个随机数据，限定他们的和为100，用Excel怎么实现。 4工具/数据分析/随机数发生器，在对话框中，变量个数，1，表示产生一列数据 打字不易，采纳哦！