如何求12345的所有排列组合？

作者：绿色风分类：时间：2022-08-17 浏览：417

楼主棉花糖	Q：如何求12345的所有排列组合？ A：用函数求解所有排列组合数，并不难，但是速度是无法忍受的。但是利用字典的话，那速度是不可同日而语的。代码如下，有兴趣的朋友可以比较一下。 Sub 排列组合() Dim dic As Object, i As Long, arr Set dic = CreateObject("Scripting.Dictionary") For i = 1 To 100000 dic.Add i & IIf(i Like "[12345]" & "[12345]" & "[12345]" & "[12345]" & "[12345]", "@", ""), "" Next arr = WorksheetFunction.Transpose(Filter(dic.keys, "@")) [a1].Resize(UBound(arr), 1) = arr [a:a].Replace "@", "" Set dic = Nothing End Sub 排列组合.rar
2楼 gouweicao78	函数法： 1、2、3、4、5的所有排列数为5^5=3125个选A1:A3125，输入： =SUMPRODUCT((MOD(INT((ROW(1:1)-1)/5^(ROW($1:$5)-1)),5)+1)*10^(ROW($1:$5)-1))
3楼棉花糖	方法巧妙，不过数据再大些，多些。数组会吃不消的。
4楼 liuguansky	学习了。。公式很妙
5楼 lanye205	好好学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表