Случайные значения для диапазона

Question

У меня есть следующий код:

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

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

Я бы хотел, чтобы указанный диапазон возвращал случайное число, но он возвращает одно и то же случайное число для всего диапазона (D4: D39).Я хотел бы вернуть другое случайное число для указанного диапазона, но не знаю как.

Answer 1

@ Mike:

Попробуйте это:

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

Вы создали одно случайное значение, присвоили его R, а затем поместили это значение в свой диапазон.Есть несколько способов сделать то, что вы хотите.Я предполагаю, что есть веская причина не просто вставлять формулу непосредственно в ячейки, поэтому:

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

сделает это, предполагая, что А1 и А2 удерживают High и Low соответственно.

Отредактировано для удаления неправильных ответов, и этот был проверен.