按要求给数字分组

hnyeke · 发表于 2024-12-13 09:01

   按要求给数字分组：
A1:i1  为要分组的数字
a2:i2  为各数字对应的个数（为变量）
K2 需要的总组数（为变量）
L2  每组数字个数（为变量）
K3  接近的和值（为总和值除以组数的平均值）

根据数字个数给数字分组，每个数字的个数是指定的，不能多分，也不能少分，每组的数字个数也是指定的。使各组的和值尽量缩小差距。
请熟悉VBA又热心的同仁写一段代码，一键达到左边的效果。
当然我的手工分法也是不十分合理的。

详见附件。

yynrzwh · 发表于 2024-12-13 15:00

本帖最后由 yynrzwh 于 2024-12-13 15:05 编辑

原数据应该是不对的
第二行个数之和是77，25*3=75，不相等是不可能实现的。

把E2改为11，结果如下：
标准差5.099应该是最小的了

hnyeke · 发表于 2024-12-13 17:17

yynrzwh 发表于 2024-12-13 15:00
原数据应该是不对的
第二行个数之和是77，25*3=75，不相等是不可能实现的。

谢谢您的回复。确实是太疏忽了，数字的个数应该是=组数*每组个数。
这种结果如何通过代码得到，因为这只是个例子，想用这种方法解决实际问题。

hnyeke · 发表于 2024-12-16 16:48

hnyeke 发表于 2024-12-13 17:17
谢谢您的回复。确实是太疏忽了，数字的个数应该是=组数*每组个数。
这种结果如何通过代码得到，因为这只 ...

分数思路：
每次以剩余个数最多的数为基础开始取数，取和值最接近平均数的三个数（如第1次，第四列的90为13个最多，取90+120+70=280 最接近平均值283。。。。。。。

为何这种代码没人尝试？

kevinchengcw · 发表于 2024-12-16 17:30

条件取的结果好像也不是太理想
图片.png

hnyeke · 发表于 2024-12-16 19:43

kevinchengcw 发表于 2024-12-16 17:30
条件取的结果好像也不是太理想

感谢您的回复，您是怎么取的。
我想要VBA 获得结果

yynrzwh · 发表于 2024-12-16 19:48

不如直接说出你的问题，
这种移花接木的手法，更没人想浪费时间

hnyeke · 发表于 2024-12-16 20:20

hnyeke 发表于 2024-12-16 19:43
感谢您的回复，您是怎么取的。
我想要VBA 获得结果

每次从第1个数开始查找，查剩余个数最多的数字，取其1与其他的两个数组合，使它们的和值最接近各组的平均值（283.6）
同时统计剩余个数与剩下没组合的组数，如果某数剩下5个数，还有5组没完成，则这个数每组必取1个。

请问这种思路如何写代码。

yynrzwh · 发表于 2024-12-16 22:02

本帖最后由 yynrzwh 于 2024-12-16 22:04 编辑

kevinchengcw 发表于 2024-12-16 17:30
条件取的结果好像也不是太理想

楼主这组个数能跑到4.76吗？

kevinchengcw · 发表于 2024-12-17 07:40

yynrzwh 发表于 2024-12-16 22:02
楼主这组个数能跑到4.76吗？

我去掉了2个70，75个数分成25组，可以跑到4.76

		自动登录	找回密码
密码			免费注册

[求助] 按要求给数字分组