Sub Узлы_трубопроводов_4()
Application.ScreenUpdating = False

Dim iLastRow As Long, arr(), a(), c(), i&, j&, bl As Boolean
Dim s$, k&
Dim a_minus()

a = Array( _
"Узлы", _
"трубопроводов", _
"32 мм")

iLastRow = Cells(Rows.Count,  2 ).End(xlUp).Row
arr = Range("a1:d" & iLastRow).Value
c = Range("g1:h" & iLastRow).Value

   For i =  1  To UBound(arr)
    s = arr(i,  3 )
    If s = "т" Then
        k =  1 
    ElseIf s = "м" Then
        k =  2 
    Else
        k =  0 
    End If
    
a_minus = Array( _
"4 мм", _
"5 мм")

' {skipped}
    If k >  0  Then
' NB! проверки на не_вхождение/вхождение можно местами менять
      bl = False
          For j =  0  To UBound(a_minus)
              If InStr( 1 , arr(i,  2 ), a_minus(j)) =  0  Then bl = True Else bl = False: Exit For
      Next j
If bl Then
bl = False
          For j =  0  To UBound(a)
              If InStr( 1 , arr(i,  2 ), a(j)) >  0  Then bl = True Else bl = False: Exit For
      Next j
          If bl Then c(i, k) = arr(i,  4 )
End If
    End If
    Next

' {skipped}


Range("g1:h" & iLastRow).Value = c

Application.ScreenUpdating = True
End Sub