Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1811|回复: 5

[已解决]求助列出所有的数组

[复制链接]
发表于 2013-11-15 08:32 | 显示全部楼层 |阅读模式
本帖最后由 hufl 于 2013-11-15 08:44 编辑

请教各位老大:
有1  3  8  11这样一个数组,要从这个数组里取三个数,组成一个新数组,
一共有4种数组,如下:
1  3  8
1  8  11
3  8  11
1  3  11
怎么用公式自动列出如上数组,
我用的是EXCEL 2003版本的,谢谢!
最佳答案
2013-11-15 10:54
vba算法
发表于 2013-11-15 10:43 | 显示全部楼层
A1:D1为1,3,8,11,a2=IF(((ROW()>5)+(COLUMN()>3)),"",CHOOSE(IF((ROW()-1)>(4-COLUMN()),COLUMN()+1,COLUMN()),$A$1,$B$1,$C$1,$D$1))
回复

使用道具 举报

发表于 2013-11-15 10:54 | 显示全部楼层    本楼为最佳答案   
vba算法

VBA - 组合生成算法 - by 灰袍法师 - 自动检测版本.rar

41.95 KB, 下载次数: 23

回复

使用道具 举报

发表于 2013-11-15 11:07 | 显示全部楼层
a2=IF(((ROW()>5)+(COLUMN()>3)),"",INDIRECT((ADDRESS(1,IF((ROW()-1)>(4-COLUMN()),COLUMN()+1,COLUMN())))))
回复

使用道具 举报

 楼主| 发表于 2013-11-15 12:11 | 显示全部楼层
cia123 发表于 2013-11-15 11:07
a2=IF(((ROW()>5)+(COLUMN()>3)),"",INDIRECT((ADDRESS(1,IF((ROW()-1)>(4-COLUMN()),COLUMN()+1,COLUMN()) ...

非常谢谢cia123,想再请教一下,如果有1  3  8  11 13这样一个数组,要从这个数组里取三个数,组成一个新数组,
一共有10种数组, 那公式中哪几个参数修改一下就好了?我试了一下,修改的结果不对
回复

使用道具 举报

 楼主| 发表于 2013-11-15 13:20 | 显示全部楼层
以前宏老是不能用,现在调好了,谢谢上面两位
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-14 21:00 , Processed in 0.334584 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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