求助复式组合公式
百度知道用户在来自团提交了关于“蒋超良求助复式组合公式”的提问，欢迎大家帮忙网友并涌跃发表自己的观点。求助公式，万分感谢期待您的回答，感谢你,我会记得你对我的好的！
浏览839次2024-05-01最佳答案
第1个回答
=IFERROR(COMBIN($A3,B$2),"")若要列出每组号码，看下面。Dimarr1(),n%,m&,zs%,qs%Sub组合1()'递归算法Dimarr()AsString,i%n=0:zs=0:qs=05OnEr评陈非攻法行该rorResumeNextI费急养那犯足国伯混刑fzs>=1ThenGoTo10zs=InputBox("请输入志总元素（号码）的个数")10Ifzs<1Or***.**mber=13ThenGoTo5qs=InputBox("请输入所取元素（号码）的个数")Ifqs<1Or***.**mber=13ThenGoTo5m=***.combin(zs交民银速医州盐喜啊独少,qs)ReDimarr(1Tozs)Fori=1To复级须素吃zsa检法轴跟混棉顺仍省具还rr(i)=***.text(i,***.rept(0,Len(zs)))Nextizuhearr,1,"",0Range("N:N").ClearContentsRange("N1").Resize(m)=arr1MsgBox"从"&zs&"个号码中取"&qs&"个为一组，共"&_m&"组，排列在N列中。"EndSubSubzuhe(arr,x,sr,y)Ify=品冷qsThenIfn=0ThenReDimarr1(1Tom,1To1)n=n+1arr1(n,1)句稳在则图垂织一=Left(sr,Len(sr)-1)E元益xitSubEndIfIfx<zs+1Thenzuhearr,x+1,sr&arr(x)&",",y+1zuhearr,x+1,sr,yEndIfE跳罗ndSub
希望360知道的回答，能够帮助到你。
