let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    #"Удаленные столбцы" = Table.RemoveColumns(Источник,{"Плановый ежемесячный платеж"}),
    #"Измененный тип" = Table.TransformColumnTypes(#"Удаленные столбцы",{{"Дата начала", type date}, {"Дата авершения", type date}, {"Срок (месяцев)", type number}, {"Сумма", type number}}),
    #"Вычитание вставленных дат" = Table.AddColumn(#"Измененный тип", "Вычитание", each Duration.Days([Дата авершения] - [Дата начала]), Int64.Type),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Вычитание вставленных дат", " в месяц", each [Сумма]/[#"Срок (месяцев)"]),
    #"Сложено со столбцом" = Table.TransformColumns(#"Добавлен пользовательский объект", {{"Вычитание", each _ + 1, type number}}),
    #"Добавлен пользовательский объект1" = Table.AddColumn(#"Сложено со столбцом", "список дат", each List.Dates([Дата начала],[Вычитание],
#duration(1,0,0,0))),
    #"Добавлен индекс" = Table.AddIndexColumn(#"Добавлен пользовательский объект1", "Индекс", 1, 1, Int64.Type),
    #"Объединенные столбцы" = Table.CombineColumns(Table.TransformColumnTypes(#"Добавлен индекс", {{"Индекс", type text}, {"Дата начала", type text}, {"Дата авершения", type text}}, "ru-RU"),{"Индекс", "Дата начала", "Дата авершения"},Combiner.CombineTextByDelimiter("-", QuoteStyle.None),"Интервал договора"),
    #"Развернутый элемент список дат" = Table.ExpandListColumn(#"Объединенные столбцы", "список дат"),
    #"Вставленное название месяца" = Table.AddColumn(#"Развернутый элемент список дат", "Название месяца", each Date.MonthName([список дат]), type text),
    #"Вставлено: год" = Table.AddColumn(#"Вставленное название месяца", "Год", each Date.Year([список дат]), Int64.Type),
    #"Объединенные столбцы1" = Table.CombineColumns(Table.TransformColumnTypes(#"Вставлено: год", {{"Год", type text}}, "ru-RU"),{"Название месяца", "Год"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Интервал платежа"),
    #"Сгруппированные строки" = Table.Group(#"Объединенные столбцы1", {"Интервал договора", "Интервал платежа", " в месяц"}, {{"Количество", each Table.RowCount(_), Int64.Type}}),
    #"Удаленные столбцы1" = Table.RemoveColumns(#"Сгруппированные строки",{"Количество"})
in
    #"Удаленные столбцы1"

=SUM([pokazatel])/SUMX(ALL('Таблица1');[pokazatel])

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    #"Добавлен пользовательский объект" = Table.AddColumn(Источник, "Пользовательский", each if Text.Length(Text.From([Столбец3], "ru-RU"))=11 then 
"0"&Text.From([Столбец3])
else [Столбец3]),
    #"Измененный тип" = Table.TransformColumnTypes(#"Добавлен пользовательский объект",{{"Пользовательский", type text}}),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Измененный тип",{"Столбец3"}),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Удаленные столбцы",{{"Пользовательский", type number}})
in
    #"Измененный тип1"

=C2-ВПР(A2&B2;'V1'!$C$2:$D$22;2;0)

Sub Макрос1()
    Range("Таблица1[[#All],[Материал]],Таблица1[[#All],[Стоимость]]").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Range("Таблица1[Материал],Таблица1[Стоимость]").Select

Option Explicit
Dim ShList1 As Worksheet
Dim List1Obj As ListObject
Dim List1ListRow As ListRow
Dim ShList2 As Worksheet
Dim List1Obj2 As ListObject
Dim List1ListRow2 As ListRow

Sub Найти_строку_по_дате()

Dim Cell As Range

Set ShList1 = ThisWorkbook.Worksheets("Лист1")
Set List1Obj = ShList1.ListObjects("Таблица1")

Set ShList2 = ThisWorkbook.Worksheets("Лист2")
Set List1Obj2 = ShList2.ListObjects("Таблица2")

Set Cell = List1Obj2.ListColumns.Item(4).Range.Find(ThisWorkbook.Worksheets("Лист1").Cells(1, 5), LookAt:=xlWhole)
     If Not Cell Is Nothing Then
      List1Obj.Range.Clear
      For Each Cell In List1Obj2.ListRows
    Set List1ListRow = List1Obj.ListRows.Add
    List1ListRow.Range(1) = Cell.Cells(1, -3)
    List1ListRow.Range(2) = Cell.Cells(1, -2)
    List1ListRow.Range(3) = Cell.Cells(1, -1)
    Next Cell
    End If
    End Sub

=ЕСЛИ(ИЛИ(ДЕНЬНЕД(D$7;2)>5;НЕ(ЕНД(ВПР(D$7;$AM$7:$AM$35;1;0))));0;1)

let
    Источник = Table.Combine({Таблица1, Таблица2, Таблица3})
in
    Источник