=ЕСЛИ(ИЛИ(E5>=ЕСЛИОШИБКА(ИНДЕКС(E:E;АГРЕГАТ(14;6;СТРОКА(E$1:ИНДЕКС(E:E;СТРОКА()-1))/(E$1:ИНДЕКС(E:E;СТРОКА()-1)="");1)+1); "")*ПРОСМОТР(2; 1/(B$1:B6<>""); B$1:B6);F5>=ЕСЛИОШИБКА(ИНДЕКС(F:F;АГРЕГАТ(14;6;СТРОКА(F$1:ИНДЕКС(F:F;СТРОКА()-1))/(F$1:ИНДЕКС(F:F;СТРОКА()-1)="");1)+1); "")*ПРОСМОТР(2; 1/(B$1:B6<>""); B$1:B6));1;0)

Sub CopyFormulaShiftAbsolute()
    Dim src As Range, dst As Range
    Dim f As String
    Dim rOff As Long, cOff As Long

    AppActivate Application.Caption
    DoEvents

    On Error Resume Next
    Set src = Application.InputBox("Выберите ячейку с формулой", Type:=8)
    If src Is Nothing Then Exit Sub
    Set dst = Application.InputBox("Выберите ячейку для вставки", Type:=8)
    If dst Is Nothing Then Exit Sub
    On Error GoTo 0

    rOff = dst.row - src.row
    cOff = dst.Column - src.Column
    f = src.Formula

    Dim RE As Object, matches As Object, m As Object
    Set RE = CreateObject("VBScript.RegExp")
    RE.Pattern = "(\$?[A-Z]{1,3}\$?[0-9]{1,7})"
    RE.Global = True
    Set matches = RE.Execute(f)

    Dim newFormula As String
    Dim pos As Long
    pos = 1
    newFormula = ""

    For Each m In matches
        newFormula = newFormula & Mid(f, pos, m.FirstIndex - pos + 1)
        newFormula = newFormula & ShiftRef(m.Value, rOff, cOff)
        pos = m.FirstIndex + m.Length + 1
    Next
    newFormula = newFormula & Mid(f, pos)
    dst.Formula = newFormula

    AppActivate Application.Caption
    DoEvents
End Sub

Private Function ShiftRef(ref As String, rOff As Long, cOff As Long) As String
    Dim col As String, row As String
    Dim hasColAbs As Boolean, hasRowAbs As Boolean
    hasColAbs = Left(ref, 1) = "$"
    hasRowAbs = InStr(ref, "$") > 1
    ref = Replace(ref, "$", "")
    Dim i As Long
    For i = 1 To Len(ref)
        If Mid(ref, i, 1) Like "[0-9]" Then
            col = Left(ref, i - 1)
            row = Mid(ref, i)
            Exit For
        End If
    Next
    Dim cNum As Long
    cNum = ColLetterToNum(col)
    cNum = cNum + cOff
    row = CStr(CLng(row) + rOff)
    ShiftRef = IIf(hasColAbs, "$", "") & ColNumToLetter(cNum) & IIf(hasRowAbs, "$", "") & row
End Function

Private Function ColLetterToNum(col As String) As Long
    Dim i As Long, result As Long
    result = 0
    For i = 1 To Len(col)
        result = result * 26 + (Asc(UCase(Mid(col, i, 1))) - Asc("A") + 1)
    Next
    ColLetterToNum = result
End Function

Private Function ColNumToLetter(num As Long) As String
    Dim col As String
    Do While num > 0
        num = num - 1
        col = Chr(65 + (num Mod 26)) & col
        num = num \ 26
    Loop
    ColNumToLetter = col
End Function

=И($A1<>"";СЧЁТЕСЛИМН(ЗАЯВКИ!$A:$A;"*"&A1&"*";ЗАЯВКИ!$B:$B;"*ОТ*";ЗАЯВКИ!$C:$C;"ЗАКАЗАНО"))

=ДЕНЬНЕД(ДАТАЗНАЧ(ПСТР(A4;35;11)))

=ТЕКСТ(ДЕНЬНЕД(ДЕНЬНЕД(ДАТАЗНАЧ(ПСТР(A4;35;11))));"ДДДД")

=ЕСЛИ(И($A2=МИН(ЕСЛИ(($B$2:$B$1000=$B2)*($D$2:$D$1000=$D2);$A$2:$A$1000));СЧЁТЕСЛИМН($A$2:$A2;$A2;$B$2:$B2;$B2;$D$2:$D2;$D2)=1);$A2;"")

=ЕСЛИ(E2="";"";МИН(ЕСЛИ(($B$2:$B2=B2)*($D$2:$D2=D2); $A$2:$A2)))