Excel Remover virgula de valores VBA - EXCEL

[Cfernandes]

Olá, tentei diversos códigos para remover a vírgula no Excel, mas alguns não funcionaram ou trouxeram um valor não esperado.

 

Preciso que seja via VBA, pois é uma planilha automatizada que apenas alimento a base de dados.

 

Na planilha em anexo, preciso que os números da coluna S, V e W tenham 15 caracteres, mas sem a virgula.

 

Por exemplo:

 

6777,71, me traga 000000000067771, onde os dois últimos números são reservados as casas decimais. 

ou naqueles números sem valores "quebrados" nas casas decimais, acrescente os dois zeros : 2300, me traga 000000000230000

 

 

DADOS_2 .xlsx

[Edson Luiz Branco]

Olá, @Camila Haubert

 

Sub FormataNúms()
  Dim rg As Range, cél As Range
  With Worksheets("Planilha1").Range("A1").CurrentRegion
    Set rg = Union(.Columns("S"), .Columns("V:W"))
  End With
  rg.NumberFormat = "@"
  For Each cél In rg
    If IsNumeric(cél.Value) Then
      cél.Value = Replace(Format(cél.Value, "0000000000000.00"), ",", "")
    End If
  Next cél
End Sub

 

[Cfernandes]

@Edson Luiz Branco Muito obrigada!

 

Deu certo!