Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Скопировать из текстовой ячейки символы в скобках ( ... )
 
#1
20.01.2016 13:12:44
Множество ячеек с подобными записями:
                   61279//3 декор   DECOMASTER-2 дети (730*250*80мм)
Необходимо в новую ячейку скопировать символы из скобок ( ) - то есть 730*250*80мм.

Длина/кол-во символов в скобках меняется и оно не постоянное.
Как это сделать? Разумеется скобки ( ) можно менять на что угодно (то есть можно заменить их на одинаковый символ, например ©).
 
 
 
#2
20.01.2016 13:17:32
в файле примере покажите все возможные записи. или предложенный вариант во всех ячейках?
 
 
 
#3
20.01.2016 13:18:22
Код
?
1
=ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("(";A1)+1;ДЛСТР(A1));")";"")
Изменено: китин - 20.01.2016 13:19:09
Вполне такой нормальный кинжальчик. Процентов на 100
 
 
 
#4
20.01.2016 13:20:40
Можно какой-то такой формулой (при условии, что начальные данные в А1 и набор скобок там - один)
Код
?
1
=ПСТР(A1;ПОИСК("(";A1)+1;ПОИСК(")";A1)-(ПОИСК("(";A1)+1))
Кому решение нужно - тот пример и рисует.
 
 
 
#5
20.01.2016 13:29:10
V, СПАСИБО ОГРОМНОЕ!!!  :)
 
 
 
#6
20.01.2016 13:39:52
Цитата
V, СПАСИБО ОГРОМНОЕ!!!
Вот что значит - написать вовремя! А китин и Пытливый - чего они тут делают? :)
 
 
 
#7
20.01.2016 13:41:11
китин, Пытливый, СПАСИБО за ПРАВИЛЬНУЮ формулу!!!

P.s. прошу прощения за ошибку))
 
 
 
#8
20.01.2016 18:26:35
добрый вечер три варианта функций в ячейкахю C1 D1 E1
 
Код
?
1
2
3
Function uuu$(t$)
  uuu = Split(Split(t, "(")(1), ")")(0)
End Function
Код
?
1
2
3
4
5
Function yyy$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\((.+)\)"
         yyy = .Execute(t)(0).Submatches(0)
    End With
End Function
Код
?
1
2
3
Function zzz$(t$)
  zzz = Replace(Mid(t, InStrRev(t, "(") + 1), ")", "")
End Function
Изменено: sv2013 - 20.01.2016 18:27:04
 
 
 
Страницы: 1
Читают тему
Loading...