求排列公式

zxc2281

         请问各位师兄.将A-A-B-B-C-C做一个组合排列.例如"A-B-A-C-B-A"或B-C-C-A-B-A等..........能组合排列成多少组?.并将排列结果自动体现在A1-An行里.其公式该怎样写?.谢谢!!!!!!.

201228

你这个问题，真的好难。 帮你顶起

1091126096

你的例子有三个A，错了吧？                     

雄鹰

Sub aaa()
O = 1
For I = 1 To 3
For J = 1 To 3
  For K = 1 To 3
   For L = 1 To 3
    For M = 1 To 3
      For N = 1 To 3
        Cells(O, 1) = Chr(64 + I) & Chr(64 + J) & Chr(64 + K) & Chr(64 + L) & Chr(64 + M) & Chr(64 + N)
        O = O + 1
      Next
     Next
    Next
   Next
  Next
Next
End Sub

lmr1015

谢谢4楼，学习了一下

zxc2281

1091126096 发表于 2012-3-14 08:31
你的例子有三个A，错了吧？

对不起是写错了.多写了个"A"

zxc2281

雄鹰 发表于 2012-3-14 08:47
Sub aaa()
O = 1
For I = 1 To 3

你这是VBA公式.我要的是一般公式.毕需是各两位为一组.例如:A-B-A-C-C-B等........谢谢了!.

雄鹰

zxc2281 发表于 2012-3-15 01:55
你这是VBA公式.我要的是一般公式.毕需是各两位为一组.例如:A-B-A-C-C-B等........谢谢了!.

=CHAR(65+MOD(INT((ROW()-1)/243),3))&CHAR(65+MOD(INT((ROW()-1)/81),3))&CHAR(65+MOD(INT((ROW()-1)/27),3))&CHAR(65+MOD(INT((ROW()-1)/9),3))&CHAR(65+MOD(INT((ROW()-1)/3),3))&CHAR(65+MOD(ROW()-1,3))