Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выбрать определенные слова из текста - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбрать определенные слова из текста (Формулы/Formulas)
Выбрать определенные слова из текста
Chelovekov Дата: Вторник, 10.04.2018, 13:38 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, гуры Екселя !!!!
Помогите решить проблему, нужно из текста выбрать определенные слова.
Образец прилагаю.
Всем спасибо.
К сообщению приложен файл: 7519428.xlsx(8.1 Kb)
 
Ответить
СообщениеЗдравствуйте, гуры Екселя !!!!
Помогите решить проблему, нужно из текста выбрать определенные слова.
Образец прилагаю.
Всем спасибо.

Автор - Chelovekov
Дата добавления - 10.04.2018 в 13:38
sboy Дата: Вторник, 10.04.2018, 13:46 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1696
Репутация: 482 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
1 строчки мало, дайте больше вариантов. Т.к. решение конкретно для этой строки может не работать для других
 
Ответить
СообщениеДобрый день.
1 строчки мало, дайте больше вариантов. Т.к. решение конкретно для этой строки может не работать для других

Автор - sboy
Дата добавления - 10.04.2018 в 13:46
Chelovekov Дата: Вторник, 10.04.2018, 13:53 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Вот так пойдет ???
К сообщению приложен файл: 0658261.xlsx(8.5 Kb)
 
Ответить
СообщениеВот так пойдет ???

Автор - Chelovekov
Дата добавления - 10.04.2018 в 13:53
sboy Дата: Вторник, 10.04.2018, 14:00 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1696
Репутация: 482 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Function chelovekov(t As String, nom As Integer)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[A-Za-z]+ [A-z]."
        chelovekov = .Execute(t)(nom - 1)
    End With
End Function
[/vba]
К сообщению приложен файл: 0658261.xlsm(14.1 Kb)
 
Ответить
Сообщение[vba]
Код
Function chelovekov(t As String, nom As Integer)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[A-Za-z]+ [A-z]."
        chelovekov = .Execute(t)(nom - 1)
    End With
End Function
[/vba]

Автор - sboy
Дата добавления - 10.04.2018 в 14:00
Chelovekov Дата: Вторник, 10.04.2018, 14:09 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Сказать что я восхищен, не сказать не чего. Дай бог вам здоровья. ОГРОМНОЕ СПАСИБО !!!!
 
Ответить
СообщениеСказать что я восхищен, не сказать не чего. Дай бог вам здоровья. ОГРОМНОЕ СПАСИБО !!!!

Автор - Chelovekov
Дата добавления - 10.04.2018 в 14:09
китин Дата: Вторник, 10.04.2018, 14:11 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4774
Репутация: 763 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
а так пойдет?,
Код
=ПСТР(ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);"");1;ПОИСК("[";ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);""))-1)
К сообщению приложен файл: _0658261.xlsx(9.2 Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеа так пойдет?,
Код
=ПСТР(ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);"");1;ПОИСК("[";ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);""))-1)

Автор - китин
Дата добавления - 10.04.2018 в 14:11
Chelovekov Дата: Вторник, 10.04.2018, 14:17 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Питчеры » Bettis C. [COL] (В, 2-4), Ryu Hyun-Jin [LAD] (П, 5-9)

Блин, блин а вот с этим примером вторая фамилия не полностью, можно решить ?
 
Ответить
СообщениеПитчеры » Bettis C. [COL] (В, 2-4), Ryu Hyun-Jin [LAD] (П, 5-9)

Блин, блин а вот с этим примером вторая фамилия не полностью, можно решить ?

Автор - Chelovekov
Дата добавления - 10.04.2018 в 14:17
китин Дата: Вторник, 10.04.2018, 14:18 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4774
Репутация: 763 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
с этим примером вторая фамилия не полностью

а мой пример смотрели? там полностью :p


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
с этим примером вторая фамилия не полностью

а мой пример смотрели? там полностью :p

Автор - китин
Дата добавления - 10.04.2018 в 14:18
Chelovekov Дата: Вторник, 10.04.2018, 14:19 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Питчеры » Перес М. [TEX] (В, 13-12), Алькантара Р. [OAK] (П, 1-2)
Мне уже не удобно, но с фамилиями на русском тоже проблема.
 
