Com dados como:
Selecione as células a serem corrigidas e execute esta macro curta:
Sub FixData()
Dim r As Range
For Each r In Selection
r.Value = CDbl(r.Text)
Next r
End Sub
Esta macro alterará o valor subjacente para corresponder ao valor exibido.