=СЧЁТ(1/(МУМНОЖ(ИНДЕКС(МУМНОЖ(ЕСЛИОШИБКА(ПОИСК(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(G4;"+";ПОВТОР(" ";99));СТОЛБЕЦ(A1:ИНДЕКС(1:1;1+ДЛСТР(G4)-ДЛСТР(ПОДСТАВИТЬ(G4;"+";))))*99-98;99));D7:D33)^0;);ТРАНСП(СТОЛБЕЦ(A1:ИНДЕКС(1:1;1+ДЛСТР(G4)-ДЛСТР(ПОДСТАВИТЬ(G4;"+";)))))^0);Ч(ИНДЕКС(СТРОКА(A1:ИНДЕКС(A:A;ЧСТРОК(D7:D33)/3))*3-3+{1;2;3};;)));{1:1:1})>ДЛСТР(G4)-ДЛСТР(ПОДСТАВИТЬ(G4;"+";))))

=Ч(СЧЁТ(ПОИСК(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(G$4;"+";ПОВТОР(" ";99));СТОЛБЕЦ($A7:ИНДЕКС(7:7;1+ДЛСТР(G$4)-ДЛСТР(ПОДСТАВИТЬ(G$4;"+";))))*99-98;99));C7:C9&D7:D9))>ДЛСТР(G$4)-ДЛСТР(ПОДСТАВИТЬ(G$4;"+";)))

=Ч(СЧЁТ(ПОИСК(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(G$4;"+";ПОВТОР(" ";99));СТОЛБЕЦ($A7:ИНДЕКС(7:7;1+ДЛСТР(G$4)-ДЛСТР(ПОДСТАВИТЬ(G$4;"+";))))*99-98;99));ИНДЕКС(C7:D9;Ч(ИНДЕКС(ОКРВВЕРХ(СТРОКА(A$1:ИНДЕКС(A:A;ЧСТРОК(C7:D9)*ЧИСЛСТОЛБ(C7:D9)))/ЧИСЛСТОЛБ(C7:D9);1);0));Ч(ИНДЕКС(ОСТАТ(СТРОКА(A$1:ИНДЕКС(A:A;ЧСТРОК(C7:D9)*ЧИСЛСТОЛБ(C7:D9)))-1;ЧИСЛСТОЛБ(C7:D9))+1;0)))))>ДЛСТР(G$4)-ДЛСТР(ПОДСТАВИТЬ(G$4;"+";)))

On Error Resume Next
Set excelapp = GetObject(, "excel.application")
If excelapp Is Nothing Then
    Err.Clear
    Set excelapp = CreateObject("excel.application")
    excelapp.Workbooks.Add
End If
With excelapp
    with .AddIns
        .Add "\\Server\общая\Program Files\Microsoft Office\ADDINS\md5.xlam", False
        .Item("md5").Installed = true
    End With
    If Err = 0 Then MsgBox "надстройка md5 установлена успешно"
    if not excelapp.visible then excelapp.quit
end with

=СЧЁТЕСЛИМН(Таблица6[[#Заголовки];[3]]:[@3];[@3];Таблица6[[#Заголовки];[4]]:[@4];[@4];Таблица6[[#Заголовки];[5]]:[@5];[@5];Таблица6[[#Заголовки];[6]]:[@6];[@6])

=[@7]

o=1
For Each p In Array(r, w, e, x, t, y, u, i)
    arr(q, o) = p
    o = o + 1
Next

Private Sub CommandButton1_Click()
    Dim var As Variant, sel As Range, s%
    Set sel = Selection.Range
    Application.ScreenUpdating = False
    s = ActiveDocument.Windows(1).VerticalPercentScrolled
    For Each var In Array("Текст1", "ТекстМ2", "Текст3К")
        With Selection.Find
            .ClearFormatting
            .Wrap = wdFindContinue
            .Text = var
            .Execute
            Do
                Selection.Collapse wdCollapseEnd
                Selection.Range.Paragraphs(1).Style = ActiveDocument.Styles(-2)
                .Execute
            Loop Until Not .Found
        End With
    Next
    sel.Select
    ActiveDocument.Windows(1).VerticalPercentScrolled = s
    Application.ScreenUpdating = True
End Sub

ActiveDocument.Styles(-2)

=МИН(СУММ(B3:E3);100)

=СУММ(B3:E3)-F3

Sub xx()
    With Application
        .ScreenUpdating = 0: .EnableEvents = 0: .DisplayAlerts = False
        Open ActiveWorkbook.Path & "\8037208.txt" For Input As #1
        With GetObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
            .SetText Input$(LOF(1), 1)
            .PutInClipboard
        End With
        Close #1
        With [C5:F5]
            Range(.Cells, .End(xlDown)).ClearContents
            .Cells(1).PasteSpecial xlPasteAll
            .Copy
        End With
        .CutCopyMode = 0
        .ScreenUpdating = 1: .EnableEvents = 1: .DisplayAlerts = 1
    End With
End Sub

=ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ("?*";$B3:ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-3;4));0)<ПОИСКПОЗ("?*";$B4:ДВССЫЛ(АДРЕС(СТРОКА()+1;СТОЛБЕЦ()-3;4));0);СУММ(ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1;4)):ИНДЕКС(СМЕЩ(H:H;0;-1);ЕСЛИОШИБКА(СТРОКА()+ПОИСКПОЗ("?*";ИНДЕКС($B4:ДВССЫЛ(АДРЕС(500;СТОЛБЕЦ()-2;4));;ПОИСКПОЗ("?*";$B3:ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-2;4));));)-1;1+СЧЁТЗ(Id))));"")*ЕСЛИ($B3="";1;1,1*1,2);"")

