Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Marcelo Abreu



Mensagens : 1
Data de inscrição : 31/08/2012

MensagemAssunto: Eliminar espaços no começo e no final da célula.   Sex Ago 31, 2012 8:57 pm

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

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Eliminar espaços no começo e no final da célula.   Dom Set 02, 2012 12:11 am

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Eliminar espaços no começo e no final da célula.
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Erro em Função para Eliminar Espaços em String
» Retirar espaço entre banner e menu
» Ganhamos Espaço no Cenário de Blogs Sobre Games???
» Começando em GML - Conhecendo o editor de códigos do Game Maker 8.0
» Terminar uma musica, começar outra.

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: