|
1学分
Sub z3() '提取一个字符串中的数值无法实现excle表公式的结果
Dim sr, sr1
sr = Range("a1") ' a1的值是 "墙面抹灰面积4.8928"
sr1 = MidB(sr, Application.SearchB("?", sr), Len(sr) * 2 - LenB(sr)) '按道理这里应该出来的是4.8928,但现在出来的是空值
Range("c1") = sr1
End Sub
'问题:
'Len(sr) '字符数是12
'LenB(sr) '字节数正确应该是18,但是这里出来结果显示是24,我在excle表中使用len,lenb公式出来的结果都没错。是不是我的语法有什么用得不对的地方。
|
最佳答案
查看完整内容
把下面这行改下就行了:
sr1 = MidB(sr, Application.SearchB("?", sr), Len(sr) * 2 - LenB(sr))
改成:
sr1 = MidB(sr, Application.SearchB("?", sr), 100)
|