寻求高手。EXCEL表格中实现显示某条件的组合数计算结果！！！！！！

Question

寻求高手解决，问题如下：http://zhidao.baidu.com/question/392022042572561165.html#

Answer 1

你这个倒是可以实现，但是有些条件你最好说的详细些，例如你说在每组选取一个数字字符，可是你举得例子中第一到第五组中前四组都没有数字字符，这组合时要怎么显示？

 

我已经写了一个简单的代码并上传了个附件，你可以去你那个问题里看下。代码如下

Sub 组合()
Dim num(1 To 5) As String
[b6].ClearContents
minNum = 1
For i = 1 To 5  '从每一组中随机取一个字符
    maxNum = Len(Cells(i, 2))
    Randomize
    num(i) = Mid(Cells(i, 2), Int((maxNum - minNum + 1) * Rnd) + minNum, 1)
    For ii = 1 To i - 1     '防止重复
        If num(i) = num(ii) Then
            num(i) = Mid(Cells(i, 2), Int((maxNum - minNum + 1) * Rnd) + minNum, 1)
            ii = 0
        End If
    Next ii
Next i
For i = 1 To 5  '将取得5个字符组合起来
[b6] = [b6] & num(i)
Next i
End Sub

Answer 2

跟我详细说 我给你解决