求一个数据统计排列组合的公式，万分感谢。

demon2004

我有7组字母组，每两个为一组，分别为 (A1.A2） 、(B1.B2) 、(C1.C2) 、(D1.D2)、 (E1.E2) 、(F1.F2)、(G1.G2)

现在，我要从每组中只抽取一个来和其他6个组成不同的字母组合，如A1.B1.C1.D1.E1.F1.G1

或者A1.B2.C2.D1.E2.F2.G1 等等，以此类推，应该有40多种组合。请问各位，用Excel的哪个功能可以自动将这些组合分别列出图表。因为手工一个个挑的话非常慢，而且极容易出错。最好能把公式贴出来，本人Excel一窍不通。

demon2004

顶，望高手指点

demon2004

继续等待大虾出现。

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个组合吧。

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

不是两个的组合，而是7个，如A1，B1，C2，D1，E1，F2，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

老大，真太谢谢你了，发了好多坛子就你帮我搞出来了。