Apesar do solicitante não ter se manifestado ainda, segue mais uma forma e com certeza deve ter outras, mas fica mais uma opção por VBA :
Sub Substituir_Ponto_virgula()
Dim sWhs As Worksheet
Dim UltimaLinha As Long
Dim sAdress
Dim sValor
Dim RngsSubstituir As Range
Set sWhs = Worksheets("Plan1")
UltimaLinha = sWhs.Cells(Rows.Count, 4).End(xlUp).Row
Set RngsSubstituir = sWhs.Range("D2:" & "G" & UltimaLinha)
For Each sValor In RngsSubstituir
sAdress = sValor.Address(0, 0)
With sWhs.Range(sAdress)
Range(sAdress).Value = Replace(sWhs.Range(sAdress).Value, ",", ".")
Range(sAdress).NumberFormat = "#,##0.00"
End With
Next
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/09/2016 6:56 am