Извлечение 2-го слова из текста

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Извлечение 2-го слова из текста (Формулы/Formulas)

nechehov

Дата: Понедельник, 04.12.2017, 16:53 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 81

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый день!

С помощью какой формулы можно извлечь из текста 2-е слово, у которого может быть разное количество букв и стандартная формула ЛЕВСИМВ не подходит?

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

Ответить

buchlotnik

Дата: Понедельник, 04.12.2017, 16:59 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Код

=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A2;" ";ПОВТОР(" ";99));100;100))

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

Ответить

Che79

Дата: Понедельник, 04.12.2017, 17:37 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

не оптимизировано вообще

Код

{=СЖПРОБЕЛЫ(ПСТР(A2;ПОИСК(" ";A2)+1;ПОИСК("$";ПОДСТАВИТЬ(A2;" ";"$";2))-ПОИСК(" ";A2)-2*ИЛИ(ЕЧИСЛО(ПОИСК({",":";":".":";":":"};A2)))))}

- формула массива

К сообщению приложен файл: 3632951_1.xlsx (8.7 Kb)

Делай нормально и будет нормально!

Ответить

bmv98rus

Дата: Понедельник, 04.12.2017, 20:47 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Очень старый ресурс
там Returning Any Word Or Words In A String

Код

=MID(A10,SMALL(IF(MID(" "&A10,ROW(INDIRECT("1:"&LEN(A10)+1)),1)=" ",ROW(INDIRECT("1:"&LEN(A10)+1))),B10),SUM(SMALL(IF(MID(" "&A10&" ",ROW(INDIRECT("1:"&LEN(A10)+2)),1)=" ",ROW(INDIRECT("1:"&LEN(A10)+2))),B10+C10*{0,1})*{-1,1})-1)

Длинно, но универсально.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Понедельник, 04.12.2017, 20:48

Ответить

vikttur

Дата: Понедельник, 04.12.2017, 20:58 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Цитата

Длинно, но универсально.

... и тормознуто-летуче

Автору темы: пример нужно показвать не абы-какой, а продумать возможные варианты. Если по показанному примеру, можно проще - брать сразу с 5-го символа (автор утверждает, что все тексты начинаются так - "100 ")
А еще вопрос: запятая - часть слова или разделительный знак? Могут быть другие разделители?

Сообщение отредактировал vikttur - Понедельник, 04.12.2017, 21:17

Ответить

buchlotnik

Дата: Понедельник, 04.12.2017, 21:04 | Сообщение № 6

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

[offtop]блин, народ - у нас тут МШ наоборот нарисовался?

[/offtop]

Ответить

bmv98rus

Дата: Понедельник, 04.12.2017, 21:23 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата vikttur, 04.12.2017 в 20:58, в сообщении № 5 ()

тормознуто-летуче

Это да. Правда порой нужно что-то посчитать разово и такие решения помогают.

Цитата buchlotnik, 04.12.2017 в 21:04, в сообщении № 6 ()

МШ

Тезка, переведите пож.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

vikttur

Дата: Понедельник, 04.12.2017, 21:35 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Мозговой Штурм. Ветка, на которой сидят мозгоформуловыворачиватели

http://www.excelworld.ru/forum/7

Сообщение отредактировал vikttur - Понедельник, 04.12.2017, 21:37

Ответить

Che79

Дата: Понедельник, 04.12.2017, 21:41 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

вот еще вариант, не особо , правда, думая над оптимизацией (в столбце С). Знаки препинания считает за часть слова. В зелёных ячейках накидал вариантов для проверки

Код

=СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(A2;ПСТР(A2;1;ПОИСК(" ";A2));"");ПОИСК(" ";ПОДСТАВИТЬ(A2;ПСТР(A2;1;ПОИСК(" ";A2));""))))

МШ - мозговой штурм
Миша, (buchlotnik), краткость - с.т.!

К сообщению приложен файл: 3632951_2.xlsx (10.0 Kb)

Делай нормально и будет нормально!

Ответить

sv2014

Дата: Вторник, 05.12.2017, 00:32 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 0% ±

Excel 2013

nechehov, добрый вечер,ещё вариант функции в столбце E

[vba]

Код

Function yyy$(t$)
   With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True
    .Pattern = "(?:[^а-яё\w]|^)[а-яё\w]+(?=[^а-яё\w]|$)": yyy = .Execute(t)(1)
  End With
End Function

[/vba]

К сообщению приложен файл: example_04_12_2.xls (33.5 Kb)

Ответить

buchlotnik

Дата: Вторник, 05.12.2017, 00:38 | Сообщение № 11

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Ну если регулярки, зачем такие сложности в паттерне?

Код

=рег_извл(A2;"[^\s,\.]+";2)

[vba]

Код

Function рег_извл(t$, p$, Optional n = 1)
    Application.Volatile
    With CreateObject("VBScript.RegExp")
        If n > 1 Then .Global = True
        .Pattern = p
        рег_извл = .Execute(t)(n - 1)
    End With
End Function

[/vba]

К сообщению приложен файл: 8607679.xlsm (14.0 Kb)

Сообщение отредактировал buchlotnik - Вторник, 05.12.2017, 00:38

Ответить

Wasilich

Дата: Вторник, 05.12.2017, 01:55 | Сообщение № 12

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

МШ

И я вставлю.

Код

=ЛЕВСИМВ(ЗАМЕНИТЬ(A2;1;НАЙТИ(" ";A2;1);"");НАЙТИ(" ";ЗАМЕНИТЬ(A2;1;НАЙТИ(" ";A2;1);"");1)-1)

[vba]

Код

Sub tekst()
Dim i&, tk$, ns&
  For I = 2 To Range("A" & Rows.Count).End(xlUp).Row
    tk = Mid(Cells(I, 1), InStr(Cells(I, 1), " ") + 1)
    ns = InStr(Mid(Cells(I, 1), InStr(Cells(I, 1), " ") + 1), " ") - 1
    Cells(I, 3) = Mid(tk, 1, ns)
  Next
End Sub

[/vba]