=ЕСЛИ(ПОИСК("Результат";[@Tags]);1;ЕСЛИ(ПОИСК("Доработка";[@Tags]);2;0))

= SWITCH(<что сравниваем>,
  <значение1>, , <возвращаемое значение1>,
  <значение2>, , <возвращаемое значение2>,
  ..........
  <значениеN>, , <возвращаемое значениеN>,
  <значение по умолчанию>
)

= IF (<условие1>, <значение 1>,
    IF (<условие2>, <значение 2>,
       ..................
      IF (<условиеN>, <значение N>, <значение по умолчанию>
  )....))

=МИН(ЕСЛИ(ПСТР(A2;8;3)={"Рез";"Дор";"Под";"На ";"Изм"};{1;2;3;4;5}))

=МИН(ЕСЛИ(ПСТР(A2;ПОИСК(",";A2)+2;3)={"Рез";"Дор";"Под";"На ";"Изм"};{1;2;3;4;5}))

=МИН(ЕСЛИ(ПРАВБ(A2;3)={"тат";"тка";"лен";"тке";"ние"};{1;2;3;4;5}))

-------------------------------------------

Function fStatus(r1 As Range) As Long
Dim ArrWord()
Dim s, j As Long
    ' готовим упорядоченный список слов
    ArrWord = Array("Результат", "Доработка", "Подготовлен", "На разработке", "Изменение")

    For Each s In ArrWord
        j = j + 1 ' счетчик значений
        If r1.Value Like "*" & s & "*" Then _
                fStatus = j: Exit Function ' если слово в тексте найдено, выходим
    Next s
End Function