评估一个公式的单元格的内容
假设我有一列值如下：
A 3' x 5' 4' x 6' 5' x 8' 6' x 9' 10' x 14' 2' 3 x 8' 我怎样才能把这些值分解为整数，这样我就可以对它们进行操作了？
对于前几个值，我显然希望乘以3 x 5 4 x 6等，但是对于像上面显示的最后一个值那样的值会变得很棘手。 在这种情况下，它需要是2.25 x 8 （.25 == 3/12英寸）。 这可能吗？
首先确保使用TRIM删除开始和结束处的空格，然后使用：
=(LEFT(A1;FIND("'";A1)-1)+("0" & MID(A1;FIND("'";A1)+2;FIND("x";A1)-FIND("'";A1)-2))/12)*MID(A1;FIND("x";A1)+1;LEN(A1)-FIND("x";A1)-1)
根据您的区域设置，您可能需要replace“;” 按“，”
试试这个：
Public Function area(s As String) As Variant Dim ary, ti As String, leng(0 To 1) As Double, i As Long Dim bry ti = Chr(39) ary = Split(Replace(s, " ", ""), "x") For i = 0 To 1 If Right(ary(i), 1) = ti Then leng(i) = CDbl(Mid(ary(i), 1, Len(ary(i)) - 1)) Else bry = Split(ary(i), ti) leng(i) = CDbl(bry(0)) + CDbl(bry(1)) / 12 End If Next i area = leng(0) * leng(1) End Function