=ТЕКСТ(46013+СТОЛБЕЦ(A1)*7;"ДД.ММ")&"-"&ТЕКСТ(46013+СТОЛБЕЦ(A1)*7+6;"ДД.ММ")

=ТЕКСТ(46013+СТРОКА(A1)*7;"ДД.ММ")&"-"&ТЕКСТ(46013+СТРОКА(A1)*7+6;"ДД.ММ")

=ЗАМЕНИТЬ(ЗАМЕНИТЬ(ЗАМЕНИТЬ(ЗАМЕНИТЬ(A10;22;1;"");19;1;"");4;1;"");1;1;"")

=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(A1;СИМВОЛ(10);"</s><s>")&"</s></t>";"//s[1]")

=СУММПРОИЗВ(ФИЛЬТР.XML("<l><i>"&ПОДСТАВИТЬ(A1;",";"</i><i>")&"</i></l>";"//i"))

Cells(i, 5).FormulaR1C1Local = "=RC[-1] &  "" ТЕКСТ"""

={0;"низкий":0,2;"средний минус":0,4;"средний":0,65;"средний плюс":0,85;"высокий"}

Sub Макрос1()
    Dim lev(1 To 5), k As Long, j As Long, m As Byte, arr_r, lr As Long
    Set sd = CreateObject("Scripting.Dictionary")
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    arr = Range("A7:B" & lr)
    j = 0
    For n = LBound(arr) To UBound(arr)
        If arr(n, 1) = "" Then Exit For
        m = Cells(n + 6, 1).Rows(1).OutlineLevel
        For k = m To UBound(lev)
            lev(k) = ""
        Next
        lev(m) = arr(n, 1)
        lev(5) = arr(n, 2)
        If m = 1 Then If Not sd.Exists(lev(1)) Then Set sd(lev(1)) = CreateObject("Scripting.Dictionary")
        If m = 2 Then If Not sd(lev(1)).Exists(lev(2)) Then Set sd(lev(1))(lev(2)) = CreateObject("Scripting.Dictionary")
        If m = 3 Then If Not sd(lev(1))(lev(2)).Exists(lev(3)) Then Set sd(lev(1))(lev(2))(lev(3)) = CreateObject("Scripting.Dictionary")
        If m = 4 Then
            If Not sd(lev(1))(lev(2))(lev(3)).Exists(lev(4)) Then
                sd(lev(1))(lev(2))(lev(3)).Add lev(4), lev(5)
                j = j + 1
            Else
                sd(lev(1))(lev(2))(lev(3))(lev(4)) = sd(lev(1))(lev(2))(lev(3))(lev(4)) + lev(5)
            End If
        End If
    Next
    ReDim arr_r(1 To j, 1 To 5)
    n = 1
    For Each y1 In sd
        For Each y2 In sd(y1)
            For Each y3 In sd(y1)(y2)
                For Each y4 In sd(y1)(y2)(y3)
                    arr_r(n, 1) = y1
                    arr_r(n, 2) = y2
                    arr_r(n, 3) = y3
                    arr_r(n, 4) = y4
                    arr_r(n, 5) = sd(y1)(y2)(y3)(y4)
                    n = n + 1
                Next
            Next
        Next
    Next
    Range("D7:G" & lr).ClearContents
    Range("D7").Resize(UBound(arr_r), 5) = arr_r
End Sub

Sub Макрос1()
    Dim sd As Object, arr, arr_rez, n As Long, y
    Set sd = CreateObject("Scripting.Dictionary")
    arr = Range("H3:J12").Value
    For n = UBound(arr) To LBound(arr) Step -1
        If Not sd.Exists(arr(n, 2) & "|" & arr(n, 3)) Then sd.Add arr(n, 2) & "|" & arr(n, 3), arr(n, 1)
    Next
    m = sd.Count
    ReDim arr_rez(1 To m, 1 To 3)
    n = 0
    For Each y In sd
        arr_rez(m - n, 1) = sd(y)
        arr_rez(m - n, 2) = Split(y, "|")(0)
        arr_rez(m - n, 3) = Split(y, "|")(1)
        n = n + 1
    Next
    Range("P3").Resize(UBound(arr_rez), 3) = arr_rez
End Sub

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"№", Int64.Type}, {"Имя", type text}, {"Фамилия", type text}}),
    #"Сортированные строки" = Table.Buffer( Table.Sort(#"Измененный тип",{{"№", Order.Descending}})),
    #"Удаленные дубликаты" = Table.Distinct(#"Сортированные строки", {"Имя", "Фамилия"}),
    #"Сортированные строки1" = Table.Sort(#"Удаленные дубликаты",{{"№", Order.Ascending}})
in
    #"Сортированные строки1"

Sheets("ИСМ-0,01").Activate

Sub Макрос1()
    Dim sd_1 As Object, arr_1, arr_2, arr_3, arr_rez, rez As String
    Set sd_1 = CreateObject("Scripting.Dictionary")
        arr_1 = Worksheets("Лист2").Range("A1:A" & Worksheets("Лист2").Cells(Worksheets("Лист2").Rows.Count, 1).End(xlUp).Row)
        arr_2 = Worksheets("Лист1").Range("A1:A" & Worksheets("Лист1").Cells(Worksheets("Лист1").Rows.Count, 1).End(xlUp).Row)
        ReDim arr_rez(LBound(arr_2) To UBound(arr_2), 1 To 1)
    For n = 1 To UBound(arr_1)
        If Not sd_1.Exists(arr_1(n, 1)) Then sd_1.Add arr_1(n, 1), n
    Next
    For n = 1 To UBound(arr_2)
        rez = ""
        arr_3 = Split(arr_2(n, 1), "|")
        For m = LBound(arr_3) To UBound(arr_3)
            If sd_1.Exists(arr_3(m)) Then rez = rez & "|" & arr_3(m)
        Next
        If Len(rez) > 0 Then arr_rez(n, 1) = Right(rez, Len(rez) - 1) Else arr_rez(n, 1) = ""
    Next
    Worksheets("Лист1").Range("B1").Resize(UBound(arr_rez)) = arr_rez
End Sub

=ФИЛЬТР.XML("<j>"&СЦЕП("<i>"&D4:D20&"</i>")&"</j>";"//i[node()]")

Application.ScreenUpdating = True 

=ПРОСМОТР(G2;$B$14:$B$18;$C$14:$C$18)

=ПРОСМОТР(G2;$B$14:$B$18;$C$14:$C$18)

=ЕСЛИ(G2<121;0;ЕСЛИ(G2<181;0,25;ЕСЛИ(G2<301;0,5;ЕСЛИ(G2<451;0,75;1))))