Удаление нескольких символов после определенного знака
darkside134
Дата: Среда, 20.12.2017, 11:50 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Здравствуйте гуру экселя. Подскажите формулу, которая может удалить определенное количество символов после определенного знака. Поиск не дал результатов( Пример. Есть строка в столбце такого вида: Осветляющая маска (Dermalight | Lightening Mask) 128087 50 мл Holy Land. Нужно оставить то, что в скобках (без самих скобок), и то, что идет после артикула. На выходе должна получиться такая строка: Dermalight | Lightening Mask 50 мл Holy Land Для удаления первой части до скобки "( " использую формулу Код
=ПСТР(A2;НАЙТИ("(";A2)+1;32000)
Получаю: Dermalight | Lightening Mask) 128087 50 мл Holy Land Вопрос: подскажите формулу которая сможет удалить это ") 128087 " , т.е. скобку и артикул с пробелом 7 знаков. Спасибо.
Здравствуйте гуру экселя. Подскажите формулу, которая может удалить определенное количество символов после определенного знака. Поиск не дал результатов( Пример. Есть строка в столбце такого вида: Осветляющая маска (Dermalight | Lightening Mask) 128087 50 мл Holy Land. Нужно оставить то, что в скобках (без самих скобок), и то, что идет после артикула. На выходе должна получиться такая строка: Dermalight | Lightening Mask 50 мл Holy Land Для удаления первой части до скобки "( " использую формулу Код
=ПСТР(A2;НАЙТИ("(";A2)+1;32000)
Получаю: Dermalight | Lightening Mask) 128087 50 мл Holy Land Вопрос: подскажите формулу которая сможет удалить это ") 128087 " , т.е. скобку и артикул с пробелом 7 знаков. Спасибо. darkside134
Сообщение отредактировал darkside134 - Среда, 20.12.2017, 12:00
Ответить
Сообщение Здравствуйте гуру экселя. Подскажите формулу, которая может удалить определенное количество символов после определенного знака. Поиск не дал результатов( Пример. Есть строка в столбце такого вида: Осветляющая маска (Dermalight | Lightening Mask) 128087 50 мл Holy Land. Нужно оставить то, что в скобках (без самих скобок), и то, что идет после артикула. На выходе должна получиться такая строка: Dermalight | Lightening Mask 50 мл Holy Land Для удаления первой части до скобки "( " использую формулу Код
=ПСТР(A2;НАЙТИ("(";A2)+1;32000)
Получаю: Dermalight | Lightening Mask) 128087 50 мл Holy Land Вопрос: подскажите формулу которая сможет удалить это ") 128087 " , т.е. скобку и артикул с пробелом 7 знаков. Спасибо. Автор - darkside134 Дата добавления - 20.12.2017 в 11:50
китин
Дата: Среда, 20.12.2017, 11:54 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
подскажите формулу которая сможет удалить это ")
встречная просьба соблюдать правила форума и оформить свое сообщение Как оформлять сообщения?
подскажите формулу которая сможет удалить это ")
встречная просьба соблюдать правила форума и оформить свое сообщение Как оформлять сообщения? китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение подскажите формулу которая сможет удалить это ")
встречная просьба соблюдать правила форума и оформить свое сообщение Как оформлять сообщения? Автор - китин Дата добавления - 20.12.2017 в 11:54
Nic70y
Дата: Среда, 20.12.2017, 12:05 |
Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПОДСТАВИТЬ(A1;"(";ПОВТОР(" ";126));126;ДЛСТР(A1));")";))
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПОДСТАВИТЬ(A1;"(";ПОВТОР(" ";126));126;ДЛСТР(A1));")";))
Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПОДСТАВИТЬ(A1;"(";ПОВТОР(" ";126));126;ДЛСТР(A1));")";))
Автор - Nic70y Дата добавления - 20.12.2017 в 12:05
китин
Дата: Среда, 20.12.2017, 12:06 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
чисто по вашему примеруКод
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПСТР(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПОИСК(")";ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));""));7);"")
чисто по вашему примеруКод
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПСТР(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПОИСК(")";ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));""));7);"")
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение чисто по вашему примеруКод
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПСТР(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПОИСК(")";ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));""));7);"")
Автор - китин Дата добавления - 20.12.2017 в 12:06
darkside134
Дата: Среда, 20.12.2017, 12:35 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПОДСТАВИТЬ(A1;"(";ПОВТОР(" ";126));126;ДЛСТР(A1));")";))
Это немного не подходит, артикул остается, а его тоже нужно убрать.чисто по вашему примеру =ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПСТР(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПОИСК(")";ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));""));7);"")
Этот код подходит. Часов 5 потратил на поиски и тесты формул, ничего не выходило. Спасибо всем кто откликнулся!
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПОДСТАВИТЬ(A1;"(";ПОВТОР(" ";126));126;ДЛСТР(A1));")";))
Это немного не подходит, артикул остается, а его тоже нужно убрать.чисто по вашему примеру =ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПСТР(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПОИСК(")";ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));""));7);"")
Этот код подходит. Часов 5 потратил на поиски и тесты формул, ничего не выходило. Спасибо всем кто откликнулся!darkside134
Ответить
Сообщение =СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПОДСТАВИТЬ(A1;"(";ПОВТОР(" ";126));126;ДЛСТР(A1));")";))
Это немного не подходит, артикул остается, а его тоже нужно убрать.чисто по вашему примеру =ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПСТР(ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));"");ПОИСК(")";ПОДСТАВИТЬ(A1;ПСТР(A1;1;ПОИСК("(";A1));""));7);"")
Этот код подходит. Часов 5 потратил на поиски и тесты формул, ничего не выходило. Спасибо всем кто откликнулся!Автор - darkside134 Дата добавления - 20.12.2017 в 12:35
Che79
Дата: Среда, 20.12.2017, 12:49 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1649
Репутация:
306
±
Замечаний:
0% ±
2013 Win, 365 Mac
А я "в лоб" стал делать Код
=СЖПРОБЕЛЫ(ПСТР(A1;ПОИСК("(";A1)+1;ПОИСК(")";A1)-1-ПОИСК("(";A1))&" "&ПСТР(ПРАВБ(A1;ДЛСТР(A1)-ПОИСК(")";A1));8;99))
- зеленые ячейки [offtop] китин , Игорь, в твоей формуле, кмк, последнюю цифру 7 надо заменить на 8
А я "в лоб" стал делать Код
=СЖПРОБЕЛЫ(ПСТР(A1;ПОИСК("(";A1)+1;ПОИСК(")";A1)-1-ПОИСК("(";A1))&" "&ПСТР(ПРАВБ(A1;ДЛСТР(A1)-ПОИСК(")";A1));8;99))
- зеленые ячейки [offtop] китин , Игорь, в твоей формуле, кмк, последнюю цифру 7 надо заменить на 8 Che79
Делай нормально и будет нормально!
Ответить
Сообщение А я "в лоб" стал делать Код
=СЖПРОБЕЛЫ(ПСТР(A1;ПОИСК("(";A1)+1;ПОИСК(")";A1)-1-ПОИСК("(";A1))&" "&ПСТР(ПРАВБ(A1;ДЛСТР(A1)-ПОИСК(")";A1));8;99))
- зеленые ячейки [offtop] китин , Игорь, в твоей формуле, кмк, последнюю цифру 7 надо заменить на 8 Автор - Che79 Дата добавления - 20.12.2017 в 12:49
sv2014
Дата: Среда, 20.12.2017, 13:26 |
Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
darkside134 , вариант функций [vba]Код
Function vvv$(t$) With CreateObject("VBScript.RegExp"): .Pattern = " \((.+)\).+( \d+ мл .+)" vvv = .Execute(t)(0).Submatches(0) & Chr(32) & .Execute(t)(0).Submatches(1) End With End Function
[/vba] [vba]Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^.+ \((.+)\).+( \d+ мл .+)$" uuu = .Replace(t, "$1 $2") End With End Function
[/vba]
darkside134 , вариант функций [vba]Код
Function vvv$(t$) With CreateObject("VBScript.RegExp"): .Pattern = " \((.+)\).+( \d+ мл .+)" vvv = .Execute(t)(0).Submatches(0) & Chr(32) & .Execute(t)(0).Submatches(1) End With End Function
[/vba] [vba]Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^.+ \((.+)\).+( \d+ мл .+)$" uuu = .Replace(t, "$1 $2") End With End Function
[/vba]sv2014
Сообщение отредактировал sv2014 - Четверг, 21.12.2017, 12:26
Ответить
Сообщение darkside134 , вариант функций [vba]Код
Function vvv$(t$) With CreateObject("VBScript.RegExp"): .Pattern = " \((.+)\).+( \d+ мл .+)" vvv = .Execute(t)(0).Submatches(0) & Chr(32) & .Execute(t)(0).Submatches(1) End With End Function
[/vba] [vba]Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^.+ \((.+)\).+( \d+ мл .+)$" uuu = .Replace(t, "$1 $2") End With End Function
[/vba]Автор - sv2014 Дата добавления - 20.12.2017 в 13:26
китин
Дата: Среда, 20.12.2017, 13:30 |
Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
последнюю цифру 7 надо заменить на 8
пробел сожрет
последнюю цифру 7 надо заменить на 8
пробел сожреткитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение последнюю цифру 7 надо заменить на 8
пробел сожретАвтор - китин Дата добавления - 20.12.2017 в 13:30
pabchek
Дата: Среда, 20.12.2017, 13:36 |
Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация:
218
±
Замечаний:
0% ±
Excel 2007
"До кучи"Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(A1;ПОИСК(") ?????? ";A1);8;"");ЛЕВБ(A1;ПОИСК("(";A1));"")
Ой, чего это я...Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(A1;ПОИСК(")";A1);8;"");ЛЕВБ(A1;ПОИСК("(";A1));"")
"До кучи"Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(A1;ПОИСК(") ?????? ";A1);8;"");ЛЕВБ(A1;ПОИСК("(";A1));"")
Ой, чего это я...Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(A1;ПОИСК(")";A1);8;"");ЛЕВБ(A1;ПОИСК("(";A1));"")
pabchek
"Учиться, учиться и еще раз учиться!" WM: R399923528092
Сообщение отредактировал pabchek - Среда, 20.12.2017, 13:38
Ответить
Сообщение "До кучи"Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(A1;ПОИСК(") ?????? ";A1);8;"");ЛЕВБ(A1;ПОИСК("(";A1));"")
Ой, чего это я...Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(A1;ПОИСК(")";A1);8;"");ЛЕВБ(A1;ПОИСК("(";A1));"")
Автор - pabchek Дата добавления - 20.12.2017 в 13:36
darkside134
Дата: Среда, 20.12.2017, 13:57 |
Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Оффтоп: китин, Игорь, в твоей формуле, кмк, последнюю цифру 7 надо заменить на 8
Здесь кстати да, нужно на 8 заменить, а то последняя цифра артикула всплывает)
Оффтоп: китин, Игорь, в твоей формуле, кмк, последнюю цифру 7 надо заменить на 8
Здесь кстати да, нужно на 8 заменить, а то последняя цифра артикула всплывает)darkside134
Ответить
Сообщение Оффтоп: китин, Игорь, в твоей формуле, кмк, последнюю цифру 7 надо заменить на 8
Здесь кстати да, нужно на 8 заменить, а то последняя цифра артикула всплывает)Автор - darkside134 Дата добавления - 20.12.2017 в 13:57