[已解决]急公式 数值0-9 任意三位数字组合相加等于20.。。。。

chenwenke

比如a1:20  b2： 0256789    c3：三位数字组合相加 d3：三位数字组合相加 e3：三位数字组合相加f3：三位数字组合相加g3：三位数字组合相加
a1:20           b2： 0256789      c3:578   5+7+8=20这样的         
效果
a1:20           b2： 0256789      c3:578    f3：569    直接把b2里面数据等于20的组合出来

最佳答案

月排行榜 / 总排行榜

grf1973

2016-11-10 21:08

1. Function GetRight(s, x, n)  's为和，X为字符串，n为第几个
   
2.     Dim arr(1 To 10)
   
3.     For i = 1 To Len(x) - 1
   
4.         x1 = Mid(x, i, 1)
   
5.         For j = i + 1 To Len(x)
   
6.             x2 = Mid(x, j, 1)
   
7.             x3 = s - x1 - x2
   
8.             If InStr(Mid(x, j + 1), x3) Then
   
9.                 p = p + 1
   
10.                 arr(p) = x1 & x2 & x3
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     GetRight = arr(n)
    
15.     If GetRight = 0 Then GetRight = ""
    
16. End Function
    
17. 
    

复制代码

跳转到最佳答案楼层

tgydslr

如图
D1

1. =IFERROR(TEXT(SMALL(IF(MMULT(--MID(TEXT(SMALL(IF(TRANSPOSE(--MID($C1,ROW($1:$7),1))>MOD(SMALL(IF(--MID($C1,ROW($1:$7),1)<TRANSPOSE(--MID($C1,ROW($1:$7),1)),--MID($C1,ROW($1:$7),1)*10+TRANSPOSE(--MID($C1,ROW($1:$7),1))),ROW(INDIRECT("1:"&COMBIN(7,2)))),10),SMALL(IF(--MID($C1,ROW($1:$7),1)<TRANSPOSE(--MID($C1,ROW($1:$7),1)),--MID($C1,ROW($1:$7),1)*10+TRANSPOSE(--MID($C1,ROW($1:$7),1))),ROW(INDIRECT("1:"&COMBIN(7,2))))*10+TRANSPOSE(--MID($C1,ROW($1:$7),1))),ROW(INDIRECT("1:"&COMBIN(7,3)))),"000"),{1,2,3},1),{1;1;1})=$B1,SMALL(IF(TRANSPOSE(--MID($C1,ROW($1:$7),1))>MOD(SMALL(IF(--MID($C1,ROW($1:$7),1)<TRANSPOSE(--MID($C1,ROW($1:$7),1)),--MID($C1,ROW($1:$7),1)*10+TRANSPOSE(--MID($C1,ROW($1:$7),1))),ROW(INDIRECT("1:"&COMBIN(7,2)))),10),SMALL(IF(--MID($C1,ROW($1:$7),1)<TRANSPOSE(--MID($C1,ROW($1:$7),1)),--MID($C1,ROW($1:$7),1)*10+TRANSPOSE(--MID($C1,ROW($1:$7),1))),ROW(INDIRECT("1:"&COMBIN(7,2))))*10+TRANSPOSE(--MID($C1,ROW($1:$7),1))),ROW(INDIRECT("1:"&COMBIN(7,3))))),COLUMN(A1)),"000"),"")

复制代码

三键横拉下拉即可
堆出来的公式，惭愧
优化空间很大，

tgydslr

123.rar (8.76 KB, 下载次数: 6)

2016-11-10 15:48 上传

点击文件名下载附件
没练习，都手生了，法子也笨了

grf1973

1. Function GetRight(s, x, n)  's为和，X为字符串，n为第几个
   
2.     Dim arr(1 To 10)
   
3.     For i = 1 To Len(x) - 1
   
4.         x1 = Mid(x, i, 1)
   
5.         For j = i + 1 To Len(x)
   
6.             x2 = Mid(x, j, 1)
   
7.             x3 = s - x1 - x2
   
8.             If InStr(Mid(x, j + 1), x3) Then
   
9.                 p = p + 1
   
10.                 arr(p) = x1 & x2 & x3
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     GetRight = arr(n)
    
15.     If GetRight = 0 Then GetRight = ""
    
16. End Function
    
17. 
    

复制代码

chenwenke

tgydslr 发表于 2016-11-10 15:46
如图
D1
三键横拉下拉即可

哈哈，你们都是对的，非常感谢！公式在少点更加好