bmv98rus |
Дата: Вторник, 24.12.2024, 19:30 |
Сообщение № 21 |
|
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4124
Репутация:
769
±
Замечаний:
0% ±
Excel 2013/2016 | |
ну точка или , у мен не важно, но подправил чуток запас по символам взял недостаточно.
Код =IFERROR(--SUBSTITUTE(REPLACE(LEFT($A1;AGGREGATE(15;6;ROW($A1:INDEX($A:$A;LEN($A1)+2))/(MMULT(--ISNUMBER(FIND(MID($A1;ROW($A1:INDEX($A:$A;LEN($A1)+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=2);D4)-1);1;AGGREGATE(15;6;ROW($A1:INDEX($A:$A;LEN($A1)+2))/(MMULT(--ISNUMBER(FIND(MID($A1;ROW($A1:INDEX($A:$A;LEN($A1)+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=1);D4)-1;);".";MID(1%;2;1));"")
ну точка или , у мен не важно, но подправил чуток запас по символам взял недостаточно.
Код =IFERROR(--SUBSTITUTE(REPLACE(LEFT($A1;AGGREGATE(15;6;ROW($A1:INDEX($A:$A;LEN($A1)+2))/(MMULT(--ISNUMBER(FIND(MID($A1;ROW($A1:INDEX($A:$A;LEN($A1)+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=2);D4)-1);1;AGGREGATE(15;6;ROW($A1:INDEX($A:$A;LEN($A1)+2))/(MMULT(--ISNUMBER(FIND(MID($A1;ROW($A1:INDEX($A:$A;LEN($A1)+2))-{1\0};1);".,0123456789"))*{2\1};{1;1})=1);D4)-1;);".";MID(1%;2;1));"") bmv98rus
Замечательный Временно просто медведь , процентов на 20.
|
|
| Ответить
|
Egyptian |
Дата: Вторник, 24.12.2024, 19:50 |
Сообщение № 22 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 527
Репутация:
193
±
Замечаний:
0% ±
Excel 2013/2016 | |
Еще вариант. Правда числа будут в текстовом формате. [vba]Код =FILTERXML("<t><s>"&SUBSTITUTE(SUBSTITUTE($A1;"x";" ");" ";"</s><s>")&"</s></t>";"//s[number(translate(.,',','.'))=translate(.,',','.')]["&COLUMN(A1)&"]") [/vba] Ну и вариант с преобразованием в числа: [vba]Код =--SUBSTITUTE(FILTERXML("<t><s>"&SUBSTITUTE(SUBSTITUTE($A1;"x";" ");" ";"</s><s>")&"</s></t>";"//s[number(translate(.,',','.'))=translate(.,',','.')]["&COLUMN(A1)&"]");".";MID(1/2;2;1)) [/vba]
Еще вариант. Правда числа будут в текстовом формате. [vba]Код =FILTERXML("<t><s>"&SUBSTITUTE(SUBSTITUTE($A1;"x";" ");" ";"</s><s>")&"</s></t>";"//s[number(translate(.,',','.'))=translate(.,',','.')]["&COLUMN(A1)&"]") [/vba] Ну и вариант с преобразованием в числа: [vba]Код =--SUBSTITUTE(FILTERXML("<t><s>"&SUBSTITUTE(SUBSTITUTE($A1;"x";" ");" ";"</s><s>")&"</s></t>";"//s[number(translate(.,',','.'))=translate(.,',','.')]["&COLUMN(A1)&"]");".";MID(1/2;2;1)) [/vba]Egyptian
Сообщение отредактировал Egyptian - Вторник, 24.12.2024, 19:51 |
|
| Ответить
|