Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
Перебор символов в ячейке справа-налево начиная с последнего (поиск пробела)
 
#1
26.08.2009 09:07:09
Ситуация:  
Есть ячейка, в ней текст, например: "Слово1[пробел1]Слово2[пробел2][пробел3])" Как нужно написать код, чтобы:
Брался последний символ в ячейке, если это пробел, то берётся предпоследний итд (т.е. перебор справа-налево), пока не дойдёт до символа, отличного от пробела. Перебор справа-налево продолжается, пока не дойдёт до следующего пробела (в примере это [пробел1]). Затем всё, что находится правее этого пробела удаляется (в примере это Слово2).
 
Другими словами, есть в ячейке два слова, разделённые пробелом. Мне нужно програмно удалить второе слово.    
 
Буду очень благодарен за ответ, т.к. хочу автоматизировать процесс, иначе в ручную буду месяц удалять, а нервы - они не железные )  
PS: И как раньше люди без экселя жили? :)
 
 
 
#2
26.08.2009 09:12:47
=ЛЕВСИМВ(A1;НАЙТИ(" ";A1)-1)
 
 
 
#3
26.08.2009 09:19:31
=ПСТР(A1;1;НАЙТИ(" ";A1;1)-1)  
Данная формула возвращает текст до первого пробела...  
=ЕСЛИ(ЕОШ(ПСТР(A1;1;НАЙТИ(" ";A1;1)-1));A1;ПСТР(A1;1;НАЙТИ(" ";A1;1)-1))  
А здесь добавлена проверка на ошибку когда нет пробелов в строке...
 
 
 
#4
26.08.2009 09:45:44
Большое спасибо за ответ. Извиняюсь за назойливость, а можно то же самое, но на  VBA сделать? Просто я хотел эту часть кода включить в перебор ячеек в выделеном диапазоне, и не ожидал, что вы ответите с исп. функций эксель)  
Ещё раз простите, что сразу не сказал, что надо на VBA, совсем вылетело из головы.
 
 
 
#5
27.08.2009 00:12:29
Используйте функцию MID(string, start, length)  
она извлекает определенное количество символов  
из строки и цикл до нахождения первого пробела
 
 
 
#6
11.10.2010 20:53:08
подскажите пожалуйста как быть если слов в ячейке много и надло разделаить по последнему пробелу? идельным вариантом было бы разделение по латинским буквам.  
к примеру:  
S1265 фара передняя левая AUDIRS5  
нужно:  
S1265 фара передняя левая    
 
спасибо.
 
 
 
#7
11.10.2010 21:09:07
Public Sub www()  
Dim a$  
a = Left([A1], InStrRev([A1], " "))
MsgBox a  
End Sub  
 
=88088=
Я сам - дурнее всякого примера! ...
 
 
 
#8
11.10.2010 21:14:04
С Вашего разрешения немного поправлю:  
Public Sub www()  
Dim a$  
a = Left([A1], InStrRev([A1], " ") - 1)
Debug.Print a  
End Sub
 
 
 
#9
11.10.2010 21:17:56
=ЛЕВСИМВ(A1;НАЙТИ("/";ПОДСТАВИТЬ(A1;" ";"/";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))))-1)
 
 
 
#10
11.10.2010 21:20:40
спасибо за ответы.    
 
можно ли формулой заменить последний пробел(или 2 последних пробела) на "@", а затем отделить через текст по столбцам?
 
 
 
#11
11.10.2010 21:25:11
Один последний пробел:  
=ПОДСТАВИТЬ(A1;" ";"@";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";"")))
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#12
11.10.2010 21:27:18
как вы меня все время выручаете! спасибо!
 
 
 
#13
11.10.2010 21:41:17
Вы формулой меняете один пробел, потом разделение по столбцам, потом удаление лишнего. Формулой выше подтягиваете нужную первую часть. Если нужна и вторая, то  
=ПРАВСИМВ(A1;ДЛСТР(A1)-ДЛСТР(E1))
 
 
 
#14
11.10.2010 21:43:29
спасибо! все понял!
 
 
 
#15
10.01.2012 04:18:11
{quote}{login=vikttur}{date=11.10.2010 09:17}{thema=}{post}=ЛЕВСИМВ(A1;НАЙТИ("/";ПОДСТАВИТЬ(A1;" ";"/";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))))-1){/post}{/quote}  
А что если нужно выделить слова идущие после 2-ого пробела
 
 
 
