[已解决]求数字排列组合公式

xxxx5683123

求数字排列组合公式

详细说明在附件里

求数字排列组合公式.rar (9.81 KB, 下载次数: 112)

2012-8-4 20:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

happym8888

2012-8-19 02:30

求数字组合公式(递归).rar (12.43 KB, 下载次数: 102)

2012-8-19 02:29 上传

点击文件名下载附件

1. Private Sub CommandButton1_Click()
   
2.     Range("B:B").Clear
   
3.     Range("B:B").NumberFormatLocal = "@"
   
4.     Dim 个数 As Long, MyStr As String
   
5.     MyStr = Range("A2")
   
6.     n = Len(MyStr)
   
7.     For i = 1 To n
   
8.     xxx = xxx & "-" & Mid$(MyStr, i, 1)
   
9.     Next i
   
10.         Arr = Split(Right(xxx, Len(xxx) - 1), "-")
    
11.     个数 = Cells(1, 1)
    
12.     Call 递归("", Arr, 0, 0, 个数)
    
13. End Sub
    
14. 
    
15. Sub 递归(a, Arr, x As Long, y As Long, z As Long)
    
16.     If y = z Then
    
17.         Range("b65536").End(xlUp).Offset(1) = a: Exit Sub
    
18.     End If
    
19.     If x = UBound(Arr) + 1 Then Exit Sub
    
20.     If y + UBound(Arr) - x + 1 < z Then Exit Sub
    
21.     Call 递归(a & Arr(x), Arr, x + 1, y + 1, z)
    
22.     Call 递归(a, Arr, x + 1, y, z)
    
23. End Sub
    
24. 
    

复制代码

跳转到最佳答案楼层

happym8888

求数字组合公式(递归).rar (12.43 KB, 下载次数: 102)

2012-8-19 02:29 上传

点击文件名下载附件

1. Private Sub CommandButton1_Click()
   
2.     Range("B:B").Clear
   
3.     Range("B:B").NumberFormatLocal = "@"
   
4.     Dim 个数 As Long, MyStr As String
   
5.     MyStr = Range("A2")
   
6.     n = Len(MyStr)
   
7.     For i = 1 To n
   
8.     xxx = xxx & "-" & Mid$(MyStr, i, 1)
   
9.     Next i
   
10.         Arr = Split(Right(xxx, Len(xxx) - 1), "-")
    
11.     个数 = Cells(1, 1)
    
12.     Call 递归("", Arr, 0, 0, 个数)
    
13. End Sub
    
14. 
    
15. Sub 递归(a, Arr, x As Long, y As Long, z As Long)
    
16.     If y = z Then
    
17.         Range("b65536").End(xlUp).Offset(1) = a: Exit Sub
    
18.     End If
    
19.     If x = UBound(Arr) + 1 Then Exit Sub
    
20.     If y + UBound(Arr) - x + 1 < z Then Exit Sub
    
21.     Call 递归(a & Arr(x), Arr, x + 1, y + 1, z)
    
22.     Call 递归(a, Arr, x + 1, y, z)
    
23. End Sub
    
24. 
    

复制代码

xxxx5683123

谢谢高手哈哈哈哈

xxxx5683123

能用公式解决这个问题吗

xxxx5683123

happym8888 发表于 2012-8-19 02:30

请教高手能用公式解决这个吗

xxxx5683123

=TEXT(SMALL(IF((COLUMN(A:I)>ROW($1:$9))*(COLUMN(A:I)<=LEN($A$2))*(ROW($1:$9)<LEN(A$2)),MID($A$2,ROW($1:$9),1)*10+MID($A$2,COLUMN(A:I),1),100),ROW(A1)),"[<100]00;")

谁能帮我修改下这公式，结果有重复呀