范围内的随机值

如何解决范围内的随机值

| 我有以下代码：

Low = 10
High = 25
R = Int((High - Low + 1) * Rnd() + Low)

Sheets(\"ITEMS DATA\").Range(\"D4:D39\").Value = R

我希望声明的范围返回一个随机数，但是它会为整个范围（D4：D39）返回相同的随机数。我想为指定的范围返回一个不同的随机数，但不知道如何。     

解决方法

@麦克风： 尝试这个：

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（）方法中的两个参数。     ,您已经创建了一个随机值，将其分配给R，然后将该值放入您的范围内。您可以通过几种方法来完成自己想做的事情。我假设有充分的理由不直接将公式粘贴到单元格中，因此：

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

假设A1和A2分别保持高电平和低电平，便可以做到这一点。 编辑以删除错误的答案，并且此答案已经过测试。