excel随机数怎么生成，excel中生成随机数的五种方法-嗨游网

3/ 在弹出窗口的左侧窗格中，单击加载项

excel随机数怎么生成，excel中生成随机数的五种方法

4/ 勾选分析工具库，单击确定

excel随机数怎么生成，excel中生成随机数的五种方法

5/ Excel 功能区的“数据”选项卡上，现在有一个名为“分析”的组，就可以看到到“数据分析”的选项

excel随机数怎么生成，excel中生成随机数的五种方法

使用分析工具包生成随机数:

excel随机数怎么生成，excel中生成随机数的五种方法

可以在其中输入参数以生成随机数

变量数:这是输出表中所需的随机数列数。如果留空，则所有列都将填充在您指定的输出范围内
随机数:这是要生成的随机数的行数。如果留空，指定的输出范围将被填充
分布:可以从下拉列表中选择多种分布方法，例如均匀分布或正态分布。根据在此处的选择，参数部分将提供不同的选项
参数:输入值以表征选定的分布
随机种子:这是可选的，将是算法产生随机数的起点。如果再次使用相同的种子，它将产生相同的随机数。如果留空，它将从计时器事件中获取种子值
输出区域:输入要在电子表格中构建表格的位置的左上角单元格。如果您将变量参数留空，则需要指定整个区域。请注意，该区域内的现有数据将被覆盖
新建工作表：此选项将在工作簿中插入一个新工作表并将结果粘贴到单元格 A1单元格，在相邻的框中输入工作表名称，否则将使用默认名称
新建工作簿：这将创建一个新工作簿并将结果粘贴到第一张工作表的单元格 A1 单元格中

5/ 用 VBA 生成随机数

VBA（Visual Basic for Applications）是位于 Excel 前端的编程语言，也可用于生成随机数。但是，它比简单地在 Excel 中的单元格中输入公式要复杂，而且需要一些编程知识才能使用它

要打开 VBA 编辑器，请使用Alt + F11键盘快捷键

在窗口（项目资源管理器）的左侧窗格中，将看到打开的工作簿（包括加载项）和可用的工作表

在窗口顶部的菜单上，单击“插入”，然后单击“模块”。这将向当前电子表格添加一个模块窗口。将以下代码粘贴或添加到模块中

Sub RandomNumber() MsgBox Rnd() End Sub

按F5运行它，Excel 中将出现一条消息弹出窗口，并显示一个随机数。点击确定，您将返回代码窗口。

再次运行代码，将显示不同的随机数。随机数将介于 0 和 1 之间，但不包括 0 或 1 的值。

还可以为Rnd函数提供一个参数，该参数是用于生成随机数的算法起点的种子。如果种子值设置为负数或零，则每次将显示相同的随机数。

例如，如果您想生成 3 到 10 之间的完整随机数，则可以使用以下代码。此代码将随机数乘以 7，然后将其加 3，然后四舍五入到小数点零位。假设您想在单元格中显示您的随机数。您可以使用以下代码执行此操作

Sub RandomNumberSheet()
Dim M As Integer
For M = 1 To 5
    ActiveSheet.Cells(M, 1) = Round((Rnd(10) * 7) + 3, 0)
Next M
End Sub

还有一个名为Randomize的 VBA 函数。可以在Rnd函数之前使用它来将种子值重置为计时器事件或任何给定的参数

Sub RandomNumberV2() Randomize (10) MsgBox Round((Rnd() * 7) + 3) End Sub

6/ 生成不重复的随机数

可能会遇到这样一种情况：想生成一系列随机数，但又不想看到任何重复值出现。

可能希望从 1 到 10 的数字之间选择 3 个随机数，但其中 3 个所选数字中的每一个都是唯一的。

有几种可能的解决方案：

RANK.EQ 和 COUNTIF 函数的解决方案：

先使用RANDBETWEEN创建随机数，然后使用下一列中的公式对它们进行排名，从而从 1 到 10 的随机排序序列

= RANDBETWEEN ( 1, 10 )

然后，可以使用RANK.EQ函数对它们进行排名，以创建一个从 1 到 10 的序列，该序列是随机排序的

= RANK.EQ ( B2, $B$2:$B$11 ) + COUNTIF ( $B$2:B2, B2 ) - 1

注意，公式使用了绝对引用（$符号），以便在向下复制公式时公式引用保持固定

用 VBA 解决：

还可以使用 VBA 生成一串从 1 到 10 的无重复随机数

Sub RandomNumberNoDuplicates()
Dim M As Integer, Temp As String, RandN As Integer
For M = 1 To 5
Repeat:
    RandN = Round((Rnd(10) * 9) + 1, 0)
    If InStr(Temp, RandN) Then GoTo Repeat
    ActiveSheet.Cells(M, 1) = RandN
    Temp = Temp & RandN & "|"
Next M
End Sub

代码迭代从 1 到 5 的值，每次生成 1 到 10 之间的随机数。

它测试随机数以检查它是否已经生成。这是通过将成功的数字连接成一个字符串然后搜索该字符串以查看该数字是否已被使用来完成的。

如果已找到，则它使用标签重复返回并重新生成一个新号码。再次测试它尚未使用。如果是新号码，则将其添加到工作表中