Excel excel cortar caracteres de coluna

[Antonio Baptista]

Boa noite.

Preciso no EXCEL na coluna A que ele conte os primeiros 45 caracteres e elimine o restante dos caracteres a direita.

 

Exemplo Coluna A

123456789123456789123456789123456789123456789XXXXXXX33

Fique assim

123456789123456789123456789123456789123456789

Essa planilha tem 70 mil linhas queria se possível montar uma Macro , alguém consegue ajudar ?

 

Obrigado

[OreiaG]

Veja se este código lhe atende.

 

Sub TruncaNúmeros()
 Dim r As Range
  Columns(1).NumberFormat = "@"
  For Each r In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   r.Value = Left(r.Value, 45)
  Next r
End Sub

 

[Antonio Baptista]

@OreiaG  Boa noite , Excelente funcionou certinho muitooooo obrigadoooo