=СУММ(ЕСЛИОШИБКА(--ТЕКСТ(МУМНОЖ(ТРАНСП(Таблица18[[1]:[30]]*(Таблица18[Ф. И. О.]=B7)*(Таблица18[р/р]=расчет!D6&"/"&ОТБР(расчет!Q4*100)));Таблица18[год]^0*2)-1;"0;\0;\0");))*Q6*R6

let
    Source =
        Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Filtered =
        Table.SelectRows(Source, each ([Номер акта] <> null)),
    Typed =
        Table.TransformColumnTypes(
            Filtered,
            {
                {"дата начала", Int64.Type},
                {"дата окончания", Int64.Type},
                {"дата акта", type date},
                {"кол-во экз", Int64.Type},
                {"Номер п/п", Int64.Type}}
        ),
    Combined =
        Table.CombineColumns(
            Typed,
            {"дата начала", "дата окончания"},
            each {_{0}.._{1}},
            "Даты"
        ),
    Expand =
        Table.ExpandListColumn(Combined, "Даты"),
    Typed1 =
        Table.TransformColumnTypes(Expand,{{"Даты", type date}})
in
    Typed1

=ГИПЕРССЫЛКА("file:///C:/%231/таблица.xlsx";"таблица.xlsx")

Worksheets

ActiveWindow.SelectedSheets

    With ActiveWorkbook.Sheets
        With .Add(, .Item(.Count))
            .Parent.PivotCaches.Create(xlDatabase, "Лист1!R1C1:R" & iLastRow & "C" & iLastCol, 6) _
                .CreatePivotTable .Range("A3"), DefaultVersion:=6
        End With
    End With

MacScript("get clipboard as text")

=ГИПЕРССЫЛКА("https://yandex.ru/maps/?text="&ПОДСТАВИТЬ(G2;",";".")&"%C2%B0N%20"&ПОДСТАВИТЬ(H2;",";".")&"%C2%B0E&sll="&ПОДСТАВИТЬ(H2;",";".")&","&ПОДСТАВИТЬ(G2;",";".")&"&source=wizgeo&utm_source=serp&l=map&utm_medium=maps-desktop";"Yandex карта")

Sub SaveActiveSheet4() 'Процедура сохранения

    Dim NewFileName
    
    On Error Resume Next
    If ActiveSheet Is Nothing Then Exit Sub
    NewFileName = GetNewFileName4
    If NewFileName <> "" Then ActiveSheet.ExportAsFixedFormat 0, NewFileName

End Sub

var n=sheet.getLastRow()+1

Sub del()
    Dim uRng, lRows
    With ActiveSheet
        Set uRng = .UsedRange
        lRows = uRng.Rows.Count - 8 + uRng.Row
        .[cd8].MergeArea.Resize(lRows).Value = Empty
    End With
End Sub

Debug.Print ThisWorkbook.VBASigned

.Paste

.Parent.Select

Function x(R As Range) As Range
    Dim R1 As Range
    Set x = R
    With Application: .ScreenUpdating = 0: .EnableEvents = 0
    With Application.Caller
        On Error GoTo er
        Set R1 = ['Сусло '!F:F].Find(.Value, , xlValues, xlPart)
        .Hyperlinks.Delete
        .Hyperlinks.Add .Cells, "", R1.Address(, , , 1)
    End With
er: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Function