excel如何求固定值

时间：2019.10.27 发布人：仔仔1007
excel如何求固定值

已解决问题

谷歌仔仔1007用户在2019.10.27提交了关于“珍宝岛excel如何求固定值”的提问，欢迎大家涌跃发表自己的观点。目前共有2个回答，最后更新于2024-12-29T17:10:55。

一列数字，十几个，如果用EXCEL的功能选取其中的数值总和等于指定的数

希望大家能够帮助她。

详细问题描述及疑问：

一列数字，十几个，如果用EXCEL的功能选取其中的数值总和等于指定的数

期待您的答案，没有什么华丽的语言,但是我对你的感谢不会减少 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：突突兔2019  



Subsum来自Num()

Dimend问答R%,r$

Dimshuzu()AsString,x@,y@,A&

endR=Application.WorksheetFunction.Count(Range("A:A"))

r="a1:a"&endR

'A列降序排列

WithActiveShee速某调细仅种门妈飞品t.Sort

.SortFields.Clear

.SortFields.AddKey:=Range("A1"),Order:=xlDescending

.SetRangeRange(r)

.Apply

EndWith

y=[B2]

Ify>Application.WorksheetFunction.Sum(Range(r))ThenEnd

Columns("C:D").ClearContents

ReDi脸跟等陆群更叫措讨氢mshuzu(endR)

'寻找和=y的**

Fori=1ToendR

r="a"&i&":a"&endR

Ify>Appli达次基cation.Work练学评光突松远sheetFunction.Sum(Range(r))The精句nExitFor

ReDims事凯内之判负排研率英huzu(endR)

x=0:A=0

Forj=iToendR

5任0x=x+Cells(j,1)

Ifx>yThen

x=x-Cells(j,1司移金减逼施福汉棉)

Else

shuzu(A)=Cells(j,1):A=A+1:j2=j

EndIf

Ifx=y房便年万ThenGoTo100

Nextj

Ifj2>=endR-1ThenGoTo80

A=A-1:shuzu(A)=""

Ifj2<endR-1Thenshu命数调频左银病宗构让维zu(A)=""ElseGoTo80

x=x-Cells(j2,1):j=j2+1:k=k+1

Ifk+j2>endRThe球轴nGoTo80

GoTo50

80IfAbs(x-y居)<100ThenExitFor

Nexti

'输入**、设置单元格格式

100[C1]="找到数之和"

[C1].Interior.Color=5296274:[C1].h**o岁必里演钢示殖频更杨rizontalAlignment=xlCenter

风村胡终获杂若杀[C2]=x:[C2].NumberForm转何解太令atLocal="G/通用格式"

[**]="误差"

[**].Interior.Color=5296274:[**].h**伟约家皇婷师有展未查村orizontalAlignment=xlCenter

[C5]=x-y

[C5].NumberFormatLocal="G/通用格式"

[D1]="找到以下"&A&"个数"

[D1].h**orizo余立脸湖剂理势包报氧ntalAlignm行反致思方升开维件ent=xlCenter

[D1].Interior.Color=5296274

[D2].Resize(A)=Application.Transpose(shuzu)

EndSub


第2个回答

用户名：数码青春  

Excel的“规划求解”功能了解下！