Столбец А - исходные данные, строка 2 - "шапка таблицы"
=ЛЕВБ(ПСТР($A3&";";ПОИСК(B$2;$A3)+ДЛСТР(B$2)+1;20);ПОИСК(";";ПСТР($A3&";";ПОИСК(B$2;$A3)+ДЛСТР(B$2)+1;20))-1)
В формуле A3&";" - дополнение строки можно убрать, если последний символ в исходных данных всегда точка с запятой.
Вторая формула и без сцепки нечувствительна к отсутствию последнего символа.
=СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР($A3;ПОИСК(B$2;$A3)+ДЛСТР(B$2)+1;20);";";ПОВТОР(" ";50));50))
Решение с помощью функции пользователя (UDF) с использованием функции ПОИСК
Function FindName(r1 As Range, r2 As Range) As String
Dim j As Long
j = Application.WorksheetFunction.Find(r2.Value, r1.Value)
FindName = Split(Mid$(r1.Value, j + Len(r2.Value) + 1), ";")(0)
End Function
Вариант без использования функций листа:
Function FindName(r1 As Range, r2 As Range) As String
FindName = Split(Split(r1.Value, r2.Value & ":")(1), ";")(0)
End Function
Функцию разместить в общем модуле.
В ячейку В3 вписать формулу:
=FindName($A3;B$2)
Размножить на нужный диапазон
Недостаток UDF - волатитьность (пересчитываются при любых изменениях на листе)