请教一个exceL问题,A1单元格的格式为+9*0.23+8*-0.56+-4*0.33+-5*-0.22 则B1 等于+9+8+-4+-5如上,A1的格式为一个数字乘以另一个小数,多个式子的之和,乘数和被乘数都可能为负,现要求B2只为*(乘号)之前
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/06 09:36:11
请教一个exceL问题,A1单元格的格式为+9*0.23+8*-0.56+-4*0.33+-5*-0.22 则B1 等于+9+8+-4+-5如上,A1的格式为一个数字乘以另一个小数,多个式子的之和,乘数和被乘数都可能为负,现要求B2只为*(乘号)之前
请教一个exceL问题,A1单元格的格式为+9*0.23+8*-0.56+-4*0.33+-5*-0.22 则B1 等于+9+8+-4+-5
如上,A1的格式为一个数字乘以另一个小数,多个式子的之和,乘数和被乘数都可能为负,现要求B2只为*(乘号)之前数字的和,后面乘的小数都不要,前面的数字,不管正负都要,A1个是以加号开始,中间以加号连接,怎么样才能自动得到B2那种式子求大虾帮忙,
请教一个exceL问题,A1单元格的格式为+9*0.23+8*-0.56+-4*0.33+-5*-0.22 则B1 等于+9+8+-4+-5如上,A1的格式为一个数字乘以另一个小数,多个式子的之和,乘数和被乘数都可能为负,现要求B2只为*(乘号)之前
Function chq(a As Range)
Dim s As String,ans As String,i%
s = a.Formula
Do While InStr(1,s,"*") > 0
i = InStr(1,s,"*")
ans = ans & Left(s,i - 1)
s = Mid(s,i + 1,1000)
i = InStr(1,s,"+")
If i > 0 Then s = Mid(s,i,1000)
Loop
chq = ans
End Function
用上面的嗯Function 就好了,不会用的话,请HI我!