Сложное сложение текстовых ячеек

[bize]

Помогите решить вот эту головоломку

[doober]

В формулах не силен,написал пользовательскую функцию
Маска для отбора слово пробел цифры

[bize]

Огромное спасибо,но если можно то вот:в ячейке В7 меняю букву Д на Н то значение меняется в ячейке С13 а вот в С14 нет
И вот если можно сделать так что б результаты в ячейках С13 и С14 не повторялись(если есть одинаковый текст то писался только один раз)

[doober]

Поправлю на повторы
А касательно С14 посмотрите какой диапазон выбран,он на одну строку ниже.я протягивал формулу и не поправил

[bize]

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

[doober]

Убрал повторы

=Vprava(B14;B7:C12)

B14-это ячейка = значение для сравнения буква в вашем случае Н или Д,может быть любое слово

B7:C12-просматриваемый диапазон

[bize]

я нашел и где это прописанно,но вот возможно ли эти условия переносить в другую книгу ?

[bize]

я так понимаю мне надо как-то перенести составленную програмку =Vprava в другую книгу и там уже вставить ее с заменой пути на нужные мне ячейки.??

[doober]

alt+F11
Вредакторе VBA добавляете в новую книгу модуль,копируете текст функции.сохраняете с поддержкой макросов

 Public Function Vprava(RR As Range, ByVal Rg As Range) As String
      Dim R
      Dim s As String, s2 As String
bRes = False
  Set RegExp = CreateObject("VBScript.RegExp")
  RegExp.Global = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "(,\W{1,}\s\d{1,})"
    For n = 1 To Rg.Rows.Count
     s2 = Rg(n, 1).Value
      If s2 = RR(1, 1).Value Then
      s = s & "," & Rg(n, 2).Value
      End If
      Next
    bRes = RegExp.test(s)
        If bRes Then
            Set oMatches = RegExp.Execute(s)
            Set oMatch = oMatches(0)
           For Each oMatch In oMatches
            If InStr(1, R, oMatch, vbTextCompare) = 0 Then
             R = R & oMatch
            End If
                       
            Next
        
        End If
  Vprava = R
 If Left(R, 1) = "," Then
  Vprava = Mid(R, 2, Len(R) - 1)
 End If

 End Function

[bize]

я перенес и он уже есть в нужном мне файле,но когда я вставляю в нужную мне ячейку =Vprava с помененными на нужные мне ячейки то в результате чистая ячейка(