如何室友excel随机生成数字 145切不重复本人不太会excel需学
sub creaternd()
Dim arr() As Integer '定义数组
ReDim arr(range(＂d3＂).Value） '更改数组大小
Dim min As Integer '定义随机数的最小值
Dim max As Integer '定义随机数的最大值
Dim flag As Boolean '定义标志变量，用来判断是否有重复值
max = range(＂d2＂).Value '将d2单元格的数值赋值给最大值
min = range(＂d1＂).Value '将d1单元格的数值赋值给最小值
If (max - min + 1
Exit Sub
End If
Randomize (Now（)） '用当前时间生成随机数种子
For i = 0 To range(＂d3＂).Value '循环生成随机数
Do
arr(i) = Rnd() * (max - min) + min '生成随机数
flag = False
For j = 0 To (i - 1) '循环判断当前的随机数是否和前面生成的随机数相同，如果相同就重新生成
If (arr(i) = arr(j)) Then
flag = True
End If
Next
Loop While flag
Next
Columns(＂A:A＂).ClearContents
range(＂a1＂).Resize(range(＂d3＂).Value) = Application.Transpose(arr) '输出结果
End Sub
如何使excel产生一个范围内的随机数
1.首先计算这个范围的差值。这里假设范围值为50~100之内的随机数
2.打开电子表格，在所需要产随机数的单元格内输入如下公式：=rand()*(100-50)+50。按确认键就可以生成在规定范围内的随机数了！
3.如果你需要生成多个随机数，那拖动单元格最下角小三角就可以啦！
Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh操作系统的电脑而编写和运行的一款试算表软件，最早版本是在1985年开发的。
Microsoft Excel可以进行各种数据的处理、统计分析和辅助决策操作等，具有打开或关闭表格标题行、计算列使用单个公式调整每一行、数据排序和筛选、自定义公式和文本输入等功能。目前，Microsoft Excel被广泛应用于管理、统计财经、金融等众多领域。
