ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
6 сообщений из 31, страница 2 из 2
  2  все
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
    #37217383
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Алексагка, первый ответ не читали?
Dophin
Member
...
Рейтинг: 0 / 0
14.04.2011, 21:48
| Ответить | Цитировать | Написать  
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
    #37217456
Алексагка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексагка
Гость
Hugo121, не очень понял куда че вставлять гед че писать
...
Рейтинг: 0 / 0
14.04.2011, 23:01
| Ответить | Цитировать | Написать  
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
    #37217509
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Алексагка,
вставляйте в свой пример в модуль.

Ну если уж совсем лениво - там Dofin за вас пример нарисовал. И функцию вставил - напишите на листе в любой ячейке
Код: plaintext
=lastpr(A1)
...
Рейтинг: 0 / 0
14.04.2011, 23:46
| Ответить | Цитировать | Написать  
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
    #37217511
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Извиняюсь, букву потерял - Dophin
...
Рейтинг: 0 / 0
14.04.2011, 23:48
| Ответить | Цитировать | Написать  
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
    #37219459
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Thermik
Гость
А можно и без VBA, берем надстройку www.icqrobot.ru вызываем форму Универсальный Экстактор, устанавливаем шаблон для регулярного выражения .+(?=( \w+ *){1}$) и все...
...
Рейтинг: 0 / 0
16.04.2011, 11:54
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
    #37967773
GTC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GTC
Гость
vlthShamanus, учитывая возможность использования числа 10000, необходимо отсекать 6 знаков:

=ЕСЛИ(ЕОШИБКА(ПОИСК(" ";ПРАВСИМВ(A1;3)));ПРАВСИМВ(A1; 6 -ПОИСК(" ";ПРАВСИМВ(A1; 6 )));ПРАВСИМВ(A1;3-ПОИСК(" ";ПРАВСИМВ(A1;3))))

Когда я писал про реализацию задачи с помощью формул, мне и представлялся примерно такой, последовательный перебор знаков в конце строки. С помощью Уокенбаха получается гораздо более элегантная формула для отсечения последнего слова:

=ЛЕВСИМВ(A1;НАЙТИ("*";ПОДСТАВИТЬ(A1;" ";"*";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))))-1)

Лишние пробелы, особенно в конце строки, необходимо убрать до применения формул.

=ЛЕВСИМВ(A1;НАЙТИ("*";ПОДСТАВИТЬ(A1;" ";"*";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))))-1) вот это шикарно !!! формула ПОДСТАВИТЬ с указанием Номер_вхождения для меня нова, восторг без границ. Я давно сочиняю разные логики в работе с текстом и вот именно этого мне не хватало. Спасибо.
...
Рейтинг: 0 / 0
21.09.2012, 17:58
| Ответить | Цитировать | Написать  
6 сообщений из 31, страница 2 из 2
  2  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]