如何在Excel中将带有“下标”分数的数字转换为十进制？

Question

我有成千上万的数字是以无法用的格式提供给我的：

9⅝, 9¼, 9¾, 10¼

在Excel的每一行中，它们都是这样显示的。我想把它们转换成十进制。我试过了=FIXED(A2, 3)，但这并没有起作用。问题的出现是因为分数的格式很奇怪。

是否有可实现的公式或宏以获得所需的十进制结果？

非常感谢，复活节快乐！

Answer 1

问题是，每个分数都是单个unicode字符。如果我们隔离单元格中的单个字符并运行：

Sub WhatsIt()
    Dim v As Variant
    v = ActiveCell.Value
    MsgBox Asc(v) & vbCrLf & AscW(v) & vbCrLf & Application.WorksheetFunction.Dec2Hex(AscW(v))
End Sub

我们看到：

​

​

现在很容易将这些项转换为实际值。以下是一个开始：

Public Function Konvert(s As Variant) As Double
    Dim d As Double

    d = CDbl(Mid(s, 1, Len(s) - 1))
    If AscW(Right(s, 1)) = 8541 Then d = d + 0.625
    Konvert = d
End Function

​

​

您必须展开此代码以包括其他分数。以下是一些常见的问题：

​

​

Answer 2

所以这里有一个解决办法。我假设数字的格式是设定的，你不能把分数分开。

它需要一些体力劳动，只有当你有合理数量的分数可以手动调整时，它才能真正可行。

来了..。

假设原始数据位于A列中，则创建一些助手列：

• 列B:提取分数，例如：=RIGHT(A2, 1)
• 列C:现在使用这些信息提取整数，例如：=SUBSTITUTE(A2, B2, "")

创建从不可用的分数格式到可在excel中使用的查找：

• 查找中的第一列应该是不可用格式的分数。
• 第二列应该是可用格式的分数，首先将单元格格式化为第二列>格式单元格菜单>数字选项卡>分类为分数>键入“最多一位数(1/4)”
• 在相应的单元格中手动写入等效值(例如，在单元格H2中写5/8)

​

​

现在在主表中查找调整后的分数。

• 列D:查找调整后的分数，例如：=VLOOKUP(B2, $G$2:$H$4, 2, 0)
• 列E:重新计算可用的整数，例如：=C2 +D2

完整的解决方案屏幕截图如下：

​

​