EXCEL生成随机数不变的方法

本资料包含doc文件1个，下载需要5积分

EXCEL生成随机数不变的方法，填表非常方便，绝对可用，本人收藏整理改进后的 版本。

1、选择单元格：AltF8-输入名称-创建：复制代码全部替换
在运行AltF8-选项-设置快捷键-选中空白表格运行快捷键，就可以生成随机数据了。每次修改VBA数据都会发生变化，唯-缺点。

1-1：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

小说明：1、0表示显示小数位数，生成100整数。

1-2：Sub GetRand 产生100以内的整数
Dim ag As Range
For Each ag In Selection
dt -30 Int(100 Rnd)
If ag.Value "" Then ag.Value dt
Next
End Sub

小说明：Int(生成-3070以内的整数。

1-3：Sub GetRand 产生100以内的整数
Dim ag As Range
For Each ag In Selection
dt Round(-30 100 Rnd， 2)
If ag.Value "" Then ag.Value dt
Next
End Sub

小说明：Int(生成-3070以内保留两位小数。