Guru do Excel e Power BI

Sub Formatar_valores()
    
    
  'Formata contas e valores
  
    
Application.ScreenUpdating = False 'Desabilita a atualização de tela

Dim i As Long

Dim UltimaLinha As Long

i = 2

UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 2).End(xlUp).Row
    
If UltimaLinha < 2 Then UltimaLinha = 2
                  
    For i = 2 To UltimaLinha
              
     On Error Resume Next
     
         'Inserir aqui a instrução:
         
ThisWorkbook.Worksheets("Plan1").Range("D" & i).NumberFormat = "0.00" 'formatar valores = "$#,##0.00_);[Red]($#,##0.00)"
ThisWorkbook.Worksheets("Plan1").Range("B" & i).NumberFormat = "General"
'ThisWorkbook.Worksheets("Plan1").Range("C" & i).NumberFormat = "dd/mm/yyyy"
'ThisWorkbook.Worksheets("Plan1").Range("C" & i).NumberFormat = "text"
        
ThisWorkbook.Worksheets("Plan1").Range("D" & i).Value = CVar(ThisWorkbook.Worksheets("Plan1").Range("D" & i).Value)
ThisWorkbook.Worksheets("Plan1").Range("B" & i).Value = CDbl(ThisWorkbook.Worksheets("Plan1").Range("B" & i).Value)
'ThisWorkbook.Worksheets("Plan1").Range("C" & i).NumberFormat =
'ThisWorkbook.Worksheets("Plan1").Range("C" & i).NumberFormat =
        
     On Error GoTo 0
        
        
        
    Next

'Habilita a atualização de tela

Application.ScreenUpdating = True


End Sub

Sub TextoParaNúmero()
 Columns(2).TextToColumns
 Columns(4).TextToColumns
End Sub

Sub TextoParaNúmero()
    Columns(2).NumberFormat = "General"
    Columns(2).TextToColumns
    Columns(4).NumberFormat = "0.00"
    Columns(4).TextToColumns
End Sub