Se:
- você tem um bloco de células já formatado para Scientific
- as células têm dados em vez de fórmulas
Hi-ilumine as células e execute esta pequena macro:
Sub PseudoScientific()
Dim DQ As String, mesage As String
Dim r As Range
DQ = Chr(34)
For Each r In Selection
v = r.Text
v = Replace(v, "E", " x 10^")
mesage = DQ & v & DQ
r.NumberFormat = mesage & ";" & mesage & ";" & mesage & ";"
Next r
End Sub
Antes:
edepois: