1 Тема от Roman

  • Roman
  • сержант
  • Неактивен
  • Зарегистрирован: 17.03.2010
  • Сообщений: 39

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

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

Post's attachments

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

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

2 Ответ от viter.alex

  • Удаление лишних пробелов в начале и в конце строк ячеек таблицы
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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 'Для ячейки, в которой стоит курсор
Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

3 Ответ от Roman

  • Roman
  • сержант
  • Неактивен
  • Зарегистрирован: 17.03.2010
  • Сообщений: 39

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

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