1

Тема: Удаление лишних пробелов в начале и в конце строк ячеек таблицы

Здравствуйте!
Имеется очень интересный вопрос, думаю заинтересует многих, как определить где в ячейке таблицы начало и конец строки и удалить там лишние пробелы?
Влаживаю пример таблицы

Post's attachments

1.jpg 64.7 Кб, файл не был скачан. 

You don't have the permssions to download the attachments of this post.

2

Re: Удаление лишних пробелов в начале и в конце строк ячеек таблицы

Удалить лишние пробелы по краям строки можно функцией Trim и её разновидностями LTrim и RTrim, для обрезки слева и справа соответственно.
Для ячейки это будет выглядеть так

Sub TrimCellText()
  Dim oCell As Cell
  For Each oCell In Selection.Tables(1).Range.Cells
    oCell.Range.Text = Trim(Left(oCell.Range.Text, Len(oCell.Range.Text) - 2))
  Next
End Sub

Функция Left используется, чтобы убрать из текста ячейки два последних невидимых символа: знак абзаца и знак конца ячейки
Ну а начало ячейки, вернее, номер символа, с которого она начинается, определяется просто:

Selection.Cells(1).Range.Start 'Для ячейки, в которой стоит курсор
Лучше день потерять — потом за пять минут долететь!

3

Re: Удаление лишних пробелов в начале и в конце строк ячеек таблицы

viter.alex у меня нет слов, все работает! Большое спасибо!  smile