ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 15567|回复: 25

[求助] 10个数字分成5组列出所有组合,谢谢

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-5-16 11:48 | 显示全部楼层 |阅读模式
说明 A2:A11是随机的10个数字,大小不定   
把这10个数字进行分组,分成5组   
1组,先从这10个数字中,随机抽取2个,写入I:J   
2组,再从剩余8个数字中,随机抽取3个,写入K:M   
3组,再从剩余5个数字中,随机抽取2个,写入N:O   
4组,再从剩余3个数字中,随机抽取2个,写入P:Q   
5组,再把最后剩余数字,写入R   
在I:R列中,给出所有组合,每一行代表一种组合   
每一组只给出组合就好,不用排列   
比如第一组两个44,1552,就不用再给出1552,44   
第3组和4组去掉重复值,比如下面3、4组重复:   
3组 87,51 4组 740,38
3组 740,38 4组 87,51
     
第1组和3组、4组可能也存在重复问题   
能解决最好,解决不了先给出组合也行   
     
如果有可能拓展一下更好,比如增加到12个数字等   
或者增加分组等   
     
备注 D1:F7只是我列出的组合数,无关紧要,可以删掉   
但输出区域为I:R列,不要更改,谢谢   
     
非常感谢!!!   


排列组合.zip

8.21 KB, 下载次数: 79

TA的精华主题

TA的得分主题

发表于 2018-5-16 13:44 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
一    10个数的全排列为 3628800
二    只考虑第1组不重复,共有组合数为45个
三    同时考虑第1,2组不重复,共有组合数45个
四    同时考虑第1,2,3组数据不重复,组合数44
五    同时考虑第1,2,3,4组数据不重复,组合数42
六    同时考虑5组均不重复,组合数10

TA的精华主题

TA的得分主题

发表于 2018-5-16 13:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-5-16 14:41 | 显示全部楼层
1,2,3,4,5,6,7,8,9,10
1,3,2,4,5,6,8,7,9,10
1,4,3,2,5,6,9,8,7,10
1,5,3,4,2,7,8,6,9,10
1,6,3,4,7,2,5,8,10,9
1,7,3,4,6,5,8,2,9,10
1,8,3,4,9,6,2,7,5,10
1,9,3,4,8,6,5,7,2,10
1,10,3,5,4,7,9,8,6,2
2,3,1,4,5,8,9,6,7,10
2,4,3,1,6,5,7,9,10,8
2,5,3,1,7,6,10,8,4,9
2,6,3,4,1,5,9,7,10,8
2,7,3,4,10,6,1,8,5,9
2,8,3,5,6,4,7,1,9,10
2,9,3,5,7,6,4,8,1,10
2,10,3,5,8,7,1,4,9,6
3,4,1,2,6,7,10,9,5,8
3,5,1,4,6,9,10,8,2,7
3,6,1,4,7,2,8,5,10,9
3,7,1,4,2,8,10,6,5,9
3,8,1,4,9,7,2,6,10,5
3,9,1,4,8,5,10,6,2,7
3,10,1,5,6,9,2,4,7,8
4,5,3,6,7,1,8,2,10,9
4,6,3,5,9,2,10,1,7,8
4,7,3,6,8,1,9,5,2,10
4,8,5,6,7,1,2,3,9,10
4,9,5,6,8,1,10,3,2,7
4,10,5,6,9,7,3,1,2,8
5,6,3,2,7,4,8,1,10,9
5,7,3,2,8,4,9,1,6,10
5,8,1,6,7,4,2,3,10,9
5,9,1,6,8,4,10,3,7,2
5,10,1,6,9,8,3,4,2,7
6,7,3,2,9,1,5,4,10,8
6,8,4,7,2,3,9,5,1,10
6,9,5,7,8,3,2,1,4,10
6,10,5,7,9,1,4,8,3,2
7,8,5,1,2,3,10,6,4,9
7,9,6,8,2,3,1,4,5,10
7,10,6,8,9,4,5,3,1,2

TA的精华主题

TA的得分主题

发表于 2018-5-16 15:01 | 显示全部楼层
不知道楼主真实的想法到底是什么意思。

假设10个元素,按1,2,2,2,3分成5组,排除各组重复(组内也不重复),那么我的计算结果是会有1920种不同的组合。
k=Combin(10,1)*Combin(8,1)*Combin(6,1)*Combin(4,1)=10*8*6*4=1920

例如:
A|B,C|D,E|F,G|H,I,J
A|B,C|D,E|F,H|G,I,J
A|B,C|D,E|F,I|G,H,J
A|B,C|D,E|F,J|G,H,I
A|B,C|D,F|E,G|H,I,J
A|B,C|D,F|E,H|G,I,J
A|B,C|D,F|E,I|G,H,J
A|B,C|D,F|E,J|G,H,I
……
……
J|A,I|B,G|C,D|E,F,H
J|A,I|B,G|C,E|D,F,H
J|A,I|B,G|C,F|D,E,H
J|A,I|B,G|C,H|D,E,F
J|A,I|B,H|C,D|E,F,G
J|A,I|B,H|C,E|D,F,G
J|A,I|B,H|C,F|D,E,G
J|A,I|B,H|C,G|D,E,F

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-5-16 15:11 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
香川群子 发表于 2018-5-16 15:01
不知道楼主真实的想法到底是什么意思。

假设10个元素,按1,2,2,2,3分成5组,排除各组重复(组内也不 ...

哇塞,没想到香川大神回复了,荣幸,昨天晚上还下载了你的好多帖子,可惜有些没看懂,惭愧惭愧。。。
我的意思就是分成5组,我计算方法可能错误,应该你算的是对的
请问下能不能帮我写下代码,填入到对应列里面,学习一下

最后非常感谢!!!!!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-5-16 15:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
onlycxb 发表于 2018-5-16 14:41
1,2,3,4,5,6,7,8,9,10
1,3,2,4,5,6,8,7,9,10
1,4,3,2,5,6,9,8,7,10

非常感谢,请问您用的什么软件,看不太懂代码

TA的精华主题

TA的得分主题

发表于 2018-5-16 15:31 | 显示全部楼层
本帖最后由 onlycxb 于 2018-5-16 15:33 编辑
leepang1984 发表于 2018-5-16 15:12
非常感谢,请问您用的什么软件,看不太懂代码

C#,可以结合VSTO开发,应用于表格,或直接读写表格.是不是我理解错了.

TA的精华主题

TA的得分主题

发表于 2018-5-16 15:33 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 香川群子 于 2018-5-16 15:53 编辑
leepang1984 发表于 2018-5-16 15:11
哇塞,没想到香川大神回复了,荣幸,昨天晚上还下载了你的好多帖子,可惜有些没看懂,惭愧惭愧。。。
我 ...

你这5个组,每组取数不同,那么组的取数的组合方式对于全部不同组合的结果数也是有很大影响的。

按你一开始的顺序,则有20160个不同的组合:
k=Combin(10,2)*Combin(8,3)*Combin(5-1,2-1)*Combin(2,1)*Combin(1,1)
=45*56*4*2*1=20160个组合


附件直接给你算好了。


排列组合.zip

407.37 KB, 下载次数: 150

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-5-16 15:35 | 显示全部楼层
香川群子 发表于 2018-5-16 15:33
你这5个组,每组取数不同,那么组的取数的组合方式对于全部不同组合的结果数也是有很大影响的。

按你 ...

恩,就是不知道怎么取出来放进单元格,这段代码,怎么写,我只能写取前两个的代码,后面就不知道怎么取了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-16 10:28 , Processed in 0.034576 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表