怎样做排列组合？

dani

比如现在有一个 长度是9 位的字符串(ABCDEFGHI)，想列出全部的只取其中7个字符的组合值： CDEFGHI ADEFGHI ABEFGHI ABCFGHI ABCDGHI …… 共36个。 用函数或VBA均可。多谢

sunnet

不明白。请把要求叙述得清楚一些。

bigbigpig

Sub combination() Dim a, b, c, d, e, f, g, h, i, j, k As Integer Dim str As String j=1 For a = 0 To 1 For b = 0 To 2 Step 2 For c = 0 To 3 Step 3 For d = 0 To 4 Step 4 For e = 0 To 5 Step 5 For f = 0 To 6 Step 6 For g = 0 To 7 Step 7 For h = 0 To 8 Step 8 For i = 0 To 9 Step 9 k = a / 1 + b / 2 + c / 3 + d / 4 + e / 5 + f / 6 + g / 7 + h / 8 + i / 9 If k = 7 Then str = "" If a <> 0 Then str = str & "A" If b <> 0 Then str = str & "B" If c <> 0 Then str = str & "C" If d <> 0 Then str = str & "D" If e <> 0 Then str = str & "E" If f <> 0 Then str = str & "F" If g <> 0 Then str = str & "G" If h <> 0 Then str = str & "H" If i <> 0 Then str = str & "I" cells(j,1)=str j=j+1 End If Next i Next h Next g Next f Next e Next d Next c Next b Next a End Sub 如用MID函数，修改一下以上程序可得到任意长度为9的字符串的任取7个字符的组合。

[此贴子已经被作者于2003-4-24 14:38:43编辑过]

dani

以下是引用sunnet在2003-4-24 14:03:49的发言： 不明白。请把要求叙述得清楚一些。

在字符串 ABCDEFGHI (9位) 中取出7个字符组成一个新的字符串，想要列出所有可能。

bigbigpig

以下是引用dani在2003-4-24 14:56:13的发言： 在字符串 ABCDEFGHI (9位) 中取出7个字符组成一个新的字符串，想要列出所有可能。

to dani: 你是要的组合吧？36种可能是组合的结果，如果是排列的话，可能性更多！

[此贴子已经被作者于2003-4-24 15:25:46编辑过]

dani

to bigbigpig: 是的，是组合。

dani

to bigbigpig: 你的方法很巧妙，真高手哦！可以用了。 多谢多谢……

bigbigpig

to dani: 多谢夸奖。互相帮助才能共同进步嘛。这也是这个论坛的宗旨吧？能帮上忙就好！

dani

to 半榻茶烟: 有错误。有的结果出现两次，有的甚至出现了3次。

bigbigpig

以下是引用半榻茶烟在2003-4-24 16:50:57的发言： 用公式的解： =REPLACE(REPLACE($M$1,MIN(IF(ROW()<{9,16,22,27,31,34,36,37},{1,2,3,4,5,6,7,8})),1,""),ROW()+9-MIN(IF(ROW()<{9,16,22,27,31,34,36,37},{9,16,22,27,31,34,36,37})),1,"")

to 半榻茶烟： 用VBA求解，思路应该说相对容易理解。函数虽然简洁，但却并不容易掌握。不知半榻茶烟兄能否抽些时间解释一下这个数组公式呢？(尤其令我不解的是公式中出现的一组特定的数字，这些数字是怎么确定的呢？)