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

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

這個排列組合經(jīng)常要用到，托您的問題，我學習了一下，做了一個排列組合的代碼。只當拋磚引玉，希望有高手批評指正。（這個程序是將10個數(shù)字，按每條4個數(shù)字進行組合）

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 ?'給原始序列數(shù)組賦值

? arr_S(J) = Cells(J + 1, 1)

Next J

I = I - 1 '原始數(shù)據(jù)的個數(shù)

J = I * (I - 1) * (I - 2) * (I - 3) / (1 * 2 * 3 * 4) '按4列組合，計算目標數(shù)組的個數(shù)

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

執(zhí)行結(jié)果如圖所示：