当前位置:网志问答 > 教育科学 > 求助Excel或者VBA大神,帮忙给出算法或者VBA代码
已有回答

求助Excel或者VBA大神,帮忙给出算法或者VBA代码

Excel有一些数据,例如(2.9,0.6,0.3,0.8,0.7,3,2.2,2.6,2.7,.1.3,3,2.8),目前想将他们自动凑成接近9的组合,每个组合内的数不能重复,优先凑成最接近9的组,直至全部分组完成。网志问答在·江苏浏览152次收到腾讯网的热心用户小小芝麻官_240关于洛杉矶求助Excel或者VBA大神,帮忙给出算法或者VBA代码的提问,关于这些疑难问题,进行了深入的分析。得到了网志问答众多网友的支持,得到了如下解决方案,摘录了部分优质回答,如对此有任何好的意见,欢迎大家进行探讨共同解决!

详细问题描述及疑问:期待您的答案,滴水之恩,来日我当涌泉相报 !

本页链接:http://www.oxrm.com/question/1684823792212291

AD728-90
满意答案

第1个优秀答案:

Dimarr1(1To2036,1To1四江和)Dimkk%Sub求和接近9的组合()'递归算法,求和为9±0.5的组合Dimarr,i%kk=0E还秋备此rasearr1'(2.9,0.6,0.3,0.8,0.7,3,2.2,2.6,2.7,1.3,3,2.8)'因为你要求:每个组合耐且证犯片岩令状内的数不能重复,'所以,将上述数据中重复的3只保留1个,赋予变量arrarr=Arra拉你各画帮任特通常水y(2.9,0.6,0.3,0.8,0.7,3,2.2,2.6,2.7,1点在细提听你调劳粉里.3,2.8)zu过集左早最有互木hearr,0,"",0Range("a:a").ClearContentsRange("A1").Resize(2036)=arr1EndSubSubzuhe(促越速端arr,x,sr,y)Ify>=8.5Andy<=9.5Thenkk=kk+1arr1(kk,1)=Left(sr,Len(sr)-1)&"="&yExitSubEndIfIfx<11Thenzuhearr,x+1,sr&Format(arr(x),"0.0")&"+",y+arr(x)zuhearr,x+1,sr,yEndIfEn左推传dSub


希望以上的回答,能够帮助你。更多关于求助Excel或者VBA大神,帮忙给出算法或者VBA代码的知识及相关经验请访问经验知识https://www.5058.cn/,能够帮助你解决更多的问题,学习更多的经验。
AD160-600