// Таблица2
let
    Source = Table.AddIndexColumn(Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],"id"),
    Source2 = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Unpivot = Table.Unpivot(Table.Unpivot(Table.Join(Source,{},Source2,{}),{"oil & gas","mining","metals"},
    "a1","a2"),{"oil & gas2","mining3","metals4"},"b1","b2"),
    Filter1 = Table.Distinct(Table.SelectRows(Unpivot, each [ind_mapping.Ind_corr2]=[a1] and 
    "Revenue in $ bln"=[Coefficients] and [#"Revenue in $ bln"]>=[a2] and [#"Revenue in $ bln"]<[b2]), {"id"}),
    Filter2 = Table.Distinct(Table.SelectRows(Unpivot, each [ind_mapping.Ind_corr2]=[a1] and "nPPE in $ bln"=
    [Coefficients] and [#"nPPE in $ bln"]>=[a2] and [#"nPPE in $ bln"]<[b2]), {"id"}),
    NJoin1 = Table.NestedJoin(Source,{"id"},Filter1,{"id"},"Filter1",JoinKind.LeftOuter),
    NJoin2 = Table.NestedJoin(NJoin1,{"id"},Filter2,{"id"},"Filter2",JoinKind.LeftOuter),
    Expand1 = Table.ExpandTableColumn(NJoin2, "Filter1", {"score"}, {"a"}),
    Expand2 = Table.ExpandTableColumn(Expand1, "Filter2", {"score"}, {"b"}),
    Sort = Table.RemoveColumns(Table.Sort(Expand2,{{"id", Order.Ascending}}),{"id"})
in
    Sort

// Таблица1
let
    Источник  = Excel.CurrentWorkbook(){[Name = "Таблица1"]}[Content],
    #"Несвернутые столбцы" = Table.UnpivotOtherColumns(Источник, {"ind_mapping.Ind_corr2", "Instrument", "bs_rep_date_corr (Год)"}, "Атрибут", "Значение")
in
    #"Несвернутые столбцы"

// Таблица2
let
    Источник    = Excel.CurrentWorkbook(){[Name = "Таблица2"]}[Content],
    #"Несвернутые столбцы" = Table.UnpivotOtherColumns(Источник, {"Profiles", "Coefficients", "score"}, "Атрибут", "Значение"),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Несвернутые столбцы", "a", each if Text.EndsWith([Атрибут],"2") then "to" else "from"),
    #"Замененное значение" = Table.ReplaceValue(#"Добавлен пользовательский объект","2","",Replacer.ReplaceText,{"Атрибут"}),
    #"Сведенный столбец" = Table.Pivot(#"Замененное значение", List.Distinct(#"Замененное значение"[a]), "a", "Значение", List.Sum)
in
    #"Сведенный столбец"

// tbl
null meta [IsParameterQuery=true, Type="Any", IsParameterQueryRequired=false]

// num
null meta [IsParameterQuery=true, Type="Number", IsParameterQueryRequired=false]

// debug
1 meta [IsParameterQuery=true, Type="Number", IsParameterQueryRequired=true]

// i
31 meta [IsParameterQuery=true, Type="Number", IsParameterQueryRequired=true]

// Запрос1
let
    Источник = Таблица1,
    #"Объединенные запросы" = Table.NestedJoin(Источник,{"ind_mapping.Ind_corr2", "Атрибут"},Таблица2,{"Атрибут", "Coefficients"},"Таблица2",JoinKind.LeftOuter),
    #"Вызвана настраиваемая функция" = Table.AddColumn(#"Объединенные запросы", "score", each fnFilter([Таблица2], [Значение], 0)),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Вызвана настраиваемая функция",{"Таблица2"}),
    #"Сгруппированные строки" = Table.Group(#"Удаленные столбцы", {"ind_mapping.Ind_corr2", "Instrument", "bs_rep_date_corr (Год)","Атрибут"}, {{"_", each _{0}[[Значение],[score]]}}),
    #"Сведенный столбец" = Table.Pivot(#"Сгруппированные строки", List.Distinct(#"Сгруппированные строки"[Атрибут]), "Атрибут", "_"),
    #"Развернутый элемент Revenue in $ bln" = Table.ExpandRecordColumn(#"Сведенный столбец", "Revenue in $ bln", {"Значение", "score"}, {"Revenue in $ bln.Значение", "Revenue in $ bln.score"}),
    #"Развернутый элемент nPPE in $ bln" = Table.ExpandRecordColumn(#"Развернутый элемент Revenue in $ bln", "nPPE in $ bln", {"Значение", "score"}, {"nPPE in $ bln.Значение", "nPPE in $ bln.score"}),
    Пользовательская1 = #"Развернутый элемент nPPE in $ bln" meta (if debug=1 then [a=#"Объединенные запросы",tbl=a{i}[Таблица2],v=a{i}[Значение]] else [])
in
    Пользовательская1

// fnFilter
let
    Источник = (tbl as any, num as number, debug as number) => let
        Источник = if debug=1 then Value.Metadata(Запрос1)[tbl] else tbl,
        Num = if debug=1 then Value.Metadata(Запрос1)[v] else num,
        #"Строки с примененным фильтром" = Table.SelectRows(Источник, each [from] <= Num),
        #"Строки с примененным фильтром1" = Table.SelectRows(#"Строки с примененным фильтром", each [to] > Num),
        #"Вычисленное максимальное значение" = List.Max(#"Строки с примененным фильтром1"[score])
    in
        #"Вычисленное максимальное значение"
in
    Источник

// Запрос2
let
    Источник = if debug=1 then Value.Metadata(Запрос1)[tbl] else tbl,
    Num = if debug=1 then Value.Metadata(Запрос1)[v] else num,
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each [from] <= Num),
    #"Строки с примененным фильтром1" = Table.SelectRows(#"Строки с примененным фильтром", each [to] > Num),
    #"Вычисленное максимальное значение" = List.Max(#"Строки с примененным фильтром1"[score])
in
    #"Вычисленное максимальное значение"