Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удалить текст из ячейки кроме слова в кавычках
 
#1
14.08.2017 09:11:10
Добрый день!

Ячейки содержат определенный текст со словом в кавычках: How to remove all text "except" a word.
Вопрос:
Как удалить весь текст в нескольких ячейках кроме слова в кавычках?
 
 
 
#2
14.08.2017 09:15:39
Добрый и Вам.
=СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A1;НАЙТИ("""";A1)+1;ДЛСТР(A1));"""";ПОВТОР(" ";50));50))
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#3
14.08.2017 14:02:04
Еще вариант
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A1;"""";ПОВТОР(" ";99));99;99))
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#4
14.08.2017 19:54:41
Код
=ПСТР(ЛЕВБ(A1;НАЙТИ("!";ПОДСТАВИТЬ(A1;"""";"!";2))-1);НАЙТИ("""";A1)+1;99)
Изменено: z_sir - 14.08.2017 19:55:47
 
 
 
#5
14.08.2017 20:16:52
Цитата
кроме слова в кавычках
UDF
Код
Function iWord(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .IgnoreCase = True
     .Pattern = "[A-Za-z]+(?="")"
     iWord = .Execute(cell)(0)
 End With
End Function
 
 
 
#6
15.08.2017 00:10:39
ещё вариат паттерна  (Pattern) и берем .Execute(t)(1)
"[^""]+"
Код
Function vvv(t)
 With CreateObject("VBScript.RegExp"): .Pattern = "[^""]+": .Global = True
  vvv = .Execute(t)(1)
 End With
End Function
Изменено: sv2013 - 16.08.2017 22:16:35
 
 
 
#7
16.08.2017 15:23:51
Большое спасибо!  
 
 
 
Страницы: 1
Наверх