使用RandBetween填充單元格範圍

Question

我想使用RandBetween函數在單元格A1：C6中生成一系列隨機數字。

當我嘗試這個代碼

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

每個細胞充滿了相同的編號。

我錯過了什麼？

Answer 1

每個單元格都會得到相同的值，因爲您只是一次調用隨機函數。您需要調用一次隨機函數的每一個細胞，就像這樣：

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

Answer 2

試試這個：

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

其中.Value = .Value部分重寫公式與他們的價值觀。