Como remover todo o espaço inicial ao copiar a tabela do excel para a palavra

Question

Eu tenho várias tabelas geradas no microsoft excel 2013. Agora eu quero colar essas tabelas em ms word 2013, mas o problema surge quando eu colo essas tabelas. As tabelas são bem coladas, mas com algum espaço inicial antes de cada célula na tabela na palavra ms como abaixo.Eu tentei com a função trim no excel mas com vão. Eu preciso excluir esses espaços.Essas tabelas no Excel são atualizadas freqüentemente pelo cálculo manual. Então eu preciso de uma maneira livre de problemas para remover espaços.

    

Answer 1

Selecione a tabela e execute este código de macro abaixo

Sub NoSpaces()
    Dim c As Range

    For Each c In Selection.Cells
        c = Replace(c, " ", "")
    Next
End Sub

escreva este código no módulo e execute usando a janela imediata. trabalhou para mim.

    

Answer 2

Você deve usar a função "trim" link , porque "substituir" substitui qualquer espaço também no meio de uma string: por exemplo ".L.NP" fornece "LNP" e não "L.NP" conforme desejado.