设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 请大家帮忙写字母组合代码

数据透视表40+个常用小技巧，让你一次学会！

发新帖

查看: 1764|回复: 9

[已解决]请大家帮忙写字母组合代码

发表于 2013-5-7 09:39 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

a1 = Array(a, b, c, d, e, f, g, h, i, j)
b1 = Array(a, d, g, j)
c1 = Array(a, b, c): d1 = Array(d, e, f): e1 = Array(g, h, i)
要求从数组a1中取出3到7个字母的组合，要求是b1有1到两个，c1,d1,e1要求有0到3个，求出所有的组合，数组循环最好。

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-7 14:03

oob111 发表于 2013-5-7 11:17
ABC，abd，abj
abde,abdj
abcde,abcdj

2003版本

300190-VBA-递归-组合提取符合条件的字母.rar (21.45 KB, 下载次数: 4)

excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

楼主| 发表于 2013-5-7 10:25 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

帮下忙谢谢，等你解答好吗

回复

使用道具举报

发表于 2013-5-7 10:48 | 显示全部楼层

工作中最常用的Excel函数公式，全印在一张鼠标垫上

oob111 发表于 2013-5-7 10:25
帮下忙谢谢，等你解答好吗

根据你说的条件，一共有 4669440 种组合，不知道有何意义？

回复

使用道具举报

楼主| 发表于 2013-5-7 10:50 | 显示全部楼层

你好不会有那么多吧，再看看

回复

使用道具举报

发表于 2013-5-7 10:57 | 显示全部楼层

A1 B1 C1 D1 E1 是各自计算组合？还是A1 的不同组合要与B1 C1 D1 E1 各自不同的组合再进行如何？

回复

使用道具举报

楼主| 发表于 2013-5-7 11:06 | 显示全部楼层

老师好，是A1组合，满足后四个的条件

回复

使用道具举报

楼主| 发表于 2013-5-7 11:17 | 显示全部楼层

本帖最后由 oob111 于 2013-5-7 11:21 编辑

ABC，abd，abj
abde,abdj
abcde,abcdj
abcdeg,abcdej都满足
bce,
bcef
bcefh
bcefhi等不满足
无B1出现

回复

使用道具举报

发表于 2013-5-7 12:49 | 显示全部楼层

oob111 发表于 2013-5-7 11:17
ABC，abd，abj
abde,abdj
abcde,abcdj

300190-VBA-递归-组合提取符合条件的字母.rar (28.93 KB, 下载次数: 4)

回复

使用道具举报

楼主| 发表于 2013-5-7 14:02 | 显示全部楼层

谢谢，请发出代码好吗，我是2003版打不开07的，能有更简单的看得懂的循环吗

回复

使用道具举报

发表于 2013-5-7 14:03 | 显示全部楼层本楼为最佳答案

这个最佳答案由那么的帅给出，感谢那么的帅的回答。

单击隐藏图章

oob111 发表于 2013-5-7 11:17
ABC，abd，abj
abde,abdj
abcde,abcdj

2003版本

300190-VBA-递归-组合提取符合条件的字母.rar (21.45 KB, 下载次数: 4)

回复

使用道具举报

发新帖

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-14 23:05 , Processed in 0.377763 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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