使用Excel如何生成随机数字给室友

使用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被广泛应用于管理、统计财经、金融等众多领域。

以上是使用Excel如何生成随机数字给室友的详细内容。更多信息请关注PHP中文网其他相关文章！