Excel抽奖可用RANDBETWEEN配合INDEX实现单次随机抽取；通过COUNTIF与IF控制范围实现去重多轮抽取；再结合按钮控件、VBA宏和条件格式打造可视化互动界面。
如果您希望在Excel中快速实现一个简单有趣的抽奖功能，可以利用RANDBETWEEN函数生成指定范围内的随机整数，配合其他基础函数构建动态抽奖机制。以下是具体实现方式：
本文运行环境：MacBook Air，macOS Sequoia。
该方法适用于从固定名单中实时抽取一名中奖者，RANDBETWEEN生成行号索引，INDEX根据索引返回对应姓名，每次按F9刷新即更新结果。
1、在A1:A20区域输入20个参与者姓名（如“张三”“李四”等）。
2、在B1单元格输入公式：=INDEX(A1:A20,RANDBETWEEN(1,20))。
3、按下键盘F9键，B1内容将立即刷新为A列中任意一个随机姓名。
此方案通过辅助列标记已抽中人员，并结合COUNTIF与IF逻辑控制抽取范围收缩，确保每轮结果不重复。
1、在C1:C20输入数字1–20作为原始序号。
2、在D1输入公式：=IF(COUNTIF($E$1:E1,C1)>0,"已抽中",INDEX($A$1:$A$20,C1))，向下填充至D20。
3、在E1输入公式：=INDEX($C$1:$C$20,RANDBETWEEN(1,20-COUNTIF($E$1:E1,"已抽中")))，再在F1用=INDEX($A$1:$A$20,E1)显示对应姓名。
借助Excel表单控件插入按钮，绑定宏实现一键刷新，同时设置条件格式让中奖单元格自动高亮，增强互动趣味性。
1、选中数据区→「开发工具」→「插入」→「按钮（窗体控件）」，绘制按钮并指定宏名为RandomDraw。
2、按Alt+F11打开VBA编辑器，在模块中粘贴代码：Sub RandomDraw(): Range("G1").Value = Application.WorksheetFunction.Index(Range("A1:A20"), Application.WorksheetFunction.RandBetween(1, 20)): End Sub。
3、右键G1单元格→「条件格式」→「新建规则」→「只为包含以下内容的单元格设置格式」→设置字体加粗、背景色为黄色。
以上就是Excel制作一个抽奖小程序 Excel随机函数RANDBETWEEN应用【趣味】的详细内容，更多请关注php中文网其它相关文章！
每个人都需要一台速度更快、更稳定的 PC。随着时间的推移，垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是，许多工具可以让 Windows 保持平稳运行。
广告
收藏
收藏
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号
565
