小编Ola*_*and的帖子

我试图将此文本转换为数字：

我尝试了不同的公式，但是Excel无法识别该格式。但是，使用下面的代码只能转换前三个数字，并删除其余的数字。

Sub ConvertTextNumberToNumber()
For Each WS In Sheets
    On Error Resume Next
    For Each r In WS.UsedRange.SpecialCells(xlCellTypeConstants)
        If IsNumeric(r) Then r.Value = Val(r.Value)
    Next r
Next WS
End Sub

结果看起来像这样

有没有人在不删除任何数字的情况下对此进行轻松修复？