|
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
|
|||
---|---|---|---|
#18+
Алексагка, первый ответ не читали? Dophin Member ... |
|||
:
Нравится:
Не нравится:
|
|||
14.04.2011, 21:48 |
|
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
|
|||
---|---|---|---|
#18+
Hugo121, не очень понял куда че вставлять гед че писать ... |
|||
:
Нравится:
Не нравится:
|
|||
14.04.2011, 23:01 |
|
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
|
|||
---|---|---|---|
#18+
Алексагка, вставляйте в свой пример в модуль. Ну если уж совсем лениво - там Dofin за вас пример нарисовал. И функцию вставил - напишите на листе в любой ячейке Код: plaintext
... |
|||
:
Нравится:
Не нравится:
|
|||
14.04.2011, 23:46 |
|
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
|
|||
---|---|---|---|
#18+
Извиняюсь, букву потерял - Dophin ... |
|||
:
Нравится:
Не нравится:
|
|||
14.04.2011, 23:48 |
|
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
|
|||
---|---|---|---|
#18+
А можно и без VBA, берем надстройку www.icqrobot.ru вызываем форму Универсальный Экстактор, устанавливаем шаблон для регулярного выражения .+(?=( \w+ *){1}$) и все... ... |
|||
:
Нравится:
Не нравится:
|
|||
16.04.2011, 11:54 |
|
Как удалить все что находится после последнего пробела в ячейке Excel при помощи VBA
|
|||
---|---|---|---|
#18+
vlthShamanus, учитывая возможность использования числа 10000, необходимо отсекать 6 знаков: =ЕСЛИ(ЕОШИБКА(ПОИСК(" ";ПРАВСИМВ(A1;3)));ПРАВСИМВ(A1; 6 -ПОИСК(" ";ПРАВСИМВ(A1; 6 )));ПРАВСИМВ(A1;3-ПОИСК(" ";ПРАВСИМВ(A1;3)))) Когда я писал про реализацию задачи с помощью формул, мне и представлялся примерно такой, последовательный перебор знаков в конце строки. С помощью Уокенбаха получается гораздо более элегантная формула для отсечения последнего слова: =ЛЕВСИМВ(A1;НАЙТИ("*";ПОДСТАВИТЬ(A1;" ";"*";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))))-1) Лишние пробелы, особенно в конце строки, необходимо убрать до применения формул. =ЛЕВСИМВ(A1;НАЙТИ("*";ПОДСТАВИТЬ(A1;" ";"*";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))))-1) вот это шикарно !!! формула ПОДСТАВИТЬ с указанием Номер_вхождения для меня нова, восторг без границ. Я давно сочиняю разные логики в работе с текстом и вот именно этого мне не хватало. Спасибо. ... |
|||
:
Нравится:
Не нравится:
|
|||
21.09.2012, 17:58 |
|
|
start [/forum/topic.php?fid=61&gotonew=1&tid=2175379]: |
0ms |
get settings: |
11ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
34ms |
get topic data: |
11ms |
get first new msg: |
7ms |
get forum data: |
3ms |
get page messages: |
45ms |
get tp. blocked users: |
2ms |
others: | 323ms |
total: | 459ms |
0 / 0 |