Поиск по обравкам слов, формирование новых столбцов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск по обравкам слов, формирование новых столбцов (Формулы/Formulas)

Magn

Дата: Четверг, 28.05.2015, 18:47 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброе утро, помогите пожалуйста решить ~~невыполнимую~~ сложную задачу.
Задача следующая: у нас имеется порядка 800 изделий по типу тех которые имеются в примере.
У изделия есть Артикул и Типоисполнение. В типоисполнении ~~вся соль~~ указан основной состав изделия, так как разные инженеры его подбирали то в нем и по разному раскиданы комплектующие, у кого-то на первом месте стоит свет, у кого-то корпус.

Пример типоисполнения
первый код артикула - температура - корпус - свет - пульт
или
первый код артикула - температура - корпус - пульт - свет

Как вы поняли типоисполнение тоже состоит из артикулов других изделий.
Необходимо каким то образом вытащить эти данные и раскидать по соответствующим категориям, напротив типоисполнения, как у меня в примере.
В итоге получиться ~~красивая~~ табличка по которой можно будет сделать фильтр

Я нашел решение, оно есть во вложенном файле, но оно немного не подходит, из-за того что длина артикулов может отличаться.
Комментарий написан внутри фала

Извиняюсь если дублирую похожий запрос, дайте на него пожалуйста ссылку!
И прошу прощение если не правильно дал название теме!
Спасибо!

К сообщению приложен файл: _2013.xlsx (31.3 Kb)

Ответить

СообщениеДоброе утро, помогите пожалуйста решить ~~невыполнимую~~ сложную задачу.
Задача следующая: у нас имеется порядка 800 изделий по типу тех которые имеются в примере.
У изделия есть Артикул и Типоисполнение. В типоисполнении ~~вся соль~~ указан основной состав изделия, так как разные инженеры его подбирали то в нем и по разному раскиданы комплектующие, у кого-то на первом месте стоит свет, у кого-то корпус.

Пример типоисполнения
первый код артикула - температура - корпус - свет - пульт
или
первый код артикула - температура - корпус - пульт - свет

Как вы поняли типоисполнение тоже состоит из артикулов других изделий.
Необходимо каким то образом вытащить эти данные и раскидать по соответствующим категориям, напротив типоисполнения, как у меня в примере.
В итоге получиться ~~красивая~~ табличка по которой можно будет сделать фильтр

Я нашел решение, оно есть во вложенном файле, но оно немного не подходит, из-за того что длина артикулов может отличаться.
Комментарий написан внутри фала

Извиняюсь если дублирую похожий запрос, дайте на него пожалуйста ссылку!
И прошу прощение если не правильно дал название теме!
Спасибо!

Автор - Magn
Дата добавления - 28.05.2015 в 18:47

Russel

Дата: Четверг, 28.05.2015, 18:56 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1394

Репутация: 320 ±

Замечаний: 0% ±

Excel 2010

Количество символов в ПСТР задайте формулой, например так:

Код

=ЕСЛИОШИБКА(ЛЕВБ(ПСТР(C4;ПОИСК("ПУ";C4)-0;99);ПОИСК("]";(ПСТР(C4;ПОИСК("ПУ";C4)-0;99)))-1);"-")

QIWI 9173973973

Ответить

Pelena

Дата: Четверг, 28.05.2015, 19:03 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

Репутация: 4421 ±

Замечаний: ±

Excel 365 & Mac Excel

Как вариант

Код

=ЕСЛИОШИБКА(ПСТР(C3;ПОИСК("ПУ";C3);ПОИСК("]";C3;ПОИСК("ПУ";C3)+1)-ПОИСК("ПУ";C3));"-")

К сообщению приложен файл: 0495222.xlsx (31.3 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

МВТ

Дата: Четверг, 28.05.2015, 21:31 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

Можно попробовать макросм - работает на выделенном диапазоне (только не понял, куда вставлять артикул, но по аналогии доделать просто) [vba]

Код

Sub Art()
Dim Arr
Dim S As String
With Selection
For I = 1 To .Rows.Count
S = .Cells(I, 1)
Arr = Split(S)
For J = 0 To UBound(Arr)
If InStr(Arr(J), "[") <> 0 Then
      If InStr(Arr(J), "КС") Then .Cells(I, 1).Offset(0, 1) = Replace(Replace(Arr(J), "[", ""), "]", "") _
      Else If InStr(Arr(J), "ПУ") Then .Cells(I, 1).Offset(0, 2) = Replace(Replace(Arr(J), "[", ""), "]", "") _
      Else If InStr(Arr(J), "B.Ex") Then .Cells(I, 1).Offset(0, 3) = Replace(Replace(Arr(J), "[", ""), "]", "")
Else: If Arr(J) Like "-*/+*" Then .Cells(I, 1).Offset(0, 4) = Arr(J)
End If

Next J
Next I
End With
End Sub

[/vba]

Сообщение отредактировал МВТ - Четверг, 28.05.2015, 21:33

Ответить

Страница 1 из 1
1