此方法将指导您应用几个Excel函数来生成彩票号码。 您可以执行以下操作：

1。 在空白工作表中，在范围A1：C1中键入列标题，如下图所示：

2。 在A列，B列和C列中输入公式：

（1）在单元格A2中，输入公式 = RAND（），然后将“填充”手柄拖动到范围A2：A50。
（2）在单元格B2中，输入公式 =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1，然后将“填充手柄”拖动到范围B2：B50。 （在公式中，A2是当前单元格剩余的随机数，$ A $ 2：$ A $ 50都是我们在第一个公式中获得的所有随机数，B $ 1是B列中的第一个单元格，B1是当前单元格上方的单元格细胞）。
（3）在范围C2：C50中，输入1到49之间的序列号。

然后，您将获得一个表格，如左图所示：

 

公式太难记了吗？ 将公式另存为自动文本条目，以供日后再次使用！ 阅读全文...     免费试用

3。 找到一个空白范围，在下面的屏幕截图中，连续水平输入序列号：

4。 在第一个序列号1下方，输入公式 = VLOOKUP（G1，$ B $ 1：$ C $ 50,2，FALSE） 放入其中，然后将“填充手柄”拖动到所需的范围。

备注：在此公式中，G1是第一个序列号为1的单元格，$ B $ 1：$ C $ 50是“唯一排名”列和“球数”列，2表示在范围$ B $ 1：$ C $ 50的第二列中查找值。

然后您将获得如下所示的彩票号码：

5。 它是可选的。 为防止彩票号码在当前工作表刷新时自动更改，可以单击 公式 > 计算选项 > 用户手册.

如果您安装了 Kutools for Excel， 插入随机数据 实用程序可以帮助您立即在Excel中生成彩票号码。

1。 选择6个相邻的单元格，例如A1：F1，然后单击 库工具 > 插页 > 插入随机数据.

2。 现在，出现“插入随机数据”对话框。 转到 整数 标签，输入 1 in 从 框中键入 49 in 至 框，选中 独特价值 选项，然后单击 OK 按钮。 现在，您将看到6个唯一的彩票号码已生成并立即显示在所选单元格中。

此方法将指导您应用VBA宏在Excel中生成彩票号码。 请执行以下操作：

1。 按 其他 + F11 键以打开“ Microsoft Visual Basic应用程序”窗口。

2。 点击 插页 > 模块 打开一个新的模块窗口，并将以下VBA代码粘贴到其中：

VBA：Excel中的彩票号码生成器

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3。 按 F5 键或单击 运行 按钮以运行此VBA宏。

4。 现在，在弹出的对话框中，指定一个单元格以输出彩票号码，然后单击 OK 按钮。

然后，您将看到6个唯一的彩票号码已生成并显示在指定的单元格中。

根据Excel中的条件随机选择单元格

在Excel中为单元格随机添加背景/填充颜色