=ЕСЛИОШИБКА(ЕСЛИ(СУММ((ДЛСТР(B2:E3)>0)*СТОЛБЕЦ(B2:E3)*{-1:1})>0;СУММ(G3:ИНДЕКС(G:G;СТРОКА()+МИН(ЕСЛИОШИБКА(ПОИСКПОЗ(ВЫБОР({1;2};ПСТР(A2;1;ПОИСК(СТРОКА();A2)-1)&"*";"яяя");A3:ИНДЕКС(A:A;ПОИСКПОЗ("яяя";A:A));{0;1})-{1;0};""))));"")*ЕСЛИ($B2="";1;1,1*1,2);"")

=СУММ(СЧЁТЕСЛИ(D3:AH3;"*"&AJ$3:AJ$15&"*")*AK$3:AK$15)

=СУММ(СЧЁТЕСЛИ(D3:AH3;"*"&ПОВТОР(AJ$3:AJ$15&"*";СТОЛБЕЦ(A:T)))*AK$3:AK$15)

=ЕСЛИОШИБКА(ЕСЛИ(И(ИНДЕКС(1:3;Ч(ИНДЕКС({1:3};));ПОИСКПОЗ("?*";B2:E2;)+1)="");СУММ(G3:ИНДЕКС(G:G;СТРОКА()+ЕСЛИОШИБКА(ПОИСКПОЗ(ПСТР(A2;1;ПОИСК(СТРОКА();A2)-1)&"*";A3:ИНДЕКС(A:A;ПОИСКПОЗ("яяя";A:A));0)-1;СЧЁТЗ(A:A))));"")*ЕСЛИ($B2="";1;1,1*1,2);"")

Sub Макрос1()
    Dim o1 As Shape, o2 As Shape
    Dim x1!, y1!, r1!, x2!, y2!, r2!, xa!, ya!, xb!, yb!
    Dim col As Range
    For Each col In [A3:E6].Columns
        On Error Resume Next
        Set o1 = ActiveSheet.Shapes(col.Cells(1))
        Set o2 = ActiveSheet.Shapes(col.Cells(4))
        If Not (o1 Is Nothing Or o2 Is Nothing) Then
            GetParam o1, x1, y1, r1
            GetParam o2, x2, y2, r2
            Dim i&, j&, p#, l!, lmin!
            Dim x1t!, y1t!, x2t!, y2t!, bc&, ec&
            p = Atn(1)
            lmin = [a65536].Top - [a1].Top
            For i = 0 To 7
                x1t = x1 + Cos(p * i) * r1
                y1t = y1 - Sin(p * i) * r1
                For j = 0 To 7
                    x2t = x2 + Cos(p * j) * r2
                    y2t = y2 - Sin(p * j) * r2
                    l = Sqr((x1t - x2t) ^ 2 + (y1t - y2t) ^ 2)
                    If l < lmin Then
                        lmin = l
                        xa = x1t
                        ya = y1t
                        xb = x2t
                        yb = y2t
                        bc = i
                        ec = j
                    End If
                Next
            Next
            With ActiveSheet.Shapes.AddConnector(msoConnectorStraight, xa, ya, xb, yb)
                .ConnectorFormat.BeginConnect o1, (bc + 6) Mod 8 + 1
                .ConnectorFormat.EndConnect o2, (ec + 6) Mod 8 + 1
                .Name = col.Cells(1) & "|" & col.Cells(4)
            End With
        End If
    Next
End Sub

=ЛЕВБ(A3;ПРОСМОТР(A$2+1;ЕСЛИ(МУМНОЖ(--СОВПАД(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(" "&A3;" ";ПОВТОР(" ";999));999*СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))));999));ТРАНСП(СТРОЧН(Предлоги!A$1:A$372)));СТРОКА(Предлоги!A$1:A$372)^0);НД();МУМНОЖ((СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))))>=ТРАНСП(СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))))))*ТРАНСП(ДЛСТР(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(" "&A3;" ";ПОВТОР(" ";999));999*СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))));999)))+1);СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))))^0)))-1)