В макросе происходит ошибка "VBA method range of object _global failed" при вставке чисел в нужный диапазон.
Ошибка в этой строке:
Range("28 суток!D" & y).Value = i
Почему происходит ошибка?
Sub uniqb25()
Const min = 33.01
Const max = 39.99
For y = 5 To 24
i = ((max - 2) - min + 1) * Rnd + (min + 1)
Range("28 суток!D" & y).Value = i
Next y
End Sub
Вы указываете адрес ячейки такой, какой не предусмотрен в экселе.
Если макросу надо работать с активным листом (это лист, который отображается на мониторе), то можно вообще не указывать лист:
Range("D" & y).Value = i
Большое спасибо!