Excel 使用RandBetween填充一系列单元格

我想使用

randbween

函数在单元格A1:C6中生成一系列随机数

当我尝试这个代码时

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

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

---

我遗漏了什么？

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

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

试试这个：

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

---

其中

.Value=.Value

零件用它们的值重写公式。

这一点。就是这样。西莫科，你最近着火了。：）