如何在vba比赛中画一对男女

如何在vba比赛中画一对男女,vba,excel,random,Vba,Excel,Random,我有20个孩子,A栏有10个男孩,B栏有10个女孩。我需要excel vba为20个孩子随机选择一对男孩和女孩 谢谢您也可以在没有VBA的情况下完成- 请参见屏幕截图中的公式- 这太过分了,但我只是为了好玩才把它拼在一起。它在选择时从任意数量的列表(每列一个)中选择一个随机名称,包括颜色和声音 我刚在提交编辑时点击了双退格,结果全部丢失,所以这是一个简短的无版本信息和链接 下载带有这些示例的示例.XLSM工作簿。(文件包含VBA/宏,因此打开时可能会收到安全警告。) 从没有Excel的列表中

我有20个孩子,A栏有10个男孩,B栏有10个女孩。我需要excel vba为20个孩子随机选择一对男孩和女孩


谢谢

您也可以在没有VBA的情况下完成-

请参见屏幕截图中的公式-


这太过分了,但我只是为了好玩才把它拼在一起。它在选择时从任意数量的列表(每列一个)中选择一个随机名称,包括颜色和声音

我刚在提交编辑时点击了双退格,结果全部丢失,所以这是一个简短的无版本信息和链接

下载带有这些示例的
示例.XLSM
工作簿。(文件包含VBA/宏,因此打开时可能会收到安全警告。)


从没有Excel的列表中随机选择 您也可以使用在线(完全不使用Excel)完成此操作。


使用Excel从列表中随机选择(无VBA)

C3中的公式

=OFFSET(C5,RAND()*10,0)
D3中的公式

=OFFSET(D5,RAND()*10,0)

更多信息:
  • (Excel)

  • (Excel)


你能按字母顺序对两者进行排序,然后调整=Rand()公式以进行随机选择吗?为什么需要VBA?从谷歌立即提供的现成解决方案中挑选一个(代码和公式):可能重复刚刚设置的两个范围(1个用于男孩,1个用于女孩)必须+1这一点,因为这是对一个可能会被关闭的问题的完全过火的回答。:)
=OFFSET(D5,RAND()*10,0)