EXCEL 随机数如何限定范围，并让其总和等于一个定值？

• 请不要在回答技术问题时复制粘贴 AI 生成的内容

This topic created in 4264 days ago, the information mentioned may be changed or developed.

需要10个随机数，总和为100，每个数在90和110的范围内

目前使用
Sub a()
Range("b2:b11") = ""
For i = 2 To 10
Do Until WorksheetFunction.CountIf(Range("b:b"), Range("b" & i)) = 1 _
And [b1] - WorksheetFunction.Sum(Range("b2:b" & i)) >= [E2] * (11 - i) _
And [b1] - WorksheetFunction.Sum(Range("b2:b" & i)) <= [E3] * (11 - i)
Range("b" & i) = Int(Rnd() * ([E3] - [E2])) + [E2]
Loop
Next i
[b11] = [b1] - WorksheetFunction.Sum(Range("b2:b10"))
End Sub

但运行非常容易就导致excel 无法响应，求助

随机数

range

SUB

4 replies • 2014-09-17 12:16:08 +08:00