使用RandBetween填充一系列单元格

Question

我想使用RandBetween函数在单元格A1：C6中生成一系列随机数。

当我尝试这段代码时

Range("A1:C6") = WorksheetFunction.RandBetween(10, 1000)

每个单元格都填充相同的数字。

我错过了什么？

Answer 1

试试这个：

With Range("A1:C6")
    .Formula = "=RANDBETWEEN(10,1000)"
    .Calculate
    .Value = .Value
End With

其中.Value = .Value部分用其值重写公式。

Answer 2

每个单元格都获得相同的值，因为您只调用一次随机函数。您需要为每个单元调用一次Random函数，如下所示：

For Each c In Worksheets("Tabelle1").Range("A1:D6").Cells
    c.Value = (Round((Rnd() * 990) + 10))
Next