Note: The other languages of the website are Google-translated. Back to English

如何在Excel中生成彩票号码?

您是否曾经想过在Excel中生成彩票号码,或者自己在Excel中生成彩票号码生成器? 在本文中,我提供了三种方法可以轻松完成它。


使用Excel函数生成彩票号码

此方法将指导您应用几个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。 它是可选的。 为防止彩票号码在当前工作表刷新时自动更改,可以单击 公式 > 计算选项 > 手动.

轻松列出Excel中几个系列数据的所有组合

Kutools for Excel的 列出所有组合 该实用程序旨在汇总来自几个给定系列数据的所有可能组合,并在下面的屏幕快照中列出这些组合。


列出所有组合1

Kutools for Excel - 包括 300 多个方便的 Excel 工具。 全功能免费试用 30-天,无需信用卡! 立即行动吧!

使用VBA宏生成彩票号码

此方法将指导您应用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个唯一的彩票号码已生成并显示在指定的单元格中。


使用Kutools for Excel生成彩票号码

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

Kutools for Excel - 包括 300 多个方便的 Excel 工具。 全功能免费试用 30-天,无需信用卡! 立即免费试用!

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

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

Kutools for Excel - 包括 300 多个方便的 Excel 工具。 全功能免费试用 30-天,无需信用卡! 立即行动吧!


演示:使用Kutools for Excel生成彩票号码


Kutools for Excel 包括适用于Excel的300多种便捷工具,可以在30天之内免费试用。 立即下载并免费试用!

相关文章:


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (15)
5中的5评分 · 1评级
该评论由网站上的主持人最小化
请轻松找到 ssoftware
该评论由网站上的主持人最小化
我想赢得一些幸运号码
该评论由网站上的主持人最小化
: 我想试试你的新程序,看看数字是如何预测的
该评论由网站上的主持人最小化
计算喀拉拉邦彩票的第二天猜测
该评论由网站上的主持人最小化
干草,Santhanam 你在这个程序中每一次都赢了吗?
该评论由网站上的主持人最小化
计算喀拉拉邦彩票的第二天彩票号码 - 印度
该评论由网站上的主持人最小化
步骤 B 的公式中 COUNTIF(B$1:B1,B1)-1 的目的是什么?
该评论由网站上的主持人最小化
嗨,金亨燮,
COUNTIF(B$1:B1,B1)-1 将防止B列出现重复。例如,如果B1是唯一值,这部分将返回0,不会影响排名结果; 如果 B1 重复,这部分会稍微调整排名结果。
该评论由网站上的主持人最小化
嗨,我已经尝试过您在此处展示的 Vlookup 方式,效果很好,并且很容易生成 1 到 49 范围内的数字。

但是我正在考虑消除一些数字,例如,而不是运行数字,我将有 25 个从 1 到 49 的数字。我需要如何调整 Vlookup 公式才能使其工作?
5中的5评分
该评论由网站上的主持人最小化
嗨,Yogi,对不起,我不太明白你的要求。 从 25 到 1 有 49 个数字是什么意思?
该评论由网站上的主持人最小化
是的,从 25 到 1 的 49 个数字。
我尝试过使用相同的公式,但是一旦选择了大于 25 的数字,则无法显示序列中的下一个数字并发生错误。
5中的5评分
该评论由网站上的主持人最小化
谢谢阿曼达的帮助。
该评论由网站上的主持人最小化
该文件不适用于 fromula,出了什么问题

请让我知道

我复制的公式都是正确的。
该评论由网站上的主持人最小化
您好,

你能附上你正在工作的文件吗?

阿曼达
该评论由网站上的主持人最小化
系统不工作,有什么问题我已经插入了所有公式
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护