Как удалить все начальные пробелы при копировании таблицы из Excel в Word

Question

У меня есть несколько таблиц, созданных в Microsoft Excel 2013. Теперь я хочу вставить эти таблицы в MS Word 2013, но при вставке этих таблиц возникает проблема. Таблицы вставляются хорошо, но с некоторым начальным пробелом перед каждой ячейкой в ​​таблице в MS Word, как показано ниже. Я пробовал использовать функцию обрезки в Excel, но безуспешно. Мне нужно удалить эти пробелы. Эти таблицы в Excel часто обновляются с помощью ручного расчета. Поэтому мне нужен простой способ удаления пробелов.

Answer 1

Выберите таблицу и запустите следующий макрокод

Sub NoSpaces()
    Dim c As Range

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

напишите этот код в модуле и запустите с помощью немедленного окна. Мне это помогло.

Answer 2

Вам следует использовать функцию «обрезки»связь, поскольку «replace» заменяет любой пробел также в середине строки: например, «.L.NP» даст «LNP», а не «L.NP», как хотелось бы.