Preterotto,
Bom Dia!
Segue uma sugestão, via código VBA. Você pode utilizar o código abaixo, por exemplo:
Sub ExtrairNumero()
Dim i, UltimaLinha As Long
Dim Texto As String
UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = 1 To UltimaLinha
Texto = Mid(Range("A" & i).Value, 3, Len(Range("A" & i).Value) - 2)
Range("A" & i).Value = "'" & Texto
Next
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 13/01/2014 10:10 am