Function óñëîâèå28á(Diapozon As Range) As Long
'äëÿ ñèòóàöèè
Application.Volatile
Dim k As Long, n As Long, i As Long, m As Long, p As Long
Dim C As Range

k = -2
n = 0
m = 0
p = 0
For i = Diapozon.Rows.Count To 1 Step -1
Set C = Diapozon.Rows(i)

' Èãðàåì äîìà ñ ôàâîðèòîì , íå ïîáåæäàâøèì â 2 ìàò÷àõ ïîäðÿä
' &#212;&#224;&#226;&#238;&#240;&#232;&#242; &#232;&#227;&#240;&#224;&#229;&#242;  2 &#239;&#238;&#241;&#235;-&#232;&#245; &#236;&#224;&#242;&#247;&#224; &#239;&#238;&#228;&#240;&#255;&#228; &#241; &#239;&#235;&#238;&#245;&#238;&#233; &#244;&#238;&#240;&#238;&#233; (<1,5)

     If C.Offset(0, 5).Value > 3 And k = -2 Then
         GoTo Label1
     End If
     
     If C.Offset(0, 5).Value = 3 And k = -2 Then
         k = 0
     End If
     
     
     If C.Offset(0, -6).Value <> &#203;&#206;&#198;&#220; And k = 0 Then
        GoTo Label1
     End If
     
      If C.Offset(0, -7).Value <> &#203;&#206;&#198;&#220; And k = 0 Then
        GoTo Label1
     End If
     
      If C.Offset(0, -8).Value <> &#203;&#206;&#198;&#220; And k = 0 Then
        GoTo Label1
     End If
     
     
     If C.Offset(0, 1).Value = 1 And k = 0 Then
       n = n + 1
     End If
    p = p + 1
    
Label1:
     
 Next i
  
 
&#243;&#241;&#235;&#238;&#226;&#232;&#229;28&#225; = n / p
End Function