Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление лишних пробелов в конце ячейки
 
#1
22.07.2015 12:57:00
Добрый день уважаемые форумчане!
Нет пока понимания в голове, как удалить пробелы в конце ячейки.
Есть в столбце В много значений, у которых 1 или 2 пробела после текста, например "ИНДИЙСКИЙ ОКЕАН ИЮЛЬ " "ИНДИЙСКИЙ ОКЕАН ИЮЛЬ  "
Можно как то макросом от них избавиться?
Заранее большое спасибо всем откликнувшимся!
 
 
 
#2
22.07.2015 12:57:51
Trim?  
 
 
 
#3
22.07.2015 13:00:20
Видимо да. Попробовал =СЖПРОБЕЛЫ
Помогло, но думал чтобы формулы не плодить, попробовать использовать макрос
 
 
 
#4
22.07.2015 13:02:08
Так я как раз про макрос))
 
 
 
#5
22.07.2015 13:05:47
Код
Cells(1, 1) = Trim(" Мой Текст   ")
 
 
 
#6
22.07.2015 13:08:41
Для выделения (выделяете диапазон, запускаете макрос)
Код
Sub t()
Dim objC as Range
For each objC in Selection
objC=Trim(objC)
Next
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#7
22.07.2015 13:09:23
Как быть если "мой текст" неизвестен заранее? Текста порядка 50000 строк и около 2900 строк уникальных в которых вконце стоят пробелы.
 
 
 
#8
22.07.2015 13:11:30
Цитата
Владислав написал:
Как быть если "мой текст" неизвестен заранее?
Ячейка ведь известна? )) Trim(Ячейка)
 
 
 
#9
22.07.2015 13:16:29
Известен только столбец В. В какой ячейке пробелы на глаз не видно.
 
 
 
#10
22.07.2015 13:20:24
Чтобы убрать только справа есть в VBA функция:
RTrim
убирает пробелы только справа.

Если надо во всем диапазоне убрать пробелы, то можно так:
Код
Range("B1:B5").Value = Application.Trim(Range("A1:A5").Value)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#11
22.07.2015 13:20:29
Не понимаю, в чём проблема: пробежались по столбцу и применили к каждой ячейке. Если строк ОЧЕНЬ много - забираем их в массив, цикл по массиву и обратная выгрузка на лист.
Код
Sub TestTrim()
Dim i As Long
    For i = 2 To 1000
        Cells(i, 2) = Trim(Cells(i, 2))
    Next
End Sub
 
 
 
#12
22.07.2015 13:31:28
Юрий, спасибо огромное! Ваш код отлично работает!
 
 
 
#13
22.07.2015 13:32:05
А мой нет? Мой вроде как побыстрее должен быть....
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#14
22.07.2015 13:33:14
У тебя диапазон маленький - всего пять ячеек ))
 
 
 
#15
22.07.2015 13:34:46
Prist, Ваш код работает отлично! Но почему-то удаляет в тексте двойные пробелы. Может можно Ваш код оптимизировать под удаления пробелов вначале и в конце ячейки?
 
 
 
#16
22.07.2015 13:36:42
Цитата
Владислав написал: оптимизировать под удаления пробелов вначале и в конце ячйки?
Так ведь Дмитрий писал:
Цитата
The_Prist написал: RTrim убирает пробелы только справа.
 
 
 
#17
22.07.2015 13:43:11
Видимо с синтаксисом у меня совсем все плохо...
Написал
Код
Range("B1:B2500").Value = Application.RTrim(Range("B1:B2500").Value)
Не работает, выдает 438 ошибку
 
 
 
#18
22.07.2015 13:48:12
Владислав, application не знает кто такой rtrim. (проверьте, alt+F11, ctrl+g, наберите (без кавычек) "application." и в выпавшем списке Вы не найдёте rtrim.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#19
22.07.2015 14:07:32
Цитата
Владислав написал:...Может можно Ваш код оптимизировать под удаления пробелов вначале и в конце ячейки?..
Логика, однако - если нельзя убирать двойные пробелы ВНУТРИ (TRIM) то, наверное надо применить RTRIM + LTRIM... ;)
ps Вообще-то это из ряда вон - оставлять двойные и более пробелы - в чем ЦЕЛЕСООБРАЗНОСТЬ?!
Изменено: Z - 22.07.2015 14:09:36
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#20
22.07.2015 14:12:40
Целесообразность в том, что у меня к этой строке цепляется расширение файла. Если получится ИНДИЙСКИЙ ОКЕАН ИЮЛЬ .avi то ссылка в расписании будет битая... Также нельзя внутри строки тоже нельзя убирать символы- ссылка будет битая.
Код Юрия на 2209 строк работал 1 мин 47 сек, видимо потому, что в программе есть еще много кода.
Удалось сократить это время до 1-2 секунд, отключив обновление экрана.
Итоговый код:
Код
Application.ScreenUpdating = False
Dim x As Long
For x = 2 To 3000
Cells(x, 2) = Trim(Cells(x, 2))
Next
Изменено: Владислав - 22.07.2015 14:14:22
 
 
 
#21
22.07.2015 14:22:57
Итак. application.trim - это СЖПРОБЕЛЫ. Т.е. да, убирает двойные пробелы внутри строки и так же убирает пробелы в начале и в конце строки.
Trim - обрезает пробелы в начале и в конце строки.
RTrim -  обрезает пробелы только в конце строки.

Если судить по Вашему описанию - то нужен как раз именно RTrim, т.к. не убирает пробелы в начале строки. Или же Ваше описание хромает...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Читают тему
Наверх