odeon16
Дата: Среда, 21.11.2018, 05:28 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Здравствуйте. Появился сложный вопрос. На листе есть диапазон E5:H34. Рядом желтый столбец I5:I34. В общем я так вообще просматриваю весь текст, что есть в диапазоне и если встречаются такие текстовые фрагменты - как например ", текст17 НОВ," - я копирую то что стоит между запятыми и вставляю напротив - в желтый столбец. А потом следующий подобный фрагмент (если он еще встретится в этой строке) - через запятую. Скажите - как формулой - через запятую - извлечь в желтый столбец из текстового диапазона E5:H34 - весь текст с отметкой "НОВ" ? (Вот если где-то в диапазоне - формула видит текст типа ",слово НОВ," - то формула извлекает в зеленый столбец - то что стоит между запятыми.)
Здравствуйте. Появился сложный вопрос. На листе есть диапазон E5:H34. Рядом желтый столбец I5:I34. В общем я так вообще просматриваю весь текст, что есть в диапазоне и если встречаются такие текстовые фрагменты - как например ", текст17 НОВ," - я копирую то что стоит между запятыми и вставляю напротив - в желтый столбец. А потом следующий подобный фрагмент (если он еще встретится в этой строке) - через запятую. Скажите - как формулой - через запятую - извлечь в желтый столбец из текстового диапазона E5:H34 - весь текст с отметкой "НОВ" ? (Вот если где-то в диапазоне - формула видит текст типа ",слово НОВ," - то формула извлекает в зеленый столбец - то что стоит между запятыми.) odeon16
Ответить
Сообщение Здравствуйте. Появился сложный вопрос. На листе есть диапазон 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]
Добрый день. Можно небольшой пользовательской функцией [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
Яндекс: 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));"")
Светлый
Программировать проще, чем писать стихи.
Ответить
Сообщение Добрый день! Ну и формулой (не более пяти фрагментов) (массивная 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