请教一个exceL问题,A1单元格的格式为+9*0.23+8*-0.56+-4*0.33+-5*-0.22 则B1 等于
请教一个exceL问题,A1单元格的格式为+9*0.23+8*-0.56+-4*0.33+-5*-0.22 则B1 等于+9+8+-4+-5
如上,A1的格式为一个数字乘以另一个小数,多个式子的之和,乘数和被乘数都可能为负,现要求B2只为*（乘号）之前数字的和,后面乘的小数都不要,前面的数字,不管正负都要,A1个是以加号开始,中间以加号连接,怎么样才能自动得到B2那种式子求大虾帮忙,
如上,A1的格式为一个数字乘以另一个小数,多个式子的之和,乘数和被乘数都可能为负,现要求B2只为*（乘号）之前数字的和,后面乘的小数都不要,前面的数字,不管正负都要,A1个是以加号开始,中间以加号连接,怎么样才能自动得到B2那种式子求大虾帮忙,
赞 S猪宝宝S 幼苗
共回答了11个问题采纳率：90.9% 举报
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我!
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我!
1年前 追问
8
谢谢，上面的功能具体怎么运行啊？
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