Substituir Ponto por Virgula

Question

Pessoal, tenho uma planilha com mais de 20.000 celulas preenchidas com numeros,

so que em algumas casas os numeros estão da seguinte forma:

36.227.44

preciso de um codigo (via VBA), que substitua somente o ponto da casa decimal por ,

ficando 36.227,44

Desde ja agradeço a todos!

Answer 1

Olá,

você pode usar algo assim:

Dim myCell As Range

Dim rng As Range

Set rng = Range("A2:A15") 'ponha o seu intervalo aqui

For Each myCell In rng.Cells

    If Len(myCell.Text) > 3 Then

        If Mid(myCell.Text, Len(myCell.Text) - 2, 1) = "." Then

            myCell.Value = CCur(Left(myCell.Text, Len(myCell.Text) - 3) & "," & Right(myCell.Text, 2))

            myCell.NumberFormat = "#,##0.00"

        End If

    End If

Next myCell

Answer 2

Boa tarde!!!

Luiz, ficou PERFEITO!!!!!!!!!!....Muito obrigado!!!!!!!!!!!

Valeu!!!!!!!mesmo pela GRANDE ajuda!!!!!!!

Att..