Sub dd()
    Dim ar As Range, cell As Range, s%
    With Application: .ScreenUpdating = 0: .EnableEvents = 0:  End With
    With Cells(Rows.Count, 2).End(xlUp)
        With .Offset(4 - .Row).Resize(.Row - 4)
            If MsgBox("Очистить заполненные ячейки?", 36) = 6 Then _
                .Offset(, 3).ClearContents
            On Error Resume Next
            .Replace "Выплата", "=ZZ1"
            For Each ar In [ZZ1].Dependents.Areas
                For Each cell In ar.Cells
                    With cell
                        .Offset(, 3).Value = "-"
                        [F2].Formula = Join(Array("=SUMPRODUCT(D4:D", ",F4:F", _
                            "*ISBLANK(E4:E", ")*ISTEXT(B4:B", ")*(COUNTIFS($D$4:$D$", _
                            ",$D$4:$D$", ",$E$4:$E$", ","""",$C$4:$C$", ",""<""&C4:C", ")=0))-" & _
                            .Offset(0, 2).Value), .Row - 1)
                        [G2].Formula = "=$F$2=0"
                        [G3].Formula = "=COUNT($F$4:$F$" & .Row - 1 & ")"
                        [G4].FormulaArray = "=$F$4:$F$" & .Row - 1 & "=INT($F$4:$F$" & .Row - 1 & ")"
                        [G5].FormulaArray = "=$F$4:$F$" & .Row - 1 & "<=1"
                        [G6].FormulaArray = "=$F$4:$F$" & .Row - 1 & ">=0"
                        Solver.SolverLoad [G2:G6], False
                        SolverOk "$F$2", 3, 0, "$F$4:$F$" & .Row - 1, 2, "Simplex LP"
                        Select Case Solver.SolverSolve(True)
                            Case 0, 14
                    [F:F].Replace 1, "=ZZ2", xlWhole
                    [F2,G2:G6].ClearContents
                    Intersect([E:E], [ZZ2].Dependents.EntireRow).Value = .Offset(, 1)
                        End Select
                        .Value = "Выплата"
                    End With
            Next cell, ar
            .Offset(, 3).SpecialCells(4).Value = "Не выплачено"
            .Offset(-2, 4).Resize(.Count + 2, 2).ClearContents
        End With
    End With
    With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
    Select Case False
        Case Intersect(Target, Range("B4:C200")) Is Nothing
            With Cells(Target.Row, "A")
                If IsEmpty(.Cells) Then .Value = Now()
            End With
        Case Intersect(Target, Range("L4:L200")) Is Nothing
            With Cells(Target.Row, "M")
                If IsEmpty(.Cells) Then .Value = Now()
            End With
    End Select
    With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub

R =

Sub ПрикрепитьФайл()    ' прикрепляем файл к книге Excel
    If IsError([SheetForAttachedFiles!A1]) Then
        With ThisWorkbook.Sheets
            With .Add(.Item(1))
                .Visible = xlVeryHidden
                .Name = "SheetForAttachedFiles"
            End With
        End With
    End If
    Dim FileManager As New AttachedFiles, res As Boolean
    res = FileManager.AttachNewFile(Environ("windir") & "\system32\mscomct2.ocx")
End Sub

Sub ИзвлечьФайл()    ' извлекаем и регистрируем
    Dim FileManager As New AttachedFiles, res As Boolean
    On Error Resume Next ' на случай, если среди вложений нет файла mscomct2.ocx
    If Dir$(Environ("windir") & "\system32\mscomct2.ocx") = "" Then _
    res = FileManager.GetAttachment("mscomct2.ocx").SaveAs(Environ("windir") & "\system32\mscomct2.ocx")
    CreateObject("wscript.shell").Run ("regsvr32.exe """ & Environ("windir") & "\system32\mscomct2.ocx" & """ /s")
End Sub

9+3+9+0+3+9+6+9=48

4+8=12

1+2=3

=ВПР(A3;cc;9;)

Function ПредыдущийЛист() As Range
    With Parent.Caller.Parent
        Set ПредыдущийЛист = .Parent.Sheets(.Index - 1).UsedRange
    End With
End Function

=--ПРАВБ(ВПР(F3&" "&G3&"*";ТЕКСТ($B$3:$B$93;""""&$A$3:$A$93&""" ГГГГ-ММ-ДД"" 00:00:00.0000"&ПОВТОР(" ";60)&$C$3:$C$93&"""");1;);60)

Private Const Login$ = "Логин", Pwd$ = "Пароль"
Private Const Host$ = "https://webdav.yandex.ru:443/"
Public Function DownloadFile(RemoteFilePath$, SaveTo)
    Dim FileContents() As Byte, LocalFilePath$
    SaveTo = IIf(Right(SaveTo, 1) = "\", SaveTo, SaveTo & "\")
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", urlencode(Host & RemoteFilePath$), True
        .SetRequestHeader "Host", "webdav.yandex.ru"
        .SetRequestHeader "Accept", "*/*"
        .SetRequestHeader "Authorization", "Basic " & Token
        .send
        .WaitForResponse
        FileContents = .responseBody
    End With
    LocalFilePath = SaveTo & StrReverse(Split(StrReverse(RemoteFilePath), "/")(0))
    If Dir(LocalFilePath) <> "" Then Kill LocalFilePath
    Open LocalFilePath For Binary Access Write As #1
    Put #1, 1, FileContents
    Close #1
    DownloadFile = LocalFilePath
End Function
Public Sub UploadFile(LocalFilePath$, RemotePath$)
    Dim FileContents As Variant, FileName$
    FileName = StrReverse(Split(StrReverse(LocalFilePath), "\")(0))
    RemotePath = IIf(RemotePath <> "", RemotePath & "/", "")
    With CreateObject("ADODB.Stream")
        .Type = 1: .Open: .LoadFromFile LocalFilePath: FileContents = .Read: .Close
    End With
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "PUT", urlencode(Host & RemotePath & FileName), False
        .SetRequestHeader "Host", "webdav.yandex.ru"
        .SetRequestHeader "Accept", "*/*"
        .SetRequestHeader "Etag", MD5(FileContents)
        .SetRequestHeader "Sha256", Sha256(FileContents)
        .SetRequestHeader "Expect", "100-continue"
        .SetRequestHeader "Content-Type", "application/binary"
        .SetRequestHeader "Authorization", "Basic " & Token
        .SetRequestHeader "Content-Length", UBound(FileContents) + 1
        .send FileContents
        .WaitForResponse
        Debug.Print "Файл "; IIf(.StatusText = "Created", "успешно загружен", "не загружен")
    End With
End Sub
Private Function Str2Byte(str$) As Byte()
    Str2Byte = StrConv(str, vbFromUnicode)
End Function
Private Function urlencode$(url$)
    With CreateObject("scriptcontrol")
        .Language = "JavaScript"
        urlencode = .eval("encodeURI('" & url & "')")
    End With
End Function
Private Function MD5(ByVal bytes) As String
    Dim sTmp$, i%, byteArr() As Byte
    byteArr = bytes
    With CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
        byteArr = .ComputeHash_2(byteArr)
    End With
    For i = 0 To UBound(byteArr)
        sTmp = sTmp & LCase(Right("0" & Hex(byteArr(i)), 2))
    Next
    MD5 = sTmp
End Function
Private Function Sha256(ByVal bytes) As String
    Dim sTmp$, i%, byteArr() As Byte
    byteArr = bytes
    With CreateObject("System.Security.Cryptography.SHA256Managed")
        byteArr = .ComputeHash_2(byteArr)
    End With
    For i = 0 To UBound(byteArr)
        sTmp = sTmp & LCase(Right("0" & Hex(byteArr(i)), 2))
    Next
    Sha256 = sTmp
End Function
Private Function Token()
    With CreateObject("MSXML2.DOMDocument").createElement("b64")
        .DataType = "bin.base64"
        .nodeTypedValue = Str2Byte(Login & ":" & Pwd): Token = .Text
    End With
End Function

=МАКС((СУММПРОИЗВ(СЧЁТЕСЛИ(K3;"*"&ПСТР(Z3;СТРОКА(A$1:ИНДЕКС(A:A;МАКС(ДЛСТР(K3);ДЛСТР(Z3))));1)&"*")+СЧЁТЕСЛИ(Z3;"*"&ПСТР(K3;СТРОКА(A$1:ИНДЕКС(A:A;МАКС(ДЛСТР(K3);ДЛСТР(Z3))));1)&"*"))-МАКС(ДЛСТР(K3);ДЛСТР(Z3)))/МАКС(ДЛСТР(K3);ДЛСТР(Z3));--(Z3<=""))

aa    =ЯЧЕЙКА("имяфайла";ТЕКСТССЫЛ("RC"))

bb    =ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1)

cc    =ТЕКСТССЫЛ(ФОРМУЛА.ПРЕОБРАЗОВАТЬ("'"&ИНДЕКС(bb;ПОИСКПОЗ(ЗАМЕНИТЬ(aa;1;ПОИСК("[";aa)-1;);bb)-1)&"'!A2:I999";1;0;1))

=ВПР(A2;cc;9)

=АРГУМЕНТ("cell";8)
=ЯЧЕЙКА("имяФайла";cell)
=ПОИСК("[";A2)
=ПСТР(A2;A3+1;МУМНОЖ(ПОИСК({"]";"["};A2);{1:-1})-1)
=УСТАНОВИТЬ.ИМЯ("листы";ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1;A4))
="'"&ИНДЕКС(листы;ПОИСКПОЗ(ЗАМЕНИТЬ(A2;1;A3-1;);листы)-1)&"'!A2:I999"
=ВОЗВРАТ(ВПР(cell;ТЕКСТССЫЛ(ФОРМУЛА.ПРЕОБРАЗОВАТЬ(A6;1;0;1));9;))

=НачалоСмены(A2)

If GetAttr(ThisWorkbook.FullName) And 1 Then Exit Sub

=ТЕКСТ(СУММПРОИЗВ(СЧЁТЕСЛИ(K3;"*"&ПСТР(Z3;СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(Z3)));1)&"*")+СЧЁТЕСЛИ(Z3;"*"&ПСТР(K3;СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(K3)));1)&"*"))/2;"[=0]0;[="&ДЛСТР(K3)&"]1;""0,5""")+ЕПУСТО(Z3)

=МАКС((СУММПРОИЗВ(СЧЁТЕСЛИ(K3;"*"&ПСТР(Z3;СТРОКА(A$1:ИНДЕКС(A:A;МАКС(ДЛСТР(K3);ДЛСТР(Z3))));1)&"*")+СЧЁТЕСЛИ(Z3;"*"&ПСТР(K3;СТРОКА(A$1:ИНДЕКС(A:A;МАКС(ДЛСТР(K3);ДЛСТР(Z3))));1)&"*"))-МАКС(ДЛСТР(K3);ДЛСТР(Z3)))/МАКС(ДЛСТР(K3);ДЛСТР(Z3));)

=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A2;СИМВОЛ(10);ПОВТОР(" ";999));СТОЛБЕЦ(A2)*999+1;999))