none
Eliminar espaços em texto (antes, entre e depois) RRS feed

  • Pergunta

  • Boa noite

    Usei o codigo abaixo para tirar espaços nos texto na coluna A, Porem funcionou em parte

    EX.: "    Tirar espaço        entre texto      "

    Retornou:

    "Tirar espaço        entre texto"

    Gostaria que ficasse:

    "Tirar espaço entre texto"

    apagou os espaços a direita e esquerda, mais do meio ficou

    qual outro codigo usar para funcionar 100% ?

    Sub tirar()

    For lngRowsCount = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 Cells(lngRowsCount, "A") = Trim(Cells(lngRowsCount, "A")) Next lngRowsCount End Sub

    Obrigado.
    domingo, 29 de junho de 2014 01:18

Respostas

  • Boa tarde JLNunes.

    Uma forma simples que encontrei foi usar a função da planilha e não do VBA.

    Assim, repetindo seu código com a correção:

    For lngRowsCount = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        Cells(lngRowsCount, "A") = WorksheetFunction.Trim(Cells(lngRowsCount, "A").Value2)
    Next lngRowsCount

    Abraço.

    Filipe Magno

    domingo, 29 de junho de 2014 18:51
  • Boa noite JLNunes!

    Como a resposta te ajudou, peço a gentileza de "Marcar como Resposta" para melhorar a organização do fórum.

    Obrigado.


    Filipe Magno

    • Marcado como Resposta JLNunes quinta-feira, 3 de julho de 2014 23:56
    quinta-feira, 3 de julho de 2014 00:21

Todas as Respostas

  • Boa tarde JLNunes.

    Uma forma simples que encontrei foi usar a função da planilha e não do VBA.

    Assim, repetindo seu código com a correção:

    For lngRowsCount = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        Cells(lngRowsCount, "A") = WorksheetFunction.Trim(Cells(lngRowsCount, "A").Value2)
    Next lngRowsCount

    Abraço.

    Filipe Magno

    domingo, 29 de junho de 2014 18:51
  • Boa tarde

    Obrigado Felipe, agora funcionou 100%.

    domingo, 29 de junho de 2014 19:03
  • Boa noite JLNunes!

    Como a resposta te ajudou, peço a gentileza de "Marcar como Resposta" para melhorar a organização do fórum.

    Obrigado.


    Filipe Magno

    • Marcado como Resposta JLNunes quinta-feira, 3 de julho de 2014 23:56
    quinta-feira, 3 de julho de 2014 00:21