Página 1 de 1

VBA - Excluir espaços em células vazias

Enviado: 10 Fev 2016 às 10:57
por rafapmotta
Pessoal, bom dia.

Queria saber se alguem sabe alguma macro que limpe os espaços em branco escondidos apenas em células vazias.

Tem uma macro que eu uso que está me ajudando, porém, quando ela é executada nas colunas que contém data, ela inverte o dia com o mes.



Dim LRi As Range, cell As Range

Set LRi = Range("A2:N" & Range("A2").End(xlDown).Row)
For Each cell In LRi
cell.Value = Trim(Replace(cell.Value, ",", "."))
Next cell

Alguem sabe algum outro código que possa me ajudar, ou o que está de errado com este meu?


Obrigado desde ja

Re: VBA - Excluir espaços em células vazias

Enviado: 19 Fev 2016 às 09:07
por alexandrevba
Bom dia!!

Tente algo assim?
Código: Selecionar todos
Sub AleVBA_1408()
Dim c As Range
    For Each c In ActiveSheet.UsedRange
        With c
            .Value = WorksheetFunction.Trim(.Value)
        End With
    Next c
End Sub
Att