ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] x个字符的循环,如何排列。

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-4-4 11:56 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 nihao123456789 于 2023-4-4 13:18 编辑

假设有这样的数组。X个字符(动态的),中间有若干空白位置(动态的)。比如:
"A,B,C,D,E,F"(6个字符,没有空白位置)
",B,C,,E,F"(4个字符,1号位、4号位空白)
"A,,C,"(2个字符,2号位、4号位空白)
"甲,,丙,丁"(3个字符,2号位空白)

然后对这个数组排序,
1、原来数组长度不变,原来的空白和非空位置不变。比如"甲,,丙,丁"重新排列后,长度依然是4;2号位依然是空白;1、3、4号位依然是非空。
2、非空位置可以用数组内任意字符替换。
求用VB做一个通用的宏,展示所有可能的排列组合。可以是自定义函数或者其他。

以"甲,,丙,丁"为例,3^3=27种可能性

甲,,甲,甲
甲,,甲,丙
甲,,甲,丁
甲,,丙,甲
甲,,丙,丙
甲,,丙,丁
甲,,丁,甲
甲,,丁,丙
甲,,丁,丁
丙,,甲,甲
丙,,甲,丙
丙,,甲,丁
丙,,丙,甲
丙,,丙,丙
丙,,丙,丁
丙,,丁,甲
丙,,丁,丙
丙,,丁,丁
丁,,甲,甲
丁,,甲,丙
丁,,甲,丁
丁,,丙,甲
丁,,丙,丙
丁,,丙,丁
丁,,丁,甲
丁,,丁,丙
丁,,丁,丁



image.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-4 13:17 | 显示全部楼层
求数组高手解题。

TA的精华主题

TA的得分主题

发表于 2023-4-4 15:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2023-4-4 16:09 | 显示全部楼层
先给个半成品吧。在此基础上,填补空位应该很容易实现了。
360截图20230404160705173.jpg
360截图20230404160843012.jpg

求排列.rar

19.76 KB, 下载次数: 2

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-4-4 17:26 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
grf1973 发表于 2023-4-4 16:09
先给个半成品吧。在此基础上,填补空位应该很容易实现了。

去掉水分——不考虑空串,然后用递归求解,再回填空串。

TA的精华主题

TA的得分主题

发表于 2023-4-5 15:41 | 显示全部楼层
让bingai写了个。
image.jpg

code.rar

478 Bytes, 下载次数: 4

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-6 09:36 | 显示全部楼层
smsn 发表于 2023-4-5 15:41
让bingai写了个。

AI太强大了把。逻辑和我想的一样。但是我下不出来

TA的精华主题

TA的得分主题

发表于 2023-4-6 11:31 | 显示全部楼层
6楼代码亲测可行。AI真的强大。
把半成品补全。
360截图20230406112935890.jpg

求排列.rar

18.68 KB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-6 13:39 | 显示全部楼层
我又根据AI的东西,调整简化了一下。,这个也可以的。
微信图片_20230406133619.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-9-29 08:12 , Processed in 0.042594 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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