求Excel随机数公式

1、随机函数的公式为：RAND()，如果需要规定返衫悔生成的数据后面的小数位数，可以输入公式：=ROUND(RAND(),1)。

2、点击回车，即可看到生成的数据是保留了小数点后1位。

3、如果需要生成数值在1~3之间的保留1位小数的随机数字，可以使用公式：=ROUND(RAND()*(3-1)+1,1)。

4、点击回塌芦车即可生成在1~3之间的保留1位小数的随机数字。漏正

随机数公式是rand函数是Excel中产生随机数的一个随机函数。

1、rand()函数是Excel中产生随机数的一个随机函数返回的随机数是大于等于 0 及小于 1 的均匀分布随机实数，rand()函数每次计算工作表时都将返回一个新的随机实数。

2、rand()函数是产生随机数的一个随机函数C语言里还有 srand()函数等详述rand使用该函数首先腔搭应在开头包含头文件stdlib.h。

3、因为rand()函数是按指定的顺序来产生整数，因此每次执行上面的语句都打印相同的两个值，所以说C语言的随机并不是真正意义上的随机，有时候也叫伪随机数。

4、在标准的C库中函数rand()可以生成0~RAND_MAX之间的一个随机数，其中RAND_MAX 是stdlib.h 中定义的一个整数，它与系统有关。

5、为了使程序在每次执行时都能生成一个新序列的随机值，我们通常通盯州过为随机数生成器提供一粒新的随机种子。函数 srand()(来自stdlib.h)可以为随机数生成器播散种子。

6、伍则拿只要种子不同rand()函数就会产生不同的随机数序列srand()称为随机数生成器的初始化器。

经常看到有朋友需要生成不重复的随机数，经过一晚上奋战，终于搞出来了，分享一下，请大家斧正。

更改d1到d3单元格可以修改相关参数

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 <range("d3").Value) Then '如果最大值和返镇最小值的差小于d3单元格的数值就什么也不做

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

---