Question

excel计算12个字符排列组合

如何计算类似于（1a2b,2232,2256,2256,9870,9876,9842,uytr,8i8i,10o9,19i7,290o）所以形成的组合

Answer 1

我算了一下，12个字符的全排列是479001600个，如果放在07版以上的Excel工作表了，一个单元格写一个，需要每列写满1048576行，一共需要将近457列。
这个任务有点麻烦，除了VBA，其它的做不到。

追问

那估计是我没说清楚，就是(A,B,C,D,E,F,G,H,I,J,K,L)他们十二个字符形成，4个ADCB这个组合

追答

三个问题：
1、你确定是组合，不是排列。也就是ABCD和ABDC、ACBD等，都随便只列出一种。
2、假如A,A,B,C……，字符中有重复，结果是否要去掉重复？
3、每一种结果，每个字符是否前后连接放在一个单元格内？还是一个字符占一个单元格、一行为一种结果？

追问

嗯，是组合，要去掉重复的组合，每一组结果放在一个单元格内，谢谢

追答

今天忙死了……抱歉没空回复。请下载附件。

如下图，打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

 

Sub zuhe()
Dim d, ky
Set d = CreateObject("Scripting.Dictionary")
Dim Myarr
Myarr = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L")
Dim i, j, k, l, m, n, o, p, q, r As Integer
Range("A:A").ClearContents
For i = 1 To 12 - 3
    For j = i + 1 To 12 - 2
        For k = j + 1 To 12 - 1
            For l = k + 1 To 12
                r = r + 1
                d(Myarr(i - 1) & _
                  Myarr(j - 1) & _
                  Myarr(k - 1) & _
                  Myarr(l - 1)) = ""
            Next l
        Next k
    Next j
Next i
i = 0
For Each ky In d.keys
    i = i + 1: Range("A" & i).Value = ky
Next
Set d = Nothing 
End Sub

Answer 2

2003输入数组公式 =PRODUCT(ROW(5:10))/PRODUCT(ROW(1:6))

追问

是把它们组合到一起，类似于单个A,D,C,E,E,A,W,C,W,C,A,C组合起来，形成ADCW这种