如题所述
1、打开工作表，在名称框输入A1:A100000
2、编辑栏输入 =int(rand()*900000+100000)
3、按ctrl+enter
需要提取的话，马上ctrl+c就可以在其它软件中粘贴了
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-07-22
可以,按下面的步骤来:
1,点击A列列标"A",输入1,按ctrl+enter
2,B1输入公式 =int(100000+rand()*900000) ,然后双击B1右下角的实心小黑点
3,右键点击B列列标"B","复制"
4,右键点击C列列标"C","粘贴"
完成追问
1,点击A列列标"A",输入1,按ctrl+enter
2,B1输入公式 =int(100000+rand()*900000) ,然后双击B1右下角的实心小黑点
3,右键点击B列列标"B","复制"
4,右键点击C列列标"C","粘贴"
完成追问
好像不止10万个啦
追答一定要刚刚好10万个吗？那就把第二步的公式修改为:
=IF((COLUMN(A1)-1)*65536+ROW()<=100000,INT(100000+RAND()*899999),"")
第2个回答 2011-07-22
使用visual basic 建立一个按钮控件 输入以下代码 就会随机出现10万个随机6位数
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 100
For j = 1 To 1000
Cells(i, j).Value = "=int(rand()*1000000)"
Next j
Next i
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 100
For j = 1 To 1000
Cells(i, j).Value = "=int(rand()*1000000)"
Next j
Next i
End Sub
第3个回答 2011-07-22
keyima
