поиск текста(эл-т массива) в массиве строк

[peq]

прилагаю файл.

в столбце "D" список строк. все строки разные, каждая строка уникальна.
в столбце "C" список ключевых слов.

в столбце "A" хочется получить через запятую список ключевых слов, встречающихся в соответствующей ячейке столбца D.

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


если такое возможно, очень хотелось бы получить формулу на решение такой задачки. не совсем вижу, как ее составить..

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

[EducatedFool]

Вот вариант с применением пользовательской функции:

Option Compare Text

Function СписокСлов(ByVal cell As Range, ByRef Список As Range) As String
    txt = " " & LCase(cell.Text) & " "
    For Each word In Список.Value
        If Len(word) Then If txt Like "* " & Trim(word) & " *" Then СписокСлов = СписокСлов & ", " & word
    Next
    If Len(СписокСлов) Then СписокСлов = Mid(СписокСлов, 3)
End Function

Обратите внимание на формулы:

  Ячейка: A2      Формула  (стиль A1):   =СписокСлов(D2;$C$2:$C$13)
                  Формула  (стиль R1C1): =СписокСлов(RC[3];R2C3:R13C3)

PS: Вообще, в таких случаях надо применять только макросы - формулы при большом объёме данных будут слишком долго пересчитываться.
Особенно, если вы намереваетесь осуществлять подобный поиск по полному тексту "Анны Карениной"

[peq]

немного жаль, не "встроенная" формула, но все равно большое спасибо
буду, значит, ботать макросы

p.s.
текст Толстого взят исключительно в качестве примера рабочий файл выкладывать сюда было бы наверное неправильно.. увы.