#16
10.01.2012 08:20:33
Слова до второго пробела:  
=ЛЕВСИМВ(A1;НАЙТИ("/";ПОДСТАВИТЬ(A1;" ";"/";2)-1)  
После второго - ПРАВСИМВ(): длина полной строки минус длина строки до второго пробела. Или ПСТР(): со второго пробела и до конца (можно задать максимальнім числом знаков).
 
 
 
#17
10.01.2012 08:46:34
Вить, наверное, ты чуть ошибся в формуле про слова до 2-го пробела  
 
=ЛЕВСИМВ(A1;НАЙТИ("/";ПОДСТАВИТЬ(A1;" ";"/";2))-1)  
 
 
Павел
 
 
 
#18
10.01.2012 08:49:11
В ячейке A1 исходный текст.  
В ячейку B1 пишем результат:  
Sub www()  
Cells(1, 2).Clear  
текст = ""  
НомерПробела = 2  
For i = НомерПробела To UBound(Split(Cells(1, 1), " "))  
текст = текст & " " & Split(Cells(1, 1), " ")(i)  
Next i  
Cells(1, 2) = Trim(текст)  
End Sub
 
 
 
#19
10.01.2012 09:35:24
{quote}{login=}{date=10.01.2012 08:46}{thema=}{post}Вить, наверное, ты чуть ошибся в формуле про слова до 2-го пробела{/post}{/quote}  
Ну да, "наколенный" вариант! Начинаешь изучать формулы? :)
 
 
 
#20
10.01.2012 09:44:30
ну, "средние" формулы я всегда знал (там НАЙТИ, ВПР, ГПР, ИНДЕКС, ПОИСКПОЗ, СУММПРОИЗВ и т.д).  
 
А вот когда вы там "извращаетесь" с длинными формулами, то я пасс))    
Если можно решить задачу "средними" формулами, я пишу формулы, а когда что-то посложнее, я пишу функции )) Функция более понятнее для меня.  
Просто на нашем форуме я стараюсь на вопросы по формулам не отвечать, меня больше макросы интересуют )
 
 
 
#21
10.01.2012 09:47:19
забыл дописать, что так же умею пользоваться F9 в длинной формуле, чтобы понять результат какой-то её части. Ну. и конечно встроенный инструмент Excel "Вычислить формулу", когда пошагово показывается её вычислений )  
Мне этого хватает )
 
 
 
#22
11.01.2012 20:13:23
ребята, в этой теме описано извлечение последнего слова перед пробелом.  
ПРобовал запустить формулу, работает, но с какой-то постоянной оишбкой, не могу понять в чем проблема.  
 
Подскажите кто чем может.  
 
Спасибо!
 
 
 
#23
11.01.2012 20:19:48
Сделайте ссылку в функции СТРОКА абсолютной:  
СТРОКА($1:$999)
 
 
 
#24
11.01.2012 20:26:03
Вариант формулы (массивный ввод не требуется):  
=ПСТР(A1;ПРОСМОТР(100;ПОИСК(" ";" "&A1;СТРОКА($1:$99)));99)
 
 
 
#25
11.01.2012 20:55:34
МСН? cпасибо!!! Работает!!! и спасибо за такой быстрый ответ!
 
 
 
#26
14.07.2012 00:57:09
Мужики есть произвольная строка (предложение, кол-во пробелов разное нужно последнее слово вырезать в другую ячейку
 
 
 
#27
14.07.2012 01:05:46
Да не проблема. Правила не поленитесь прочесть, чтоб я Вам не задавал массу вопросов.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#28
14.07.2012 07:29:27
{quote}{login=Евменчик}{date=14.07.2012 12:57}{thema=}{post}Мужики есть произвольная строка (предложение, кол-во пробелов разное нужно последнее слово вырезать в другую ячейку{/post}{/quote}Вы формулу МСН от 11.01.2012, 20:26 пробовали? Она это и делает.
 
 
 
#29
14.08.2012 12:40:52
Здравствуйте!  
Объясните, пожалуйста, принцип формулы    
=ПСТР(A1;ПРОСМОТР(100;ПОИСК(" ";" "&A1;СТРОКА($1:$99)));99), которую привел MCH.  
Спасибо!
 
 
 
#30
14.08.2012 12:54:41
Замените 99 на 9, 100 на 10 и вычислите формулу поэтапно.  
Почитайте справку по ПРОСМОТР и ПОИСК.
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх