Inserir vírgula a partir da quarta casa decimal nas células

Prezados,
boa noite.

Exportei alguns valores de um banco de dados para uma planilha de Excel, porém, após esta ação, os valores de cada célula tiveram a vírgula que indicava a casa decimal retirada. Gostaria de implementar uma lógica para recolocar a vírgula de cada célula em sua posição original. Exemplo:

Valores antes da exportação (no banco de dados):

3630,019079
3630,025078
3630,028078
3630,030078
3630,030079

Valores após a exportação (na planilha de Excel):

3630019079
3630025078
3630028078
3630030078
3630030079

Tem alguma função ou lógica que possa ser implementada para restaurar os valores originais?

Espero ter sido claro. Muito obrigado pela ajuda.

Gustavo

gtroiano
Boa tarde!
Tente assim
Private Sub Worksheet_Activate()
Dim rng As Range
Dim ws As Worksheet
'Sua planilha
Set ws = ThisWorkbook.Sheets(“Plan1”)
'Sua Coluna
Set rng = ws.Range(“B:B”)
With rng
.NumberFormat = “0000"”,"“000000”
End With
End Sub

'Ou
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
'Sua planilha
Set ws = ThisWorkbook.Sheets(“Plan1”)
'Sua Coluna
Set rng = ws.Range(“B:B”)
With rng
.NumberFormat = “0000"”,"“000000”
End With
End Sub

Olá SPP,
boa noite.

Muito obrigado pela resposta. Não estou nada familiarizado com macros do Excel. Por esta razão, vou dar uma estudada antes e tentarei os comandos que você passou.
Se ficar muito complicado, farei as correções manualmente mesmo. Vai dar um pouquinho de trabalho, mas não é nada impossível, haja vista que não são tantos valores assim.
De qualquer forma, obrigado pela ajuda.

Abraços.

gtroiano
Bom dia!
Mande por EMAIL que retorno
[email protected]

1 Curtida

Eu usaria o ext.texto(A1,1,4) & “,” & ext,texto(A1,4,10). Essa fórmula aplicada em A1 retornaria o resultado esperado.

Nesse vídeo falo um pouco de como trabalhar com extração de dados de strings, que é o seu caso.

Valteson, Muito obrigado mesmo amigo. Estava com o mesmo problema do rapaz acima. Procurei em vários lugares. Consegui com sua fórmula.

1 Curtida