Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Извлечь артикул из текста
 
#1
28.06.2018 16:34:07
Привет! Подскажите пожалуйста как из прайса извлечь артикул. Например BWU60ARI404. Пример таблицы ниже
               Бордюр настенный (60х600х9)   Ariana беж. BWU60ARI404 (УРАЛКЕРАМИКА) 12шт/уп. Россия
               Бордюр   настенный (60х600х9) Ariana розов. BWU60ARI707 (УРАЛКЕРАМИКА) 12шт/уп. Россия
               Декор   настенный (200х600х9) Ariana беж. BWU11ARI404 (УРАЛКЕРАМИКА) 9шт/уп. Россия
               Декор   настенный (200х600х9) Ariana розов. BWU11ARI707 (УРАЛКЕРАМИКА) 9шт/уп. Россия
               Плитка   напольная (418х418х8,5) Ariana беж. TFU03ARI404 (УРАЛКЕРАМИКА)   10шт/1,747м.кв. Россия
               Плитка   напольная (418х418х8,5) Ariana фиолет. TFU03ARI707 (УРАЛКЕРАМИКА)   10шт/1,747м.кв. Россия
               Плитка   настенная (200х600х9) Ariana беж    рельеф TWU11ARI404 (УРАЛКЕРАМИКА) 14шт/1,68м.кв. Россия
               Плитка   настенная (200х600х9) Ariana белая рельеф TWU11ARI000 (УРАЛКЕРАМИКА)   14шт/1,68м.кв. Россия
               Плитка   настенная (200х600х9) Ariana крем рельеф TWU11ARI004 (УРАЛКЕРАМИКА)   14шт/1,68м.кв. Россия
               Плитка   настенная (200х600х9) Ariana фиолет. рельеф TWU11ARI707 (УРАЛКЕРАМИКА)   14шт/1,68м.кв. Россия
Изменено: Taras_5gor - 28.06.2018 16:42:42
 
 
 
#2
28.06.2018 16:36:37
=ПСТР()+ПОИСК()
ПОИСКом ищите позицию точки и позицию открывающейся скобки, а ПСТРом извлекаете текст между ними. Можно еще СЖПРОБЕЛЫ() прикрутить

Хотя с точками не всегда получится, нужно искать другую зацепку...
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
28.06.2018 16:49:42
Код
=ПСТР(ПСТР(A1;1;ПОИСК("#";ПОДСТАВИТЬ(A1;" (";"#";2))-1);ПРОСМОТР(999;ПОИСК(" ";ПСТР(A1;1;ПОИСК("#";ПОДСТАВИТЬ(A1;" (";"#";2))-1);СТРОКА(1:999)));99)
 
 
 
#4
28.06.2018 19:39:04
вариант функции для #1(не файл) в столбце 3
Код
 Function aaa$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "[A-Z]{3,}\w+": aaa = .Execute(t)(0)
End With
End Function
Изменено: кузя1972 - 28.06.2018 20:00:16
 
 
 
#5
28.06.2018 19:50:48
UDF
Код
Function iArticul(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "[A-ZА-Я]+\d+ ?[A-ZА-Я]+\d+"
     If .test(cell) Then
       iArticul = .Execute(cell)(0)
     Else
       iArticul = ""
     End If
 End With
End Function
 
 
 
Страницы: 1
Наверх