范围的随机值

我有以下代码：

Low = 10 High = 25 R = Int((High - Low + 1) * Rnd() + Low) Sheets("ITEMS DATA").Range("D4:D39").Value = R 

我想要范围规定返回一个随机数，但它返回整个范围相同的随机数（D4：D39）。 我想返回一个不同的随机数的范围，但不知道如何。

Answer 1

@麦克风：

尝试这个：

 Low = 10 High = 25 For c = 4 To 39 R = Int((High - Low + 1) * Rnd() + Low) Sheets("ITEMS DATA").Cells(c, 4).Value = R Next 

当然，您可以根据自己的喜好更改Cells（）方法中的两个参数。

Answer 2

您创build了一个随机值，将其分配给R，然后将该值放入您的范围。 有几种方法可以做你想做的事情。 我假设有一个很好的理由不直接粘贴公式到单元格，所以：

  Range("B1:B21").Formula = "=Int((A1 - A2)+1) * Rand() + A2" 

会做，假设A1和A2分别持有高和低。

编辑删除错误的答案，这一个已经过testing。