Sub OpenWord()
    Dim objWrdApp As Object, objWrdDoc As Object
  
    Sret objWdApp = CreateObject("Word.Application")
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("\\sten.local\central\UserData\Морозов\Мои документы\ммм1.docx")
    With objWrdDoc.Range
        .Copy
        .Collapse wdCollapseEnd
        .Paste
    End With
    GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}").Clear
End Sub

Sub OpenWord()
    Dim objWrdApp As Object, objWrdDoc As Object, R As Object
  
    Sret objWdApp = CreateObject("Word.Application")
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("\\sten.local\central\UserData\Морозов\Мои документы\ммм1.docx")
    With objWrdDoc.Range
        Set R = objWrdDoc.Range(.Start, .End - 1)
        .InsertParagraphAfter
        .InsertAfter R
    End With
End Sub

=ЕСЛИОШИБКА(ИНДЕКС(Лист1!$C:$D;ПОИСКПОЗ(1;ПОИСК(Лист1!$A$1:$A$6&Лист1!$B$1:$B$6;$A2&B$1&$A2)^0;);НОД(ПРОСМОТР(2;ПОИСК(Лист1!$A$1:$A$6&Лист1!$B$1:$B$6;$A2&B$1&$A2))+ЕНЕЧЁТ(СТОЛБЕЦ());2));"###")

Sub gg()
    Dim cell As Range
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        With CreateObject("scriptcontrol")
            .Language = "JScript"
            Do While Not cell Is Nothing
                cell.Value = .Eval("unescape(""" & cell & """)")
                Set cell = Columns(10).FindNext(cell)
            Loop
        End With
    End If
End Sub
Sub ggg()
    Dim cell As Range, rng As Range, addr$
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        addr = cell.Address
        Do
            If rng Is Nothing Then Set rng = cell _
                Else Set rng = Union(rng, cell)
            Set cell = Columns(10).FindNext(cell)
        Loop While cell.Address <> addr
        If Not rng Is Nothing Then rng.EntireRow.Delete
    End If
End Sub

Sub gg()
    Dim cell As Range
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        With CreateObject("scriptcontrol")
            .Language = "JScript"
            Do While Not cell Is Nothing
                cell.Value = .Eval("unescape(""" & cell & """)")
                Set cell = Columns(10).FindNext(cell)
            Loop
        End With
    End If
End Sub

=ИНДЕКС({100;200;300;300:150;250;350;350:250;250;300;300:300;300;400;400:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))

=ИНДЕКС(K2:N6;ПОИСКПОЗ(A7;J2:J6);ПОИСКПОЗ(C7;K1:N1))

=ИНДЕКС({100;200;300;0:150;250;350;0:0;250;300;0:0;300;400;0:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))

ActiveSheet.ListObjects(1).DataBodyRange.Clear

Sub Макрос1()
    Application.ScreenUpdating = 0
        With ActiveSheet.ListObjects(1)
            If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
            [1!O1:O33].AdvancedFilter xlFilterCopy, , [1!M1], True
            [1!M:M].SpecialCells(2, 23).Copy
            .HeaderRowRange(1, 1).PasteSpecial xlPasteValues
            [1!M:M].Clear
        End With
    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

Sub dd()
    With [A1].CurrentRegion
        .Value = Application.IfError(Evaluate(Join(Array("mmult(MID(", _
            ",SEARCH({"":"","".""},", ")+2,2)/24/60^{0,1},{1;1})"), .Address(, , _
            Application.ReferenceStyle))), .Value)
        .NumberFormat = "[hh]:mm"
    End With
End Sub

=ЕСЛИОШИБКА(ПРОСМОТР(9^9;--ПСТР(A2;МИН(ЕСЛИОШИБКА(ПОИСК(СТРОКА($1:$10)-1;A2);""));СТРОКА($1:$99)));A2)

=ВПР("Итого:";ЕСЛИ(СТРОКА(G$12:G$26)>=ПОИСКПОЗ(B3;E:E;);$G$12:$L$26);6;)

=ИНДЕКС(L:L;ЕСЛИОШИБКА(ПОИСКПОЗ(B4;E:E;)-1;ПРОСМОТР("яяя";G:G;СТРОКА(G:G))))

    имя_ = Range("B2")
    With Sheets.Add
        Sheets("ПФ").Cells.Copy .Cells
        .Name = [страницы_].Cells(Application.Match(имя_, [клиент_], 0), 1)
    End With

Shell Environ("windir") & "\system32\rundll32.exe user32.dll,LockWorkStation"

=ИНДЕКС(Данные!D2:AI6;ПОИСКПОЗ(F3;Данные!D2:D6;0);ПОИСКПОЗ(C3;Данные!D2:AI2;0))