Question

excel中显示排列组合的结果的问题

假设1到10这十个数字里面任选3个的结果是用
=COMBIN(10,3)＝120个
那么请教达人 把这个120个结果 分别显示出来的方法呢！！

Answer 1

1.首先，看一下原始数据。a1和a2是两个主等级，b1:b4是四个附属等级，每个主等级都有四个附属等级。需要在c列显示出所有的组合情况。
2.考虑用index函数来实现这个功能。首先来看一下index第二参数如何做。
双击c1，输入公式=int((row(a1)-1)/4)+1，下拉可以看到1出现了4次，2也出现了4次，这是因为b列数据4次以后就需要在a列偏移一个单元格。
3.外面嵌套index函数，输入：
=index($a$1:$a$2,int((row(a1)-1)/4)+1)
下拉后就可以看到“一等”和“二等”各出现了4次。
4.第二列数据和第一列数据不一样，我们需要循环引用b列的数据。也就是让1,2,3,4循环出现。所以考虑用mod函数。双击d1，输入公式：
=mod(row(a1)-1,4)+1
下拉后可以看到如下图的效果：
5.同样，外层嵌套index函数，可以循环获得b列的数据，4行一遍：
=index($b$1:$b$4,mod(row(a1)-1,4)+1)
6.最后，把公式合并在一个单元格中，就生成了最终结果组合。
=index($a$1:$a$2,int((row(a1)-1)/4)+1)&index($b$1:$b$4,mod(row(a1)-1,4)+1)

Answer 2

http://zhidao.baidu.com/question/76008155.html?si=8

按下ALT+F11,插入-模块,复制下面代码到代码框中.按下F5运行.
这样A1:A252就是10个数字的组合.

Sub order()
Range("a1").Select
For a = 1 To 10
For b = 1 To 10
For c = 1 To 10
If a > b And b > c Then
ActiveCell.Value = a & b & c
ActiveCell.Offset(1, 0).Select
End If
Next
Next
Next

End Sub