Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Извлечь часть текста из ячейки
 
#1
15.09.2016 16:33:13
Добрий день.
Нужно из ячейки вытянуть часть текста например "20160404_Стовік ІО" или "20160225_Вантаж" или "20151204", и перенести весь вытянутый текст в другую колонку.

Пример текста в ячейках:
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\Внутрішня\ФО\20160404_Стовік ІО\ФІфіФІфіФІфі.pdf
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\Внутрішня\ФО\20160404_Стовік ІО\STOVICIO.pdf
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\Внутрішня\ЮО\20160225_Вантаж
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\Внутрішня\ЮО\20160225_Вантаж\asdasdasdasd.docx
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\Внутрішня\ЮО\20160225_Вантаж Трейд\asdasdasdasdasd.PDF
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\Внутрішня\ЮО\20160225_Вантаж Трейд\New folder
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\Внутрішня\ЮО\20160225_Вантаж Трейд\New folder\asdasdadasdasd.doc
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\ФО\20151204
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\ФО\20160809
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\ФО\20151204\ІФФІфФІфі.pdf
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\ФО\20151204\ФІфіФІіфФІфі.msg
C:\workmaterial\РОБОЧІ МАТЕРІАЛИ\ФО\20160809\ІФфіФІфіФІфі.pdf
Изменено: gorshok - 15.09.2016 16:38:05
 
 
 
#2
15.09.2016 16:37:56
Это пример текста в сообщении, который нужно вставить во вновь созданный файл. Это должны делать помогающие?
 
 
 
#3
15.09.2016 16:40:32
gorshok, доброго вечера! Прикрепите пример в файле Excel, в котором объясните - по какому правилу необходимо вытаскивать текст…всё, после последнего "/" ???
Изменено: Jack Famous - 15.09.2016 16:41:20
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#4
15.09.2016 16:45:18
=ЛЕВБ(ЗАМЕНИТЬ(ПОДСТАВИТЬ(A1;"\2";"/2");1;ПОИСК("/2";ПОДСТАВИТЬ(A1;"\2";"/2"));"");ЕСЛИ(ЕЧИСЛО(ПОИСК("";ЗАМЕНИТЬ(ПОДСТАВИТЬ(A1;"\2";"/2");1;ПОИСК("/2";ПОДСТАВИТЬ(A1;"\2";"/2"));"")));ПОИСК("";ЗАМЕНИТЬ(ПОДСТАВИТЬ(A1;"\2";"/2");1;ПОИСК("/2";ПОДСТАВИТЬ(A1;"\2";"/2"));""))-1;255))

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
15.09.2016 16:47:04
Извеняюсь, вот файл.

Необходимо вытащить текст, дата нижний прочерк название, или в некоторых случаях просто дата, текст иногда может находиться перед последним "/" а иногда чуть глубже.

Примеры того что нужно вытащить:
1. 20160404_Стовік ІО
2. 20160225_Вантаж Трейд
3. 20150323_Бізон Імпорт
4. 20151204
Изменено: gorshok - 15.09.2016 16:48:25
 
 
 
#6
15.09.2016 16:54:20
для примера
Код
=ЕСЛИОШИБКА(ЗАМЕНИТЬ(ПСТР(A1;ПОИСК("\2";A1)+1;100);ПОИСК("\";ПСТР(A1;ПОИСК("\2";A1)+1;100));100;"");ПСТР(A1;ПОИСК("\2";A1)+1;100))
Лень двигатель прогресса, доказано!!!
 
 
 
#7
15.09.2016 16:55:56
=ЕСЛИ(ЕОШ(ПОИСК("\";ПСТР(A2;МИН(ЕСЛИ(ЕСЛИОШИБКА(ПОИСКПОЗ(ЕСЛИ(ЕЧИСЛО(-ПСТР(A2;СТРОКА($A$1:$A$299);1));СТРОКА($A$1:$A$299));ЕСЛИ(ЕЧИСЛО(ПОИСК("\";ПСТР(A2;СТРОКА($A$1:$A$299);1)));СТРОКА($A$2:$A$300)););)>1;СТРОКА($A$2:$A$300)));30)));ПСТР(A2;МИН(ЕСЛИ(ЕСЛИОШИБКА(ПОИСКПОЗ(ЕСЛИ(ЕЧИСЛО(-ПСТР(A2;СТРОКА($A$1:$A$299);1));СТРОКА($A$1:$A$299));ЕСЛИ(ЕЧИСЛО(ПОИСК("\";ПСТР(A2;СТРОКА($A$1:$A$299);1)));СТРОКА($A$2:$A$300)););)>1;СТРОКА($A$1:$A$299)));30);ПСТР(A2;МИН(ЕСЛИ(ЕСЛИОШИБКА(ПОИСКПОЗ(ЕСЛИ(ЕЧИСЛО(-ПСТР(A2;СТРОКА($A$1:$A$299);1));СТРОКА($A$1:$A$299));ЕСЛИ(ЕЧИСЛО(ПОИСК("\";ПСТР(A2;СТРОКА($A$1:$A$299);1)));СТРОКА($A$2:$A$300)););)>1;СТРОКА($A$1:$A$299)));ПОИСК("\";ПСТР(A2;МИН(ЕСЛИ(ЕСЛИОШИБКА(ПОИСКПОЗ(ЕСЛИ(ЕЧИСЛО(-ПСТР(A2;СТРОКА($A$1:$A$299);1));СТРОКА($A$1:$A$299));ЕСЛИ(ЕЧИСЛО(ПОИСК("\";ПСТР(A2;СТРОКА($A$1:$A$299);1)));СТРОКА($A$2:$A$300)););)>1;СТРОКА($A$2:$A$300)));30))))
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#8
15.09.2016 16:57:09
Код
=ЛЕВСИМВ(ПСТР(A1;ПОИСК("\??\";A1)+4;50);ПОИСК("\";ПСТР(A1&"\";ПОИСК("\??\";A1)+4;50))-1)
=СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("\??\";A1)+4;50);"\";ПОВТОР(" ";50));50))
 
 
 
#9
15.09.2016 16:59:48
vikttur, у меня Ваша формула пустой результат выдаёт.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#10
15.09.2016 17:01:04
вариант функции в столбце B

Код
 Function uuu(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+_?([^\\]+)?"
    uuu = .Execute(t)(0)
 End With
End Function
Изменено: sv2013 - 15.09.2016 17:01:20
 
 
 
#11
15.09.2016 17:03:37
Цитата
JayBhagavan написал:  у меня Ваша формула пустой результат выдаёт.
Привставке задел за границу темы и обломал :)
Заменил формулу

А без шуток: при вставке в сообщение формулы без тэгов Code из значения для поиска
Код
 \??\
удаляется второй символ "\"
 
 
 
#12
15.09.2016 17:12:03
JayBhagavan, Сергей : Спасибо ваши формулы работают, с остальными еще играюсь, так как Office английский переписываю формулы.
Изменено: gorshok - 15.09.2016 17:12:20
 
 
 
#13
15.09.2016 17:58:50
vikttur, Спасибо, ваша формула также работает.
 
 
 
Страницы: 1
Читают тему
Наверх