Question

怎样用excel把组合数列出来。我要在1-15中选5个数，把所有可能列出来，不需要排列。

Answer 1

示意图如下：

如数据在A1:E15,为了排列时显得整齐，我用A,B,C,D,E,F代替了10，11，12，13，14，15

在F1中输入公式：=OFFSET($A$1,0+(ROW()-1)/(COUNTA(B:B)*COUNTA(C:C)*COUNTA(D:D)*COUNTA(E:E)),0,,) ，下拉。

在G1中输入公式：=OFFSET($A$1,MOD((ROW()-1)/(COUNTA(C:C)*COUNTA(D:D)*COUNTA(E:E)),COUNTA(B:B)),1,,) ，下拉。

在H1中输入公式：=OFFSET($A$1,MOD((ROW()-1)/(COUNTA(D:D)*COUNTA(E:E)),COUNTA(C:C)),2,,) ，下拉。

在I1中输入公式：=OFFSET($A$1,MOD((ROW()-1)/COUNTA(E:E),COUNTA(D:D)),3,,) ，下拉。

在J1中输入公式：=OFFSET($A$1,MOD((ROW()-1),COUNTA(E:E)),4,,) ，下拉。

在K1中输入公式：=F1&G1&H1&I1&J1，下拉。您要的东西全在该列了，数量有点儿大，只怕您没勇气逐个看完呢，呵呵呵！

Answer 2

Sub zuhe()
Dim a, b, c, d As Integer
d = 1
For a = 1 To 15
For b = 1 To 15
If b > a Then
For c = 1 To 15
If c > b Then
Cells(d, 1).NumberFormatLocal = "@"
Cells(d, 1) = a & "/" & b & "/" & c
d = d + 1
End If
Next c
End If
Next b
Next a
End Sub

1、打开EXCEL
2、ALT+F11进入VBA编辑器
3、点左边VBAProject Book1
4、双击sheet1
5、把上面的代码粘贴进去
6、运行