复制下来,以数值格式选择性粘贴,替换掉RAND函数
复制出来的数据,选择性粘贴,数值
选中需要产生随机数的单元格区域(如果有数据按 Delete 键删除),按 Alt + F8 执行下面的宏就获得随机数,保存后打开也不会变。要重新生成随机数,再重做一次可以了。
宏代码:
Sub GetRand() '产生100以内的整数
Dim ag As Range
For Each ag In Selection
dt = Round(100 * Rnd(), 0)
If ag.Value = "" Then ag.Value = dt
Next
End Sub