Excel怎么随机填充两个数

在Excel中随机填充两个数的方法有很多，包括使用RAND函数、RANDBETWEEN函数以及VBA编程等方法。使用RAND函数和RANDBETWEEN函数是最简单和常用的方法。下面我们将详细探讨这些方法的具体操作步骤和适用场景。

一、RAND函数与IF函数结合使用

RAND函数可以生成0到1之间的随机数，结合IF函数可以实现随机填充两个数。

基本操作

首先，在一个单元格中输入以下公式：
```
=IF(RAND() < 0.5, 数字1, 数字2)
```
例如，如果你希望在A1单元格中随机填充数字3和7，可以输入：
```
=IF(RAND() < 0.5, 3, 7)
```
公式解释：RAND()生成一个0到1之间的随机数，如果这个随机数小于0.5，则返回数字1，否则返回数字2。
拖动填充

输入公式后，可以通过拖动单元格右下角的小方块（填充柄）将公式应用到其他单元格。

二、RANDBETWEEN函数与IF函数结合使用

RANDBETWEEN函数可以生成指定范围内的随机整数，结合IF函数可以实现更复杂的随机填充。

基本操作

在一个单元格中输入以下公式：
```
=IF(RANDBETWEEN(0, 1) = 0, 数字1, 数字2)
```
例如，如果你希望在B1单元格中随机填充数字5和10，可以输入：
```
=IF(RANDBETWEEN(0, 1) = 0, 5, 10)
```
公式解释：RANDBETWEEN(0, 1)生成一个0或1的随机整数，如果这个整数等于0，则返回数字1，否则返回数字2。
拖动填充

同样，输入公式后，可以通过拖动单元格右下角的小方块将公式应用到其他单元格。

三、使用VBA编程

如果你需要更复杂的随机填充，或者希望自动化处理大量数据，VBA编程是一个很好的选择。

打开VBA编辑器

按下Alt + F11打开VBA编辑器。
插入新模块

在VBA编辑器中，点击Insert -> Module，插入一个新模块。

输入代码

在新模块中输入以下代码：

Sub RandomFill() Dim rng As Range Dim cell As Range Set rng = Selection For Each cell In rng If Rnd < 0.5 Then cell.Value = 数字1 Else cell.Value = 数字2 End If Next cell End Sub

例如，如果你希望随机填充数字2和8，可以将数字1和数字2替换为2和8：

Sub RandomFill()
    Dim rng As Range
    Dim cell As Range
    Set rng = Selection
    For Each cell In rng
        If Rnd < 0.5 Then
            cell.Value = 2
        Else
            cell.Value = 8
        End If
    Next cell
End Sub

运行代码

关闭VBA编辑器，返回Excel。在要随机填充的单元格区域内选择单元格，然后按下Alt + F8，选择RandomFill宏并点击Run。

四、使用POWER QUERY

对于更复杂的数据处理和随机填充，Power Query是一个很强大的工具。

打开Power Query

在Excel中，点击Data选项卡，然后点击Get Data -> Launch Power Query Editor。
添加自定义列

在Power Query编辑器中，点击Add Column -> Custom Column。

输入公式

在自定义列对话框中，输入以下公式：

if Number.RoundDown(Number.RandomBetween(0, 1)) = 0 then 数字1 else 数字2

例如，如果你希望随机填充数字6和9，可以输入：

if Number.RoundDown(Number.RandomBetween(0, 1)) = 0 then 6 else 9

应用并加载

点击OK，然后点击Close & Load将数据加载回Excel。

五、总结

在Excel中随机填充两个数的方法多种多样，最简单的方法是使用RAND函数和RANDBETWEEN函数，而对于更复杂的需求，可以使用VBA编程或Power Query。具体选择哪种方法取决于你的需求和操作习惯。通过这些方法，你可以轻松实现随机填充，提高工作效率。