Aqui está um exemplo típico do valor exibido na célula que não corresponde ao valor na barra de fórmulas:
ObservequeoformatodacélulaéGeral
Selecioneascélulascomoestasquevocêdesejacorrigireexecutarestamacrocurta:
SubFixData()DimrAsRangeForEachrInSelectionr.Value=r.TextNextrEndSub
paraproduzir:
(a macro não tenta ajustar o formato da célula)