Ответить
СообщениеПитчеры » Перес М. [TEX] (В, 13-12), Алькантара Р. [OAK] (П, 1-2)
Мне уже не удобно, но с фамилиями на русском тоже проблема.

Автор - Chelovekov
Дата добавления - 10.04.2018 в 14:19
Chelovekov Дата: Вторник, 10.04.2018, 14:21 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо обоим, дай Бог вам здоровье.
 
Ответить
СообщениеСпасибо обоим, дай Бог вам здоровье.

Автор - Chelovekov
Дата добавления - 10.04.2018 в 14:21
китин Дата: Вторник, 10.04.2018, 14:22 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4774
Репутация: 763 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
на русском тоже проблема

не верю (с)
К сообщению приложен файл: _0658261_22.xlsx(9.5 Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
на русском тоже проблема

не верю (с)

Автор - китин
Дата добавления - 10.04.2018 в 14:22
sboy Дата: Вторник, 10.04.2018, 14:51 | Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 1696
Репутация: 482 ±
Замечаний: 0% ±

Excel 2010
тоже проблема
я поэтому Вам и писал
дайте больше вариантов

Пока новый паттерн не придумал...
 
Ответить
Сообщение
тоже проблема
я поэтому Вам и писал
дайте больше вариантов

Пока новый паттерн не придумал...

Автор - sboy
Дата добавления - 10.04.2018 в 14:51
sboy Дата: Вторник, 10.04.2018, 15:26 | Сообщение № 13
Группа: Проверенные
Ранг: Старожил
Сообщений: 1696
Репутация: 482 ±
Замечаний: 0% ±

Excel 2010
Для извлечения паттерн так и не составил, пришлось пойти путем замены
[vba]
Код
Function chelovekov(t As String, nom As Integer)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[А-я]+ »|\[.{4}|\(.{6,8}\)"
         q = Split(Trim(.Replace(t, "")), ",")
        chelovekov = Trim(q(nom - 1))
    End With
End Function
[/vba]
К сообщению приложен файл: 8990785.xlsm(15.3 Kb)
 
Ответить
СообщениеДля извлечения паттерн так и не составил, пришлось пойти путем замены
[vba]
Код
Function chelovekov(t As String, nom As Integer)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[А-я]+ »|\[.{4}|\(.{6,8}\)"
         q = Split(Trim(.Replace(t, "")), ",")
        chelovekov = Trim(q(nom - 1))
    End With
End Function
[/vba]

Автор - sboy
Дата добавления - 10.04.2018 в 15:26
Chelovekov Дата: Четверг, 12.04.2018, 14:28 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Еще раз спасибо за содействие
 
Ответить
СообщениеЕще раз спасибо за содействие

Автор - Chelovekov
Дата добавления - 12.04.2018 в 14:28
sboy Дата: Понедельник, 16.04.2018, 17:08 | Сообщение № 15
Группа: Проверенные
Ранг: Старожил
Сообщений: 1696
Репутация: 482 ±
Замечаний: 0% ±

Excel 2010
Для извлечения паттерн так и не составил

Сегодня в теме, Сергей sv2014 посоветовал книгу по регуляркам. Прочитав менее 14% книги (вся книга 598 страниц)), я смог составить паттерн для execute задачи из этого топика!
[vba]
Код
Function chelovekov(t As String, nom As Integer)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(?:» |\), )([^[]*)"
        chelovekov = .Execute(t)(nom - 1).Submatches(0)
    End With
End Function
[/vba]
К сообщению приложен файл: 0089268.xlsm(15.3 Kb)
 
Ответить
Сообщение
Для извлечения паттерн так и не составил

Сегодня в теме, Сергей sv2014 посоветовал книгу по регуляркам. Прочитав менее 14% книги (вся книга 598 страниц)), я смог составить паттерн для execute задачи из этого топика!
[vba]
Код
Function chelovekov(t As String, nom As Integer)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(?:» |\), )([^[]*)"
        chelovekov = .Execute(t)(nom - 1).Submatches(0)
    End With
End Function
[/vba]

Автор - sboy
Дата добавления - 16.04.2018 в 17:08
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбрать определенные слова из текста (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!