tenus
Дата: Суббота, 30.03.2019, 12:18 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Необходимо в ячейке с текстом преобразовать последние числа в трехзначное. т.е. в конце текста есть, к примеру, числа: 1, 2, 20, 123. надо получить 001, 002, 020, 123. Желательно через макрос спасибо
Необходимо в ячейке с текстом преобразовать последние числа в трехзначное. т.е. в конце текста есть, к примеру, числа: 1, 2, 20, 123. надо получить 001, 002, 020, 123. Желательно через макрос спасибо tenus
Ответить
Сообщение Необходимо в ячейке с текстом преобразовать последние числа в трехзначное. т.е. в конце текста есть, к примеру, числа: 1, 2, 20, 123. надо получить 001, 002, 020, 123. Желательно через макрос спасибо Автор - tenus Дата добавления - 30.03.2019 в 12:18
китин
Дата: Суббота, 30.03.2019, 13:14 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
а тогда почему в теме вопросы по Эксель? или формула тоже пойдет?
а тогда почему в теме вопросы по Эксель? или формула тоже пойдет?китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение а тогда почему в теме вопросы по Эксель? или формула тоже пойдет?Автор - китин Дата добавления - 30.03.2019 в 13:14
tenus
Дата: Суббота, 30.03.2019, 14:15 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
формула тоже пойдет
Ответить
Сообщение формула тоже пойдет Автор - tenus Дата добавления - 30.03.2019 в 14:15
китин
Дата: Суббота, 30.03.2019, 14:25 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
ну вот такой монстрик. зато не массивныйКод
=ПОДСТАВИТЬ(A2;"-"&СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A2;"-";ПОВТОР(" ";99));99));"-"&ТЕКСТ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A2;"-";ПОВТОР(" ";99));99));"0 00"))
ну вот такой монстрик. зато не массивныйКод
=ПОДСТАВИТЬ(A2;"-"&СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A2;"-";ПОВТОР(" ";99));99));"-"&ТЕКСТ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A2;"-";ПОВТОР(" ";99));99));"0 00"))
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение ну вот такой монстрик. зато не массивныйКод
=ПОДСТАВИТЬ(A2;"-"&СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A2;"-";ПОВТОР(" ";99));99));"-"&ТЕКСТ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A2;"-";ПОВТОР(" ";99));99));"0 00"))
Автор - китин Дата добавления - 30.03.2019 в 14:25
tenus
Дата: Суббота, 30.03.2019, 14:52 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
:up: спасибо
Ответить
Сообщение :up: спасибо Автор - tenus Дата добавления - 30.03.2019 в 14:52
bmv98rus
Дата: Суббота, 30.03.2019, 18:16 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация:
768
±
Замечаний:
0% ±
Excel 2013/2016
если все так структурировано, то достаточноКод
=REPLACE(A2;14;3;TEXT(MID(A2;14;3);"000"))
В то время как в общем случае формулы из #4 могут дать сбой, например для KL1-ST15-41P-41 будет KL1-ST15-041P-041 Вариант более гибкий [vba]Код
=REPLACE(A2;FIND(CHAR(9);SUBSTITUTE(A2;"-";CHAR(9);LEN(A2)-LEN(SUBSTITUTE(A2;"-";""))))+1;3;TEXT(--RIGHT(SUBSTITUTE(A2;"-";REPT(" ";99));99);"000"))
[/vba]
если все так структурировано, то достаточноКод
=REPLACE(A2;14;3;TEXT(MID(A2;14;3);"000"))
В то время как в общем случае формулы из #4 могут дать сбой, например для KL1-ST15-41P-41 будет KL1-ST15-041P-041 Вариант более гибкий [vba]Код
=REPLACE(A2;FIND(CHAR(9);SUBSTITUTE(A2;"-";CHAR(9);LEN(A2)-LEN(SUBSTITUTE(A2;"-";""))))+1;3;TEXT(--RIGHT(SUBSTITUTE(A2;"-";REPT(" ";99));99);"000"))
[/vba] bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Сообщение отредактировал bmv98rus - Суббота, 30.03.2019, 18:17
Ответить
Сообщение если все так структурировано, то достаточноКод
=REPLACE(A2;14;3;TEXT(MID(A2;14;3);"000"))
В то время как в общем случае формулы из #4 могут дать сбой, например для KL1-ST15-41P-41 будет KL1-ST15-041P-041 Вариант более гибкий [vba]Код
=REPLACE(A2;FIND(CHAR(9);SUBSTITUTE(A2;"-";CHAR(9);LEN(A2)-LEN(SUBSTITUTE(A2;"-";""))))+1;3;TEXT(--RIGHT(SUBSTITUTE(A2;"-";REPT(" ";99));99);"000"))
[/vba] Автор - bmv98rus Дата добавления - 30.03.2019 в 18:16