请选择 进入手机版 | 继续访问电脑版


简单高效 巧用Excel实现随机混排

14560
回复
17287375
查看
    [复制链接]
等级头衔

Rank: 110Rank: 110Rank: 110Rank: 110

用户成就
UID
18
听众
1
威望
488
贡献
121
在线时间
5 小时
注册时间
2014-2-26

发表于 2022-9-9 10:40:22 | 显示全部楼层 |阅读模式
常用工具
常用工具: 表格随机混排
平时经常会用到随机混排,比如考试时将不同班级的学生混排、随机抽取安检人员到下面的分公司检查安全工作、秋游时随机组成小组、随机抽奖等。手动操作不仅繁杂,而且容易出错,其实对于类似的随机混排,借助Excel 2019就能高效实现。下面以随机抽取安检人员到分公司检查为例进行说明。
360截图20220909103931591.jpg
启动Excel后在A列中输入检查人员的姓名,在B2单元格中输入公式“=RANDBETWEEN(1,10)”并下拉(区间数字请根据人员的数量进行修改,比如有50个人就设置为1,50),该公式表示使用RANDBETWEEN函数随机生成1-10之间的整数。由于每次生成的都是随机数字,因此当A列中的数据以这个随机数字作为排序的依据时,每次的排序结果都不相同。
360截图20220909103943211.jpg
接下来登录“http://dwz.win/QkX”并下载所需的VBA脚本(提取码: x5r3),下载完后返回Excel,按下“Alt+F11”组合键打开VBA窗口,依次点击“插入→模块”,将下载到的脚本复制到该窗口。大家要根据实际情况修改代码,比如“For i = 9 To 2 Step -1”,表示对A9到A2单元格中的数据进行遍历,步长是“-1”,这样会依次从A9单元格一直循环显示到A2单元格,最终显示A2单元格中的数值。如果A列中的数据更多,就需要更改这里的数字。Rows(2).Delete表示删除第二行的数值,这样每运行一次脚本就会将该行所显示的数值删除,可以保证不重复显示。如果要删除其他行的数值,将这里的数字2改成相应的数字即可。
360截图20220909103951919.jpg
而A列的随机排序我们可以通过录制宏的方法来实现。依次点击“开发工具→录制宏”,新建一个宏1。接着开始执行下面的操作:选中A1:B9区域,依次点击“数据→排序”,在弹出的对话框中,“主要关键字”选择“随机排序”,“排序依据”选择“单元格值”,“次序”设置为“降序”,点击“确定”后停止宏的录制。
360截图20220909103959975.jpg
现在测试一下宏1,可以看到由于B列为随机数字,因此在A列中每次排序的结果都是不同的,即在A2单元格中显示的名字是随机的。由于默认最终显示名字的位置是C1单元格,我们还需要将每次选中的人名复制到对应分公司的单元格中,这可以借助粘贴图片的方法来实现。
复制C1单元格后定位到D2单元格,依次点击“开始→粘贴→其他粘贴选项→链接的图片”,会在D2单元格中粘贴一张图片,显示的内容为C1单元格中的数值。记住该图片的名称,比如本例为图片1。
360截图20220909104010553.jpg
在G9:G15单元格中依次输入分公司的名称,同上启动宏2的录制,执行下面的操作:选中图片1并复制,接着定位到H9单元格,依次点击“开始→粘贴→图片”,将图片1以“图片”的形式粘贴到H9单元格,最后再定位到图片1所在的位置,完成宏2的录制。录制完后运行宏2,查看能否将图片1复制到H9单元格。默认每运行一次脚本,C1单元格都会显示不同的人名,但是通过上述“复制→粘贴→图片”的方法,我们可以将C1单元格每次显示的人名复制并保存下来。
360截图20220909104020433.jpg
完成上述的操作后再测试一下所有的流程。先执行宏1,检查能否在A列实现随机排序。接着执行下载到的VBA脚本,检查能否在C1单元格中随机显示A2单元格中的人名,并同时自动删除第二行的数据。最后执行宏2,检查图片1能否成功地复制到H8单元格(因为删除了第二行的数据,因此原来的H9单元格变为H8单元格)。
360截图20220909104029559.jpg
测试完后如果没有问题,按下“Alt+F11”组合键打开VBA窗口,在“Sub cfan()”下添加上宏1(用于随机排序)、“Loop Until k >= 10”下添加上宏2(用于复制图片到对应的分公司),编辑完代码后返回宏窗口,为该宏设置运行快捷键为“Ctrl+R”。
返回Excel窗口,隐藏A和B列,同时调整图片1的大小和位置。以后只要每次按下“Ctrl+R”组合键,C1单元格和图片1就会循环显示A2:A9区域中的人名,最终定格显示A2单元格中的内容,接着将其复制到H9单元格。由于该脚本会自动删除第二行的数据,这样执行宏2时会依次将显示随机名字的图片复制到H2:H8区域。
360截图20220909104038102.jpg
 
