VBA 随机数

Question

我正在尝试在给定范围内的随机概率的正态分布内创建随机数。我的代码如下：

Range(Cells(2, 1), Cells(RandomNumbers + 1, 1)) = WorksheetFunction.Norm_S_Inv(Rnd)

RandomNumbers 只是另一个单元格中的一个值。问题是如果RandomNumbers 等于10，那么VBA 在所有10 个单元格中填充相同的随机数。如何使每个单元格中的每个数字都不同？

Answer 1

让它成为一个循环：

Dim cell as Range
For Each cell In Range(Cells(2, 1), Cells(RandomNumbers + 1, 1))
    cell.Value = WorksheetFunction.Norm_S_Inv(Rnd)
Next