VBA插入模块,贴上下面的自定义函数,在A2写入公式=mrnd(),即出现范围内的值
Function mrnd()
Dim base, zz
base = [a1]
Randomize (zz)
zz = Rnd * 2 + 0.5
mrnd = base + zz
End Function