Em Q1 , digite:
=--MID(P1,1,LEN(P1)-1)*(IF(RIGHT(P1,1)="M",1000000,(IF(RIGHT(P1,1)="B",1000000000,1))))
e copie para baixo:
Sevocêprecisardaconversãonamesmacélula,seránecessáriaumamacro:
SubKonverter()DimrAsRange,vAsString,sAsStringForEachrInColumns(16).SpecialCells(2)v=r.Texts=Right(v,1)SelectCasesCase"M"
r.Value = 1000000 * CDbl(Mid(v, 1, Len(v) - 1))
Case "B"
r.Value = 1000000000 * CDbl(Mid(v, 1, Len(v) - 1))
Case Else
r.Value = CDbl(v)
End Select
Next r
End Sub