Function PS_3_СВОД(iRng As Range, condRng As Range)
Dim arr(), iTmp, tmpStr$
Dim I&, N&
Dim tmpSum%
arr = iRng.Value
ReDim iTmp(1 To UBound(arr, 1)) ', 1 To 1)
For I = LBound(arr, 1) To UBound(arr, 1)
  Select Case I
    Case Is = 1
      For N = 2 To 5: tmpSum = tmpSum + arr(N, 1): Next
      iTmp(I) = IIf(arr(I, 1) = tmpSum, "", I)
      tmpSum = 0
    Case Is = 6
      iTmp(I) = IIf(arr(I, 1) = 0, "", I)
    Case Is = 7
      For N = 8 To 24 Step 2: tmpSum = tmpSum + arr(N, 1): Next
      tmpSum = tmpSum + arr(25, 1) + arr(27, 1)
      iTmp(I) = IIf(arr(I, 1) <= tmpSum, "", I)
      tmpSum = 0
    Case Is = 9, 11, 13, 15, 17, 19, 21, 23, 26, 59, 62
      iTmp(I) = IIf(arr(I, 1) <= arr(I + 1, 1), "", I)
    Case Is = 28, 31
      iTmp(I) = IIf(arr(I, 1) > arr(I + 1, 1), "", I)
    Case Is = 29, 32, 47
      iTmp(I) = IIf(arr(I, 1) > arr(I + 1, 1), "", I)
    Case Is = 34, 37
      iTmp(I) = IIf(arr(I, 1) >= arr(I + 1, 1) Or arr(I, 1) >= arr(I + 2, 1), "", I)
    Case Is = 42, 49, 56
      iTmp(I) = IIf(arr(I, 1) >= arr(I + 1, 1) + arr(I + 2, 1), "", I)
    Case Is = 52, 60
      iTmp(I) = IIf(arr(I, 1) >= arr(I + 1, 1) + arr(I + 2, 1) + arr(I + 3, 1), "", I)
    Case Is = 64
      iTmp(I) = IIf(arr(I, 1) >= arr(I + 1, 1) Or arr(I, 1) >= arr(I + 2, 1) Or arr(I, 1) >= arr(I + 3, 1), "", I)
    Case Else
      iTmp(I) = ""
  End Select
Next
For I = 1 To UBound(iTmp)
  If iTmp(I) <> "" Then
    tmpStr = IIf(tmpStr = "", iTmp(I) & " - '" & Application.WorksheetFunction.VLookup(iTmp(I), condRng, 2, 0) & "'", _
                  tmpStr & vbCrLf & iTmp(I) & " - '" & Application.WorksheetFunction.VLookup(iTmp(I), condRng, 2, 0) & "'")
  End If
Next
PS_3_СВОД = IIf(tmpStr = "", "Все логические условия выполнены", "Не выполнены логические условия в строка:" & vbCrLf & tmpStr)
End Function