学客联盟
回复

使用道具 举报

等级头衔

Rank: 5Rank: 5Rank: 5

用户成就
UID
4788158
听众
0
威望
1
贡献
1
在线时间
0 小时
注册时间
2022-2-15

发表于 2022-9-9 10:40:22 | 显示全部楼层
非常喜欢哦
学客联盟
回复 支持 反对

使用道具 举报

等级头衔

Rank: 5Rank: 5Rank: 5

用户成就
UID
4345402
听众
0
威望
1
贡献
1
在线时间
0 小时
注册时间
2021-12-9

发表于 2022-9-9 10:40:33 | 显示全部楼层
网站非常好看
学客联盟
回复 支持 反对

使用道具 举报

等级头衔

Rank: 25Rank: 25Rank: 25Rank: 25Rank: 25

用户成就
UID
4058008
听众
0
威望
49
贡献
49
在线时间
0 小时
注册时间
2021-11-3

发表于 2022-9-9 10:40:46 | 显示全部楼层
抢个位子
学客联盟
回复 支持 反对

使用道具 举报

等级头衔

Rank: 5Rank: 5Rank: 5

用户成就
UID
3627748
听众
0
威望
0
贡献
0
在线时间
0 小时
注册时间
2014-8-5

发表于 2022-9-9 10:40:57 | 显示全部楼层
生活总是这样的,内容非常不错。
学客联盟
回复 支持 反对

使用道具 举报

等级头衔

Rank: 15Rank: 15Rank: 15

用户成就
UID
5037731
听众
0
威望
15
贡献
15
在线时间
0 小时
注册时间
2022-3-20

发表于 2022-9-9 10:41:08 | 显示全部楼层
网站非常好看
学客联盟
回复 支持 反对

使用道具 举报

等级头衔

Rank: 45Rank: 45Rank: 45

用户成就
UID
3638197
听众
0
威望
97
贡献
97
在线时间
0 小时
注册时间
2015-7-11

发表于 2022-9-9 10:41:13 | 显示全部楼层
鼎力支持!!
学客联盟
回复 支持 反对

使用道具 举报

等级头衔

Rank: 5Rank: 5Rank: 5

用户成就
UID
4549804
听众
0
威望
1
贡献
1
在线时间
0 小时
注册时间
2022-1-10

发表于 2022-9-9 10:41:19 | 显示全部楼层
不经意已经在这里学习好多内容了
学客联盟
回复 支持 反对

使用道具 举报

等级头衔

Rank: 5Rank: 5Rank: 5

用户成就
UID
5180271
听众
0
威望
1
贡献
1
在线时间
0 小时
注册时间
2022-4-3

发表于 2022-9-9 10:41:19 | 显示全部楼层
路过看看,默默留下脚印
学客联盟
回复 支持 反对

使用道具 举报

等级头衔

Rank: 5Rank: 5Rank: 5

用户成就
UID
6050563
听众
0
威望
1
贡献
1
在线时间
0 小时
注册时间
2022-8-22

发表于 2022-9-9 10:41:19 | 显示全部楼层
真心更新学盟让大家免费学习
学客联盟
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

电脑技术交流学习
132-3591-5703
周一至周五 9:00-18:00
意见反馈:admin@cnxklm.com

扫一扫关注我们

Powered by NST! X3.4© 2001-2021技术支持( 闽ICP备14006427号 )|意见建议