复制下来，以数值格式选择性粘贴，替换掉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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024