我想在我的模型中生成随机数。每次运行宏时,我的单元格范围“G8:H34”都必须填充不同的随机数,这些随机数应为 0 到 2 之间的整数。
我必须在 VBA 中生成这些数字,因为我需要使用它们来优化模型以获得最低成本,然后使用循环来找到使成本最低的最佳组合。
答案1
你不需要 VBA 来实现这一点。只需使用RANDARRAY([rows], [columns], [min], [max], [whole_number])
在 G8 中把这个
=RANDARRAY(27, 2, 0, 2, TRUE)
并且将自动在 G8:H34 范围内填充随机数
答案2
考虑:
Sub qwerty()
Dim r As Range
Set r = Range("G8:H34")
With r
.Formula = "=randbetween(0,2)"
.Copy
.PasteSpecial (xlPasteValues)
End With
End Sub