关于Excel随机数问题。急。追加奖励100

来源：百度知道 编辑：UC知道 时间：2024/05/29 00:34:01
关于Excel随机数问题。急。

1。我想生成一列8000到12000的随机整数，公式怎么写？

2。生成以后，怎么去掉痕迹，点上去不会出现公式，就象手工打上去的一样，怎么弄？

1、使用公式 =RANDBETWEEN(8000,12000),然后填充。。。

2、选中已经生成随机数的那一列，复制，然后按右键，选择“选择性粘贴”，选择“数值”，然后公式就没有了

ALT+F11,插入模块,粘贴下列代码,F5运行或设定快捷键运行
Sub Macro1()
X = ActiveCell.Row
Y = ActiveCell.Column '从当前选定的单元格开始,X为行号，Y为列号
Do While Cells(X, Y) = "" '开始单元格=空则进入循环
LINE1: R = Rnd * 12000
If R < 8000 Or R > 12000 Then
GoTo LINE1
End If
Cells(X, Y) = Int(R)
X = X + 1
If X > 20 Then '如果行数>20就停止,行数自己修改下
Exit Sub
End If
Loop
End Sub
代码也可以写成在选定的区域内生成随机数,那就不需要设定行数了,但是这个你能看懂,也符合你的要求,最好在代码窗口给VBA工程设定密码,别人就看不到代码了。

=INT(RAND()*(12000.0001-8000))+8000
公式向下复制
生成后,复制生成的随机数,然后右击-选择性粘贴-数值