Office中国论坛/Access中国论坛

标题: 求一个数据统计排列组合的公式，万分感谢。 [打印本页]

作者: demon2004 时间: 2007-1-24 10:06
标题: 求一个数据统计排列组合的公式，万分感谢。
我有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 时间: 2007-1-24 20:11
顶，望高手指点

作者: demon2004 时间: 2007-1-24 21:33
继续等待大虾出现。

作者: cola 时间: 2007-1-24 21:46
<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 时间: 2007-1-25 02:42
有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 时间: 2007-1-25 07:21
谢谢楼上，我看看

作者: demon2004 时间: 2007-1-25 07:23
不是两个的组合，而是7个，如A1，B1，C2，D1，E1，F2，G1这样

作者: cola 时间: 2007-1-25 18:35

<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 时间: 2007-1-25 18:36
<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 时间: 2007-1-25 21:19
老大，真太谢谢你了，发了好多坛子就你帮我搞出来了。

作者: rebecca97 时间: 2007-1-26 16:51
太夸张了吧！！！[em08]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)