Страницы: 1
RSS
Вычленение части текста из текстовой ячейки
 
Добрый вечер.
Помогите пожалуйста решить следующую задачу. Пример приложил.
В столбце "Список 1" имеется каша из букв, цифр и прочих символов, но встречаются уникальные части текста (от одного до трех слов разделенных пробелами) которые хотелось бы вычленить в отдельный столбец (Необходимый список). Для меня сложность в том что место в тексте в "Списке 1", с которого начнется необходимый мне фрагмент не определен. Также возможно составление полного списка уникальных словосочетаний из "Необходимого списка".
Автозаполнение работает, но допускает ошибки и их отслеживание по времени приравнивается к заполнению руками.
 
Цитата
но встречаются уникальные части текста (от одного до трех слов разделенных пробелами)
Это слова, начинающиеся с большой буквы?
 
В большинстве случаев да, но не обязательно
 
В таком случае у вас из строки будет выделено аыворлоы,а это как раз каша из букв
 
В том и проблема, что выделить из каши хочется только те значения которые есть в контрольном списке...
 
Цитата
есть в контрольном списке...
Что за список?
Вы писали, что
Цитата
В столбце "Список 1" имеется каша из букв, цифр и прочих символов
Цитата
которые хотелось бы вычленить в отдельный столбец (Необходимый список)
 
Цитата
Kuzmich написал:
Что за список?
так написано ж необходимый или контрольный  :D

xottabuch, Вы понимаете , что искать не знамо что искать , бесполезная затея.
По вопросам из тем форума, личку не читаю.
 
xottabuch, без контрольного списка ищите закладку "Искусственный интеллект"  :D  
 
Недочет понял.
Прилагаю дополненный вариант.
Список 1 - это столбец, в котором ищем нужные мне словосочетания
Необходимый столбец - столбец, в который выписаны из Списка 1 нужные мне слова
Контрольный столбец - столбец, в котором содержаться все уникальные словосочетания (нужные мне), которые могут встретится в Списке 1

Вроде учел все.
 
Совершенно другой расклад.
По вопросам из тем форума, личку не читаю.
 
Еще в сообщении#2 я спрашивал
Это слова, начинающиеся с большой буквы?
UDF
Код
Function iWords(cell$)
 With CreateObject("VBScript.RegExp")
     .Pattern = "([А-ЯЁ][а-яё]+\s?){1,}"
     If .test(cell) Then
       iWords = .Execute(cell)(0)
     Else
       iWords = ""
     End If
 End With
End Function
Страницы: 1
Наверх