单元格内容替换

allwin88

各位老师：
小弟有个单元格替换的问题：

某单元格内容：1200mm*1100mm*1460mm*1   1200mm*1100mm*1370mm*1
用VB替换如下：
Cells.Replace "1200mm*1100mm*1370mm", "1.8084"
Cells.Replace "1200mm*1100mm*1460mm", "1.9272"

想要获得的结果：1.9272*1 1.8084*1
但实际获得的结果：1.8084*1

如果把代码顺序变成如下：
Cells.Replace "1200mm*1100mm*1460mm", "1.9272"
Cells.Replace "1200mm*1100mm*1370mm", "1.8084"

实际获得结果正确如下：
1.9272*1 1.8084*1

麻烦各位老师指教，是什么原因导致？因为实际作业中，难免顺序是无法做到一致的。

allwin88

自己顶下~
自己顶下~

siliconxu

这个应该是Excel的内容，感觉你发错区了~~
不过vba的话，是一样的道理。你要考虑的不是把整个算式替换成一个结果，而是把跟公式无关的字符去掉，然后直接用公式来计算结果。下面这个函数你可以试一下。

Public Function StringToFormula(strRef As String) As Double
    Dim s As String
    s = Replace(strRef, "mm", "")
    StringToFormula = Evaluate(s) / 1000000000
End Function