假设有4个环节,环节1、环节2、环节3、环节4;每个环节下有A,B,C,D四种情况,如何用excel得出这4个环节组合起来的一共256种情形?
要求
每一种情况单列一行,每个环节下对应的情况单独占一个单元格
1、首先在电脑中打开excel软件,输入要组合的数据。
2、在新的一列中输入公式:=INDEX($E$1:$E$3,INT((ROW(E1)-1)/4)+1),如图所示,其中4表示甲乙丙丁四个的数量。
3、然后回车,往下拖拉至ABC数量乘以甲乙丙丁的数量,这里为3X4=12。
4、同样,在新的一列输入公式:=INDEX($F$1:$F$4,MOD(ROW(E1)-1,4)+1),同样的操作。
5、最后将两者的数据合在一起,可以直接将两个单元格用&(与命令)加载一起,也可以直接将两个公式用&合在一起,就完成了。
这个排列组合经常要用到,托您的问题,我学习了一下,做了一个排列组合的代码。只当抛砖引玉,希望有高手批评指正。(这个程序是将10个数字,按每条4个数字进行组合)
Sub 组合()
Dim arr_S(1 To 10)
Dim arr_O
Dim I, J, K1, K2, K3, K4 As Integer
I = Sheet1.Range("A65536").End(xlUp).Row
'arr_S = Sheets("sheet1").Range("a2:a" & I) 这个运行时出错
For J = 1 To I - 1 '给原始序列数组赋值
arr_S(J) = Cells(J + 1, 1)
Next J
I = I - 1 '原始数据的个数
J = I * (I - 1) * (I - 2) * (I - 3) / (1 * 2 * 3 * 4) '按4列组合,计算目标数组的个数
ReDim arr_O(1 To J, 1 To 4)
J = 1
For K1 = 1 To I - 3
For K2 = K1 + 1 To I - 2
For K3 = K2 + 1 To I - 1
For K4 = K3 + 1 To I
arr_O(J, 1) = arr_S(K1)
arr_O(J, 2) = arr_S(K2)
arr_O(J, 3) = arr_S(K3)
arr_O(J, 4) = arr_S(K4)
J = J + 1
Next K4
Next K3
Next K2
Next K1
For I = 1 To J - 1
Cells(I + 1, 3) = arr_O(I, 1)
Cells(I + 1, 4) = arr_O(I, 2)
Cells(I + 1, 5) = arr_O(I, 3)
Cells(I + 1, 6) = arr_O(I, 4)
Next I
End Sub
执行结果如图所示:
如果我想每一种情况单列一行,每个环节下对应的情况单独占一个单元格,能不能实现?谢谢!!
能实现。