求一個(gè)數(shù)據(jù)統(tǒng)計(jì)排列組合的公式，萬分感謝。

demon2004

我有7組字母組，每兩個(gè)為一組，分別為 (A1.A2） 、(B1.B2) 、(C1.C2) 、(D1.D2)、 (E1.E2) 、(F1.F2)、(G1.G2)

現(xiàn)在，我要從每組中只抽取一個(gè)來和其他6個(gè)組成不同的字母組合，如A1.B1.C1.D1.E1.F1.G1

或者A1.B2.C2.D1.E2.F2.G1 等等，以此類推，應(yīng)該有40多種組合。請(qǐng)問各位，用Excel的哪個(gè)功能可以自動(dòng)將這些組合分別列出圖表。因?yàn)槭止ひ粋�(gè)個(gè)挑的話非常慢，而且極容易出錯(cuò)。最好能把公式貼出來，本人Excel一竅不通。

demon2004

頂，望高手指點(diǎn)

demon2004

繼續(xù)等待大蝦出現(xiàn)。

cola

<TABLE 54pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=72 border=0 x:str>

<COLGROUP>

<COL style="WIDTH: 54pt" width=72>





A1,B1



A2,B1



A1,B2



A2,B2



A1,C1



A2,C1



B1,C1



B2,C1



A1,C2



A2,C2



B1,C2



B2,C2



A1,D1



A2,D1



B1,D1



B2,D1



C1,D1



C2,D1



A1,D2



A2,D2



B1,D2

<TR 14.25pt" height=19>

<TD #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparen

cola

有128個(gè)組合吧。

Sub X()
Dim MyArrA(1 To 2)
Dim MyArrB(1 To 2)
Dim MyArrC(1 To 2)
Dim MyArrD(1 To 2)
Dim MyArrE(1 To 2)
Dim MyArrF(1 To 2)
Dim MyArrG(1 To 2)
MyArrA(1) = "A1"
MyArrA(2) = "A2"
MyArrB(1) = "B1"
MyArrB(2) = "B2"
MyArrC(1) = "C1"
MyArrC(2) = "C2"
MyArrD(1) = "D1"
MyArrD(2) = "D2"
MyArrE(1) = "E1"
MyArrE(2) = "E2"
MyArrF(1) = "F1"
MyArrF(2) = "F2"
MyArrG(1) = "G1"
MyArrG(2) = "G2"
For a = 1 To 2
    For b = 1 To 2
        For c = 1 To 2
            For d = 1 To 2
                For e = 1 To 2
                    For f = 1 To 2
                        For g = 1 To 2
                            n = n + 1
                            Cells(n, 1) = MyArrA(a) & "," & MyArrB(b) & "," & MyArrC(c) & "," & MyArrD(d) & "," & MyArrE(e) & "," & MyArrF(f) & "," & MyArrG(g)
                        Next g
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
End Sub

demon2004

謝謝樓上，我看看

demon2004

不是兩個(gè)的組合，而是7個(gè)，如A1，B1，C2，D1，E1，F(xiàn)2，G1這樣

cola

<TABLE  cellSpacing=0 cellPadding=0 width=182 border=0 x:str>

<COLGROUP>

<COL style="WIDTH: 137pt; mso-width-source: userset; mso-width-alt: 5824" width=182>





A1,B1,C1,D1,E1,F1,G1



A1,B1,C1,D1,E1,F1,G2



A1,B1,C1,D1,E1,F2,G1



A1,B1,C1,D1,E1,F2,G2



A1,B1,C1,D1,E2,F1,G1



A1,B1,C1,D1,E2,F1,G2



A1,B1,C1,D1,E2,F2,G1



A1,B1,C1,D1,E2,F2,G2



A1,B1,C1,D2,E1,F1,G1



A1,B1,C1,D2,E1,F1,G2



A1,B1,C1,D2,E1,F2,G1



A1,B1,C1,D2,E1,F2,G2



A1,B1,C1,D2,E2,F1,G1



A1,B1,C1,D2,E2,F1,G2



A1,B1,C1,D2,E2,F2,G1



A1,B1,C1,D2,E2,F2,G2



A1,B1,C2,D1,E1,F1,G1



A1,B1,C2,D1,E1,F1,G2



A1,B1,C2,D1,E1,F2,G1



A1,B1,C2,D1,E1,F2,G2



A1,B1,C2,D1,E2,F1,G1



A1,B1,C2,D1,E2,F1,G2



A1,B1,C2,D1,E2,F2,G1



A1,B1,C2,D1,E2,F2,G2



A1,B1,C2,D2,E1,F1,G1



A1,B1,C2,D2,E1,F1,G2



A1,B1,C2,D2,E1,F2,G1



A1,B1,C2,D2,E1,F2,G2



A1,B1,C2,D2,E2,F1,G1



A1,B1,C2,D2,E2,F1,G2



A1,B1,C2,D2,E2,F2,G1



A1,B1,C2,D2,E2,F2,G2



A1,B2,C1,D1,E1,F1,G1



A1,B2,C1,D1,E1,F1,G2



A1,B2,C1,D1,E1,F2,G1



A1,B2,C1,D1,E1,F2,G2



A1,B2,C1,D1,E2,F1,G1



A1,B2,C1,D1,E2,F1,G2



A1,B2,C1,D1,E2,F2,G1



A1,B2,C1,D1,E2,F2,G2



A1,B2,C1,D2,E1,F1,G1



A1,B2,C1,D2,E1,F1,G2



A1,B2,C1,D2,E1,F2,G1



A1,B2,C1,D2,E1,F2,G2



A1,B2,C1,D2,E2,F1,G1

<TR

cola

<TABLE 137pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=182 border=0 x:str>

<COLGROUP>

<COL style="WIDTH: 137pt; mso-width-source: userset; mso-width-alt: 5824" width=182>





A2,B1,C1,D1,E1,F1,G1



A2,B1,C1,D1,E1,F1,G2



A2,B1,C1,D1,E1,F2,G1



A2,B1,C1,D1,E1,F2,G2



A2,B1,C1,D1,E2,F1,G1



A2,B1,C1,D1,E2,F1,G2



A2,B1,C1,D1,E2,F2,G1



A2,B1,C1,D1,E2,F2,G2



A2,B1,C1,D2,E1,F1,G1



A2,B1,C1,D2,E1,F1,G2



A2,B1,C1,D2,E1,F2,G1



A2,B1,C1,D2,E1,F2,G2



A2,B1,C1,D2,E2,F1,G1



A2,B1,C1,D2,E2,F1,G2



A2,B1,C1,D2,E2,F2,G1



A2,B1,C1,D2,E2,F2,G2



A2,B1,C2,D1,E1,F1,G1



A2,B1,C2,D1,E1,F1,G2



A2,B1,C2,D1,E1,F2,G1

<TR 14.25pt" height=19>

<TD #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent" height=19>A2,B1,C2

demon2004

老大，真太謝謝你了，發(fā)了好多壇子就你幫我搞出來了。