Извлечение числе (2е число слева)
bmv98rus
Дата: Вторник, 24.12.2024, 19:30 |
Сообщение № 21
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация:
772
±
Замечаний:
0% ±
Excel 2013/2016
ну точка или , у мен не важно, но подправил чуток запас по символам взял недостаточно.
=ЕСЛИОШИБКА(--ПОДСТАВИТЬ(ЗАМЕНИТЬ(ЛЕВСИМВ($A1 ;АГРЕГАТ(15;6;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))/(МУМНОЖ(--ЕЧИСЛО(НАЙТИ(ПСТР($A1 ;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=2);D4 )-1);1;АГРЕГАТ(15;6;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))/(МУМНОЖ(--ЕЧИСЛО(НАЙТИ(ПСТР($A1 ;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=1);D4 )-1;);".";ПСТР(1%;2;1));"")
ну точка или , у мен не важно, но подправил чуток запас по символам взял недостаточно.
=ЕСЛИОШИБКА(--ПОДСТАВИТЬ(ЗАМЕНИТЬ(ЛЕВСИМВ($A1 ;АГРЕГАТ(15;6;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))/(МУМНОЖ(--ЕЧИСЛО(НАЙТИ(ПСТР($A1 ;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=2);D4 )-1);1;АГРЕГАТ(15;6;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))/(МУМНОЖ(--ЕЧИСЛО(НАЙТИ(ПСТР($A1 ;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=1);D4 )-1;);".";ПСТР(1%;2;1));"")
bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение ну точка или , у мен не важно, но подправил чуток запас по символам взял недостаточно.
=ЕСЛИОШИБКА(--ПОДСТАВИТЬ(ЗАМЕНИТЬ(ЛЕВСИМВ($A1 ;АГРЕГАТ(15;6;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))/(МУМНОЖ(--ЕЧИСЛО(НАЙТИ(ПСТР($A1 ;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=2);D4 )-1);1;АГРЕГАТ(15;6;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))/(МУМНОЖ(--ЕЧИСЛО(НАЙТИ(ПСТР($A1 ;СТРОКА($A1 :ИНДЕКС($A:$A ;ДЛСТР($A1 )+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=1);D4 )-1;);".";ПСТР(1%;2;1));"")
Автор - bmv98rus Дата добавления - 24.12.2024 в 19:30
Egyptian
Дата: Вторник, 24.12.2024, 19:50 |
Сообщение № 22
Группа: Проверенные
Ранг: Ветеран
Сообщений: 534
Репутация:
196
±
Замечаний:
0% ±
Excel 2013/2016
Еще вариант. Правда числа будут в текстовом формате.
=FILTERXML("<t><s>" &SUBSTITUTE(SUBSTITUTE($A1;"x" ;" " );" " ;"</s><s>" )&"</s></t>" ;"//s[number(translate(.,',','.'))=translate(.,',','.')][" &COLUMN(A1)&"]" )
Ну и вариант с преобразованием в числа:
=--SUBSTITUTE(FILTERXML("<t><s>" &SUBSTITUTE(SUBSTITUTE($A1;"x" ;" " );" " ;"</s><s>" )&"</s></t>" ;"//s[number(translate(.,',','.'))=translate(.,',','.')][" &COLUMN(A1)&"]" );"." ;MID(1 /2 ;2 ;1 ))
Еще вариант. Правда числа будут в текстовом формате.
=FILTERXML("<t><s>" &SUBSTITUTE(SUBSTITUTE($A1;"x" ;" " );" " ;"</s><s>" )&"</s></t>" ;"//s[number(translate(.,',','.'))=translate(.,',','.')][" &COLUMN(A1)&"]" )
Ну и вариант с преобразованием в числа:
=--SUBSTITUTE(FILTERXML("<t><s>" &SUBSTITUTE(SUBSTITUTE($A1;"x" ;" " );" " ;"</s><s>" )&"</s></t>" ;"//s[number(translate(.,',','.'))=translate(.,',','.')][" &COLUMN(A1)&"]" );"." ;MID(1 /2 ;2 ;1 ))
Egyptian
Сообщение отредактировал Egyptian - Вторник, 24.12.2024, 19:51
Ответить
Сообщение Еще вариант. Правда числа будут в текстовом формате. [vba]
=ФИЛЬТР.XML(""&SUBSTITUTE(SUBSTITUTE($A1 ;"x";" ");" ";" ")&" ";"//s[number(translate(.;';';'.'))=translate(.;';';'.')]["&СТОЛБЕЦ(A1 )&"]")
[/vba] Ну и вариант с преобразованием в числа: [vba]
=--ПОДСТАВИТЬ(ФИЛЬТР.XML(""&SUBSTITUTE(SUBSTITUTE($A1 ;"x";" ");" ";" ")&" ";"//s[number(translate(.;';';'.'))=translate(.;';';'.')]["&СТОЛБЕЦ(A1 )&"]");".";ПСТР(1/2;2;1))
[/vba] Автор - Egyptian Дата добавления - 24.12.2024 в 19:50
bmv98rus
Дата: Среда, 25.12.2024, 07:59 |
Сообщение № 23
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация:
772
±
Замечаний:
0% ±
Excel 2013/2016
Egyptian , 1.4 - первое апреля
Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение Egyptian , 1.4 - первое апреля Автор - bmv98rus Дата добавления - 25.12.2024 в 07:59
ellison_shiny
Дата: Среда, 25.12.2024, 08:39 |
Сообщение № 24
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация:
0
±
Замечаний:
0% ±
Вот файл оттуда с нормальной формулой
Это победа!) Благодарствую!
Вот файл оттуда с нормальной формулой
Это победа!) Благодарствую!ellison_shiny
Ответить
Сообщение Вот файл оттуда с нормальной формулой
Это победа!) Благодарствую!Автор - ellison_shiny Дата добавления - 25.12.2024 в 08:39
ellison_shiny
Дата: Среда, 25.12.2024, 10:21 |
Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация:
0
±
Замечаний:
0% ±
bmv98rus , если в Windows разделители настроены как "." и числа в строке имеют разделители "," , то данная формула не работает. Скрин с вашего файла.
bmv98rus , если в Windows разделители настроены как "." и числа в строке имеют разделители "," , то данная формула не работает. Скрин с вашего файла.ellison_shiny
Сообщение отредактировал ellison_shiny - Среда, 25.12.2024, 10:25
Ответить
Сообщение bmv98rus , если в Windows разделители настроены как "." и числа в строке имеют разделители "," , то данная формула не работает. Скрин с вашего файла.Автор - ellison_shiny Дата добавления - 25.12.2024 в 10:21
ellison_shiny
Дата: Среда, 25.12.2024, 10:26 |
Сообщение № 26
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация:
0
±
Замечаний:
0% ±
Egyptian , вот так не робит (см. скрин). Но при этом корректно работает как с точками, так и с зпт.
Egyptian , вот так не робит (см. скрин). Но при этом корректно работает как с точками, так и с зпт.ellison_shiny
Ответить
Сообщение Egyptian , вот так не робит (см. скрин). Но при этом корректно работает как с точками, так и с зпт.Автор - ellison_shiny Дата добавления - 25.12.2024 в 10:26
Egyptian
Дата: Суббота, 28.12.2024, 20:26 |
Сообщение № 27
Группа: Проверенные
Ранг: Ветеран
Сообщений: 534
Репутация:
196
±
Замечаний:
0% ±
Excel 2013/2016
вот так не робит (см. скрин).
И не будет. Всякие, "пю", "ню" и прочее нужно отдельно обрабатывать.
=FILTERXML("<t><s>" &SUBSTITUTE(SUBSTITUTE(SUBSTITUTE($A1;"пю" ;"x" );"x" ;" " );" " ;"</s><s>" )&"</s></t>" ;"//s[number(translate(.,',','.'))=translate(.,',','.')][" &COLUMN(A1)&"]" )
вот так не робит (см. скрин).
И не будет. Всякие, "пю", "ню" и прочее нужно отдельно обрабатывать.
=FILTERXML("<t><s>" &SUBSTITUTE(SUBSTITUTE(SUBSTITUTE($A1;"пю" ;"x" );"x" ;" " );" " ;"</s><s>" )&"</s></t>" ;"//s[number(translate(.,',','.'))=translate(.,',','.')][" &COLUMN(A1)&"]" )
Egyptian
Ответить
Сообщение вот так не робит (см. скрин).
И не будет. Всякие, "пю", "ню" и прочее нужно отдельно обрабатывать. [vba]
=ФИЛЬТР.XML(""&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE($A1 ;"пю";"x");"x";" ");" ";" ")&" ";"//s[number(translate(.;';';'.'))=translate(.;';';'.')]["&СТОЛБЕЦ(A1 )&"]")
[/vba]Автор - Egyptian Дата добавления - 28.12.2024 в 20:26