如何在 EXCEL 中列出所有的排列組合,要顯示出來

Question

我有 ABC , XYZ 六個變數,而且各有正負,要6個為一組,我要如何才能列出所有的排列組合?而且所有的組合要顯示出來在 EXCEL 表格中 ?我有試著用 COMBIN來做,但沒有成功... VB也不會用,請問高手,有什麼方法可以完成 ?


結果顯示
A+ B+ C+ X+ Y+ Z+
A- B- C- X+ Y+ Z-
.......
.......
-----

Answer 1

Private Sub CommandButton1_Click()
Dim A$(), B$()

A = Split("+ -")
B = Split("A B C X Y Z")
Cal A, B, "", 0, 0, 1
End Sub
Sub Cal(A$(), B$(), S$, P%, pos%, R%)
Dim I%

If Len(S) = 12 Then
Cells(R, 1) = S
pos = 0: R = R + 1
Exit Sub
End If
For I = P To UBound(A)
Cal A, B, S & B(pos) & A(I), P, pos + 1, R
Next
End Sub

Answer 2

請參考
http://www.wretch.cc/blog/crdotlin&article_id=8140002