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

Вход

Регистрация

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

 

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

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Как выбрать из диапазона, определенные словосочетания
odeon16 Дата: Среда, 21.11.2018, 05:28 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте.
Появился сложный вопрос.

На листе есть диапазон E5:H34. Рядом желтый столбец I5:I34.
В общем я так вообще просматриваю весь текст, что есть в диапазоне и если встречаются такие текстовые фрагменты - как например ", текст17 НОВ," - я копирую то что стоит между запятыми и вставляю напротив - в желтый столбец.
А потом следующий подобный фрагмент (если он еще встретится в этой строке) - через запятую.

Скажите - как формулой - через запятую - извлечь в желтый столбец из текстового диапазона E5:H34 - весь текст с отметкой "НОВ" ?

(Вот если где-то в диапазоне - формула видит текст типа ",слово НОВ," - то формула извлекает в зеленый столбец - то что стоит между запятыми.)
К сообщению приложен файл: 5451754.xls (30.5 Kb)
 
Ответить
СообщениеЗдравствуйте.
Появился сложный вопрос.

На листе есть диапазон E5:H34. Рядом желтый столбец I5:I34.
В общем я так вообще просматриваю весь текст, что есть в диапазоне и если встречаются такие текстовые фрагменты - как например ", текст17 НОВ," - я копирую то что стоит между запятыми и вставляю напротив - в желтый столбец.
А потом следующий подобный фрагмент (если он еще встретится в этой строке) - через запятую.

Скажите - как формулой - через запятую - извлечь в желтый столбец из текстового диапазона E5:H34 - весь текст с отметкой "НОВ" ?

(Вот если где-то в диапазоне - формула видит текст типа ",слово НОВ," - то формула извлекает в зеленый столбец - то что стоит между запятыми.)

Автор - odeon16
Дата добавления - 21.11.2018 в 05:28
sboy Дата: Среда, 21.11.2018, 09:14 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Можно небольшой пользовательской функцией
[vba]
Код
Function odeon16(r As Range) As String
    For Each c In r.Cells
        s = Split(c.Value, ",")
            For i = 0 To UBound(s)
                If s(i) Like "*НОВ" Then odeon16 = odeon16 & s(i) & ","
            Next
    Next
End Function
[/vba]
К сообщению приложен файл: 5259438.xls (40.5 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Можно небольшой пользовательской функцией
[vba]
Код
Function odeon16(r As Range) As String
    For Each c In r.Cells
        s = Split(c.Value, ",")
            For i = 0 To UBound(s)
                If s(i) Like "*НОВ" Then odeon16 = odeon16 & s(i) & ","
            Next
    Next
End Function
[/vba]

Автор - sboy
Дата добавления - 21.11.2018 в 09:14
Светлый Дата: Среда, 21.11.2018, 11:47 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1868
Репутация: 536 ±
Замечаний: 0% ±

Excel 2013, 2016
Добрый день!
Ну и формулой (не более пяти фрагментов) (массивная Ctrl+Shift+Enter) для формата файла офис 2007 и выше:
Код
=ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);СТОЛБЕЦ(A6));99));"")&ЕСЛИОШИБКА(","&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);2);99));"")&ЕСЛИОШИБКА(","&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);3);99));"")&ЕСЛИОШИБКА(","&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);4);99));"")&ЕСЛИОШИБКА(","&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);5);99));"")


Программировать проще, чем писать стихи.
 
Ответить
СообщениеДобрый день!
Ну и формулой (не более пяти фрагментов) (массивная Ctrl+Shift+Enter) для формата файла офис 2007 и выше:
Код
=ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);СТОЛБЕЦ(A6));99));"")&ЕСЛИОШИБКА(","&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);2);99));"")&ЕСЛИОШИБКА(","&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);3);99));"")&ЕСЛИОШИБКА(","&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);4);99));"")&ЕСЛИОШИБКА(","&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(НАЙТИ("НОВ";ПСТР(ПОДСТАВИТЬ($E6&","&$F6&","&$G6&","&$H6;",";ПОВТОР(" ";99));СТРОКА($1:$29)*99-98;99)));СТРОКА($1:$29)*99-98);5);99));"")

Автор - Светлый
Дата добавления - 21.11.2018 в 11:47
odeon16 Дата: Среда, 21.11.2018, 17:35 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем спасибо за ответы.
 
Ответить
СообщениеВсем спасибо за ответы.

Автор - odeon16
Дата добавления - 21.11.2018 в 17:35
  • Страница 1 из 1
  • 1
Поиск:

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