Eliminar espaços no começo e no final da célula.

Os dados abaixo são de uma planilha de excel, de extrato de banco, o relatório é com inumeras linha, preciso transformar em linha somavel tanto a coluna valor quanto a coluna cheque, o problema que alguns numeros veem com espaço no começo e outros com espaço no final, pode ver abaixo que não ficam alinhados, sendo assim não é possível efetuar a soma, por favor me ajudem, isso iria ajudar muito em meu trabalho diário.


Cheque Valor
0040333 6.721,38
0064487 3.990,10
0067033 1.238,89
0067068 3.187,50
0067496 5.378,00
0096453 13.079,76
0099473 13.816,62
0131997 905,80
0132046 7.730,00
0158666 570,00
0276073 11.087,75
0386723 648,00
0000098 1200,00
0442359 976,75
0470950 230,00
0470951 976,75
0100007 976,75
0100008 976,75
0300007 976,75
0600014 976,75
0957208 925,00
0957209 925,00
0957365 410,00
0003665 1953,50
0008205 1953,50
0011952 570,00
0034283 1200,00
0106937 976,75
0107439 616,00
0110694 3693,63
0156870 1723,50
0208785 570,00
0211210 3990,00
0261920 4779,26
0303309 51,75
0303370 51,75
0304662 410,00
0310958 1877,63
0359243 3217,00
0359534 925,00
0359732 620,00
0360185 976,75
0406631 976,75
0457088 976,75
0562666 600,00
0562668 600,00
0575835 976,75
0604678 2280,00
0788853 2484,00
0802470 1490,00
0813968 1850,00
0131800 570,00
0132326 2930,25
0137787 2836,88
0210724 2160,00
0468912 4100,00
0467978 18532,89
0467192 5700,00
0466580 3217,00
0465773 3217,00
0463249 11671,02
0461965 4226,65
0461259 12693,40
0431879 4914,00
0429641 3963,75
0429621 4710,50
0427861 3447,00
0435609 35496,75
0435262 3667,75
0434738 3990,00
0434725 4917,00
0434568 3510,00
0434293 3042,90
0433425 7626,23
0433233 16589,26
0460998 9307,50
0459812 3460,75
0458110 4883,75
0457659 7656,63
0456837 12858,26
0455464 5574,00
0452140 9462,35
0449421 4800,00
0448811 3354,63
0447857 29765,57
0447116 12649,13
0444803 16165,63
0444189 8588,80
0441352 6712,72
0435964 5059,38
0435695 5378,00
0004299 2460,00
0009367 645,00

Muito obrigado.

Sds,
Marcelo Abreu

Boa noite!!

Use a função Arrumar(...


Ou...

Código:

Sub Rem_Espa()
    Dim EOF As Integer, s As Integer, MyString As String, TrimString As String
    For s = 1 To EOF
      If Cells(s, 1).Value <> "" Then
        MyString = Cells(s, 1).Value
        TrimString = RTrim(MyString)
        Cells(s, 1).Value = TrimString
    End If
  Next s

End Sub

Código:

Option Explicit
 
Sub TrimXcessSpaces()
    'Macro Purpose: To trim all excess spaces out of cells.  This
    'eliminates issues where users have cleared the cell with a space,
    'and elimates all extra spaces at the beginning or end of a string
   
    Dim cl As Variant
   
    'Loop through cells removing excess spaces
    For Each cl In Selection
        If Len(cl) > Len(WorksheetFunction.Trim(cl)) Then
            cl.Value = WorksheetFunction.Trim(cl)
        End If
    Next cl
End Sub