=ЕСЛИ(ПОИСК("Результат";[@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

' присвоение номера второму слову текста
Function fStatus(r1 As Range) As Long
    Select Case Split(r1.Value, " ")(1)
    Case "Результат": fStatus = 1
    Case "Доработка": fStatus = 2
    Case "Подготовлен": fStatus = 3
    Case "На разработке": fStatus = 4
    Case "Изменение": fStatus = 5
    End Select
End Function