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

Question

Я использовал функцию обрезки для удаления пробелов в списке имен столбцов в 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

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

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

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

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

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

Answer 1

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

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

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