Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удалие содержимого в скобках., Текстовая формула
 
#1
22.03.2018 22:05:58
Доброго времени суток форумчане,
Есть вот такой вопрос.
Это имя сотрудника, Seyi Tony Oyegunle (Pmp) в ковычках его инженерный сертифекат. Нужна формула которая вернет Seyi Tony Oyegunle.
Фаил в приложении.
Спасибо всем кто откликнется.
 
 
 
#2
22.03.2018 22:15:21
Здравствуйте. А что если без формулы? Выделяете нужный диапазон, жмете Ctrl+H--Найти --пишите (*)--Заменить все.
 
 
 
#3
22.03.2018 22:20:07
Это тоже подойдет...!!! для быстрого решеня Спасибо большое!
А вот с формулой былобы великолепно.
 
 
 
#4
22.03.2018 22:33:47
Код
=СЖПРОБЕЛЫ(ЗАМЕНИТЬ(A1;ПОИСК("(";A1);ПОИСК(")";A1)-ПОИСК("(";A1)+1;""))
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
22.03.2018 22:36:39
Хотите формулой? Попробуйте такую, но это только в соответствии с примером. Если в ячейке будет несколько текстов заключенных в скобки, результат будет не верный.
Код
=ПСТР(A1;1;ПОИСК("(";A1)-1)&ПСТР(A1;ПОИСК(")";A1)+1;99)
Изменено: gling - 22.03.2018 22:38:53
 
 
 
#6
22.03.2018 22:40:04
UDF
Код
Function Skobki(cell As String) As String
  With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "\(.*?\)"
    Skobki = .Replace(cell, "")
  End With
End Function
 
 
 
#7
22.03.2018 22:41:21
gling, Вашей формуле тоже СЖПРОБЕЛЫ не помешают. Или '-2' в первой части. Лишние пробелы оставляет
С '-2' в некоторых случаях неверный результат
Изменено: Sanja - 22.03.2018 22:43:57
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
22.03.2018 22:49:33
Sanja, согласен, можно и без СЖПРОБЕЛЫ(), в формуле скобки прописать с пробелами, будет короче, даже если в конце еще пробел добавить. Оставил на усмотрение ТС, он про пробелы до скобок и после ничего не написал.
В примере оказывается есть скобки без пробела перед или после. Так что если не нужны лишние пробелы , то действительно СЖПРОБЕЛЫ() не помешает.
Изменено: gling - 22.03.2018 22:53:45
 
 
 
#9
22.03.2018 23:08:26
ещё вариант 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.03.2018 23:08:46
 
 
 
#10
23.03.2018 00:43:02
=СЖПРОБЕЛЫ(ЛЕВБ(A1;ПОИСК("(";A1)-1)&ПСТР(A1;ПОИСК(")";A1)+1;9))
А чтобы уж совсем-совсем, между фрагментами вставить пробел: &" "&
 
 
 
Страницы: 1
Наверх