Если все ключевые слова вынести в один столбец, можно обойтись такой формулой: =СЖПРОБЕЛЫ(ЗАМЕНИТЬ(Таблица4[@[Столбец 1]];СУММ(ЕСЛИОШИБКА(ПОИСК(" "&$F$2:$F$9&" ";" "&Таблица4[@[Столбец 1]]&" ");0));СУММ(ЕЧИСЛО(ПОИСК(" "&$F$2:$F$9&" ";" "&Таблица4[@[Столбец 1]]&" "))*ДЛСТР($F$2:$F$9));""))
Максим В., почему-то не получается скопировать формулу, чтобы она работала. И когда нажал 2 раза, чтобы посмотреть формулу, написалось #ЗНАЧ Чего я не учёл и как можно вашу формулу внедрить в другой документ. Это макрос или что?
Это формула массива. Копируете в одну ячейку. Вводите сочетанием клавиш Ctrl+Shift+Enter. Формула обернется фигурными скобками {...}. Далее протягиваете на нужный диапазон.
Function Udalenie(sA As String, sb As String) As String
Dim i As Long, k As Long
Dim a() As String, b() As String
Dim sTxt As String, d As Boolean
a = Split(sA, " ")
b = Split(sb, " ")
For i = 0 To UBound(a)
For k = 0 To UBound(b)
If a(i) = b(k) Then
d = True
Exit For
Else
d = False
End If
Next k
If d = False Then
sTxt = sTxt & " " & a(i)
End If
Next i
Udalenie = Trim(sTxt)
End Function