Como remover todo o espaço inicial ao copiar a tabela do Excel para o Word

Question

Tenho várias tabelas geradas no Microsoft Excel 2013. Agora quero colar essas tabelas no MS Word 2013, mas o problema surge quando colo essas tabelas. As tabelas estão bem coladas, mas com algum espaço à esquerda antes de cada célula da tabela no MS Word como abaixo. Tentei com a função trim no Excel, mas em vão. Preciso excluir esses espaços. Essas tabelas no Excel são atualizadas frequentemente por cálculo manual. Portanto, preciso de uma maneira fácil de remover espaços.

Answer 1

Selecione a tabela e execute o 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. funcionou para mim.

Answer 2

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