Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Удалие содержимого в скобках., Текстовая формула
 
Доброго времени суток форумчане,
Есть вот такой вопрос.
Это имя сотрудника, Seyi Tony Oyegunle (Pmp) в ковычках его инженерный сертифекат. Нужна формула которая вернет Seyi Tony Oyegunle.
Фаил в приложении.
Спасибо всем кто откликнется.

 
Здравствуйте. А что если без формулы? Выделяете нужный диапазон, жмете Ctrl+H--Найти --пишите (*)--Заменить все.
 
Это тоже подойдет...!!! для быстрого решеня Спасибо большое!
А вот с формулой былобы великолепно.
 
Код
=СЖПРОБЕЛЫ(ЗАМЕНИТЬ(A1;ПОИСК("(";A1);ПОИСК(")";A1)-ПОИСК("(";A1)+1;""))
Согласие есть продукт при полном непротивлении сторон.
 
Хотите формулой? Попробуйте такую, но это только в соответствии с примером. Если в ячейке будет несколько текстов заключенных в скобки, результат будет не верный.
Код
=ПСТР(A1;1;ПОИСК("(";A1)-1)&ПСТР(A1;ПОИСК(")";A1)+1;99)
Изменено: gling - 22 Мар 2018 22:38:53
 
UDF
Код
Function Skobki(cell As String) As String
  With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "\(.*?\)"
    Skobki = .Replace(cell, "")
  End With
End Function
 
gling, Вашей формуле тоже СЖПРОБЕЛЫ не помешают. Или '-2' в первой части. Лишние пробелы оставляет
С '-2' в некоторых случаях неверный результат
Изменено: Sanja - 22 Мар 2018 22:43:57
Согласие есть продукт при полном непротивлении сторон.
 
Sanja, согласен, можно и без СЖПРОБЕЛЫ(), в формуле скобки прописать с пробелами, будет короче, даже если в конце еще пробел добавить. Оставил на усмотрение ТС, он про пробелы до скобок и после ничего не написал.
В примере оказывается есть скобки без пробела перед или после. Так что если не нужны лишние пробелы , то действительно СЖПРОБЕЛЫ() не помешает.
Изменено: gling - 22 Мар 2018 22:53:45
 
ещё вариант UDF в столбце G
Код
Function aaa$(text$)
    With CreateObject(Class:="VBScript.RegExp"): .Pattern = "^(.+)(\(.+\))(.+)?"
   If .test(text) Then aaa = Trim(.Replace(text, "$1$3"))
    End With
End Function
Изменено: кузя1972 - 22 Мар 2018 23:08:46
 
=СЖПРОБЕЛЫ(ЛЕВБ(A1;ПОИСК("(";A1)-1)&ПСТР(A1;ПОИСК(")";A1)+1;9))
А чтобы уж совсем-совсем, между фрагментами вставить пробел: &" "&
Страницы: 1
Читают тему (гостей: 1)
Наверх