如何用excel列出如下所有排列组合的情形？

Question

假设有4个环节，环节1、环节2、环节3、环节4；每个环节下有A，B，C，D四种情况，如何用excel得出这4个环节组合起来的一共256种情形？
要求

每一种情况单列一行，每个环节下对应的情况单独占一个单元格

Answer 1

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、最后将两者的数据合在一起，可以直接将两个单元格用&（与命令）加载一起，也可以直接将两个公式用&合在一起，就完成了。

Answer 2

这个排列组合经常要用到，托您的问题，我学习了一下，做了一个排列组合的代码。只当抛砖引玉，希望有高手批评指正。（这个程序是将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

执行结果如图所示：

Answer 3

'你这个用excel函数比较麻烦，但用VBA代码就比较简单。
'如果你的四个环节名分别放在A1：D1，第一环节的四种情况分别在A2：A4，……，则在excel VBA里运行下面的代码就可以在A6:P21区域中得出你要的256中组合
Sub 四环节组合()
Dim i%, j%, k%, l%, m%, n%
For i = 2 To 5 Step 1
    For j = 2 To 5 Step 1
      m = m + 1
      n = 0
      For k = 2 To 5 Step 1
          For l = 2 To 5 Step 1
              n = n + 1
              Cells(m + 5, n) = Cells(i, 1) & Cells(j, 2) & Cells(k, 3) & Cells(l, 4)
              Next
          Next
      Next
Next
End Sub

追问

如果我想每一种情况单列一行，每个环节下对应的情况单独占一个单元格，能不能实现？谢谢!!

追答

能实现。

Answer 4

使用   Excel常用在线工具  的批量组合功能，操作如下

如果组合为一列则选择  组合成一列。  excelfb

Answer 5

Sub musub()
    Dim caseArray(3) As String
    caseArray(0) = "A"
    caseArray(1) = "B"
    caseArray(2) = "C"
    caseArray(3) = "D"
    Dim rowNum As Integer
    For i = 1 To 4
        For j = 1 To 4
            For k = 1 To 4
                For l = 1 To 4
                    rowNum = rowNum + 1
                    Cells(rowNum, 1) = "情形" & CStr(rowNum)
                    Cells(rowNum, 2) = caseArray(i - 1)
                    Cells(rowNum, 3) = caseArray(j - 1)
                    Cells(rowNum, 4) = caseArray(k - 1)
                    Cells(rowNum, 5) = caseArray(l - 1)
                Next l
            Next k
        Next j
    Next i
End Sub