Проверить наличие слова и на основе этого подставить в строку

[gonny]

Задача следующая. В файле Excel есть 2 листа
1) Категории
2) Товар
Надо по названию определить к каким категориям относится товар.
Слева от категории артикул категории
Справа от категории 4 ячейки с условиями ( (1 И 2) ИЛИ 3) НЕТ 4
Например
Товар
Чехол Iphone 6
Категории
Iphone (1- Iphone,2-,3-,4-)
Iphone 6 (1 - Iphone 6, 2- ,3-, 4-plus)
Iphone 6 Plus (1-iphone 6, 2- plus,3-,4-)

Тогда получим, что для категорий Iphone и iphone 6 все условия выполняются - артикул слева от категории ставим в ячейку справа от товара через запятую.
А для Iphone 6 plus не выполняется и его артикуль не надо ставить.

Я так понимаю - макрос должен брать каждый товар, проходиться по всем условиям категорий, потом расчитывать логическую формулу - ИСТИНА или ЛОЖЬ она. Если Истина, то выписывать артикул категории. Потом проходить еще раз и через запятую собирать все полученные артикулы и ставить справа от товара.
категории с товаром-2.xlsx

[IgorGO]

1. откройте лист Товары
2. впишите что-нибудь в ячейку С2 (она не должна быть пустой) или удалите строку 2
3. правой кнопкой по ярлыку листа Товары
4. Исходный текст
5. в открывшееся окно скопируйте этот

Sub Start()
  Dim r As Long, fk As Range, cl As Range, ar
  r = 2
  Do While Not IsEmpty(Cells(r, 3))
    Cells(r, 4) = AllArt(Cells(r, 3))
    r = r + 1
  Loop
End Sub


Function AllArt(This As String) As String
  Dim r As Long, s As String
  r = 1
  With Worksheets(1)
    Do While Not IsEmpty(.Cells(r, 3))
      If This Like "*" & .Cells(r, 3) & "*" Then
        s = s & ", " & .Cells(r, 1)
      End If
      r = r + 1
    Loop
    If s <> "" Then AllArt = Right(s, Len(s) - 2)
  End With
End Function

6. выполните процедуру Start

[deni1982]

Спасибо мегамозгу