Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Удалить символы из текстовой строки
 
#1
24.08.2010 10:24:24
Добрый день. Прошу помочь. Имеем следующую задачу:  
в ячейке А1 написано ООО "Ромашка".  
В ячейке А2 хотим получить Ромашка.  
Т.е. требуется убрать форму собственности (может быть ООО;ОАО;ЗАО) и кавычки.  
И сделать это требуется именно при помощи функций, т.к. значние, полученное в А2 используется ВПРом.  
Пробовала использовать формулу =ЕСЛИ(ЛЕВСИМВ(А2;3)<>"ОАО";"нет";ЗАМЕНИТЬ(А2;1;5;""))  
Но последняя кавычка всё равно остается, при этом таки получается учесть только одну форму собственности.  
Спасибо.
 
 
 
#2
24.08.2010 10:30:11
А может лучше    
http://excel-vba.ru/Addins_FunctionsMoveAndReplace.html
 
 
 
#3
24.08.2010 10:34:46
{quote}{login=sva}{date=24.08.2010 10:30}{thema=}{post}А может лучше    
http://excel-vba.ru/Addins_FunctionsMoveAndReplace.html{/post}{/quote}Ох. Вещь, безусловно, интересная.  
Но боюсь, что наши безопасники не оценят(((( Словом, запрещено у нас что-либо ставить, в т.ч. и надстройки.
 
 
 
#4
24.08.2010 10:45:06
Светлана используйте ПОДСТАВИТЬ()  
Хотите подробнее - давайте пример.
 
 
 
#5
24.08.2010 10:45:26
Здравствуйте.  
Может так подойдёт?  
 
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;СИМВОЛ(34);"");"ОАО";"");"ЗАО";"");"ООО";""))
 
 
 
#6
24.08.2010 10:45:40
=ПСТР(A1;ПОИСК(" ";A1)+2;ДЛСТР(A1)-ПОИСК(" ";A1)-2)
 
 
 
#7
24.08.2010 10:49:09
Ну а простую формулу в ПЕРСОНАЛ.ХЛС записать, ничего не устанавливая?  
 
Тупо в лоб:  
 
Function replRomashka(a_ As Range)  
Dim txt_ As String  
txt_ = Replace(a_, "ООО", "")  
txt_ = Replace(txt_, "ОАО", "")  
txt_ = Replace(txt_, "ЗАО", "")  
txt_ = Replace(txt_, Chr(34), "")  
replRomashka = Trim(txt_)  
End Function  
 
Аббревиатуры можно пополнить.
 
 
 
#8
24.08.2010 10:50:19
VDM, Serge 007 Спасибо! Обе формулы подходят)))))  
 
зы  
тему можно закрывать
 
 
 
#9
24.08.2010 10:50:29
{quote}{login=Serge 007}{date=24.08.2010 10:45}{thema=}{post}=ПСТР(A1;ПОИСК(" ";A1)+2;ДЛСТР(A1)-ПОИСК(" ";A1)-2){/post}{/quote}27,5 Кб
 
 
 
#10
24.08.2010 10:57:02
{quote}{login=Serge 007}{date=24.08.2010 10:50}{thema=Re: }{post}{quote}{login=Serge 007}{date=24.08.2010 10:45}{thema=}{post}=ПСТР(A1;ПОИСК(" ";A1)+2;ДЛСТР(A1)-ПОИСК(" ";A1)-2){/post}{/quote}27,5 Кб{/post}{/quote}А вы случайно штатным телепатом не работаете?)))  
В вашем файле имеется результат мной желанный, но не озвученный)))))))  
Спасибо)
 
 
 
#11
24.08.2010 11:08:31
Конечно не успел дать быстрый и красивый ответ, но может тоже пригодится  
с указанием списка исключений
 
 
 
#12
24.08.2010 11:14:39
=ПСТР(A1;НАЙТИ("""";A1)+1;ДЛСТР(A1)-НАЙТИ(ПРАВСИМВ(A1;1);A1)-1)  
 
При условии, что все фирмы заключены в кавычки.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#13
24.08.2010 11:19:53
{quote}{login=MCH}{date=24.08.2010 11:08}{thema=}{post}Конечно не успел дать быстрый и красивый ответ, но может тоже пригодится  
с указанием списка исключений{/post}{/quote}  
 
Круто!  
MCH, а скажите пожалуйста, есть ли в Вашей формуле какие-то ограничения у "списка исключений"? Например по размеру?
 
 
 
#14
24.08.2010 11:24:23
{quote}{login=VDM}{date=24.08.2010 11:19}{thema=Re: }{post}  
 
Круто!  
MCH, а скажите пожалуйста, есть ли в Вашей формуле какие-то ограничения у "списка исключений"? Например по размеру?{/post}{/quote}  
 
думаю что нет (хотя если в тексте будет совмещено одновременно несколько слов - то даст кривой результат)
 
 
 
#15
24.08.2010 12:27:02
Поправил свою формулу, чтобы не давала косяков
 
 
 
#16
26.08.2010 00:26:29
=ЗАМЕНИТЬ(ПОДСТАВИТЬ(A1;"""";"");1;НАЙТИ(" ";A1);"")
 
 
 
Страницы: 1
Читают тему
Наверх