Как я могу удалить все конечные пробелы из моего столбца Excel? - PullRequest
Новая
       42

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

0 голосов
/ 25 апреля 2018

Я использовал функцию обрезки для удаления пробелов в списке имен столбцов в Excel.Тем не менее, есть еще несколько имен, которые имеют дополнительный пробел после имени, которое не было удалено.

Я также попытался создать свое собственное: 

Sub NoSpaces()
    Dim c As Range
    For Each c In Selection.Cells
        c.Value = Replace(c.Value, Chr(160), Chr(32))
    Next
End Sub

Однако я получаю ошибку:

Ошибка компиляции:

Подпрограмма или функция не определены

Любая помощь приветствуется.

Редактировать:Отраженный метод измените на «Заменить», как предложено.

1 Ответ

0 голосов
/ 25 апреля 2018

Это были две части вместе:

Сначала преобразуйте неразрывные пробелы: 

Sub ConvertNonBreakingSpaces()
Dim c As Range
    For Each c In Selection.Cells
        c.Value = Replace(c.Value, Chr(160), Chr(32))
    Next
End Sub

Затем удалите все нормальные пробелы (chr (32)), используя функцию Trim. 

Sub ClearSpaces()
Dim c As Range
    For Each c In Selection.Cells
        c.Value = Trim(c.Value)
    Next
End Sub
...