求请各位都是帮我修改一下VBA的公式，感激不尽！

mind1238

Sub aaa()
Dim arr, brr, i&, crr, j&, s$, n#
arr = Range("b2:b" & [b65536].End(3).Row)
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
  crr = Split(arr(i, 1), "x")
  For j = 0 To 1
    s = Application.Trim(crr(j))
    s = Replace(s, " ", "-")
    s = Replace(s, "'", "*12")
    s = Replace(s, """", "")
    n = Evaluate(s) * 25.4
    brr(i, j + 1) = n
  Next j
Next i
[i2].Resize(UBound(brr), 2) = brr
End Sub
已有VBA公式，但是这个公式的计算结果和我人工算出来的有点不一样
请老师们查看一下
列M和N中=0代表数据不一致，1代表数据一致

一指禅62

检测不出代码计算有问题。楼主确定：

1.人工计算结果是正确的吗？

2.代码计算与人工计算，两者的数量关系、逻辑关系是一致的吗？

mind1238

一指禅62 发表于 2018-10-6 10:40
检测不出代码计算有问题。楼主确定：

1.人工计算结果是正确的吗？

是一致的喔
只不过是数据上有点不一样
意思是：原代码应用在有英寸和英尺的数据上
现在的数据是只有英寸没有英尺的
但是逻辑数值是没变的
我的人工计算的逻辑是：61 3/16"x4"先把"x"分列
然后61 3/16"=61+（3/16）=61.1875*25.4=1554.1625
4*25.4=101.6

一指禅62

mind1238 发表于 2018-10-6 10:46
是一致的喔
只不过是数据上有点不一样
意思是：原代码应用在有英寸和英尺的数据上

将 s = Replace(s, " ", "-") 给为

s = Replace(s, " ", "+")