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

Question

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

Answer 1

Выберите таблицу и запустите приведенный ниже код макроса.

Sub NoSpaces()
    Dim c As Range

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

запишите этот код в модуль и запустите, используя непосредственное окно. работал на меня.

Answer 2

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