pq
let    vote = Table.FirstValue(Excel.CurrentWorkbook(){[Name="vote"]}[Content]),    path = Table.FirstValue(Excel.CurrentWorkbook(){[Name="path"]}[Content]),    lst = List.Skip(Excel.Workbook(File.Contents(path),true,null)[Data]),    to = Table.SelectRows(Table.Combine(lst),each [#"№ контракта"]=vote)[[#"Сумма, млн.руб"]] in    to

После добавления новых листов — сохранить файл.

Формулу ниже в C2, протянуть вниз и вправо:
=ЕСЛИ($B2<=C$1;ПОИСКПОЗ(1;($B2:$B$73>C$1)*1;0)+СТРОКА($B2)-3;0)

Диапазон: =$A$2:$A$19
Формула: =И($H2<>0;СУММ((C2:H2>0)*1)>1)

Еще вариант:

pq
let    f=(x)=>{x{0}{0},List.Sum(x{3}),x{1}{0},List.Last(x{1})},    from = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],    gr = Table.Group(from,"Группа задач",{"tmp",(x)=>f(Table.ToColumns(x))}),    to = Table.FromList(gr[tmp],(x)=>x,{"Group","Count","First","Last"}) in    to

Пишу в ЛС. Выполнено.

Имя запроса 1 — Годы; имя запроса 2 — Месяц.

pq
let   tbl = Table.Join(Годы,{},Месяц,{}),   to = Table.ToList(tbl,(x)=>Text.Format("#{1},#{0}",x)) in   to

pq (одной строкой)
Table.ToList(Table.Join(Годы,{},Месяц,{}),(x)=>Text.Format("#{1},#{0}",x))

AlienSx, прекрасно )
Можно даже еще чуть компактнее:

pq (v1)
let   lst = Excel.CurrentWorkbook()[Content],   tbl = Table.Join(lst{0},{},lst{1},{}),   to = Table.ToList(tbl,(x)=>Text.Format("#{1},#{0}",x)) in   to

pq (v2)
let   tbl = ((x)=>Table.Join(x{0},{},x{1},{}))(Excel.CurrentWorkbook()[Content]),   to = Table.ToList(tbl,(x)=>Text.Format("#{1},#{0}",x)) in   to

pq (v3)
Table.ToList((((x)=>Table.Join(x{0},{},x{1},{}))(Excel.CurrentWorkbook()[Content])),(x)=>Text.Format("#{1},#{0}",x))

Исходные данные: именованный диапазон (A1:G13) с именем «data»

pq
let    f=(x)=>List.Transform(List.Split(List.Skip(x),2),(i)=>{x{0}}&i),    from = Table.Skip(Excel.CurrentWorkbook(){[Name="data"]}[Content]),    to = Table.FromList(List.Combine(Table.ToList(from,f)),(x)=>x) in    to

Исходные данные: именованный диапазон (A2:G5) с именем «data»

pq
let    from = Table.PromoteHeaders(Table.Transpose(Excel.CurrentWorkbook(){[Name="data"]}[Content])),    upiv = Table.UnpivotOtherColumns(from,{"Column1","Column2"},"Продукт","tmp"),    to = Table.Pivot(upiv,List.Distinct(upiv[Column2]),"Column2","tmp") in    to

Попробуйте разобрать, понять и повторить этот прием. Смысл тот же...
Сделать преобразование одной таблицы и превратить это в функцию.
Применить эту функцию для преобразования каждой таблицы из списка.

Чуть иначе, как вариант:

pq

let    f=(x)=>List.Sum(List.Transform(List.Skip(x),(i)=>Record.FieldOrDefault(dict,x{0}&i??""))),    a = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],    b = Table.UnpivotOtherColumns(a,{"Предмет"},"c","b"),    dict = (each Record.FromList([b],[a]))(Table.AddColumn(b,"a",each[c]&[Предмет])),    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],    fill = Table.FillDown(Table.TransformColumns(from,{"Урок",Text.From}),{"День"}),    upiv = Table.UnpivotOtherColumns(fill,{"День","Урок"},"Класс","Предмет"),    piv = Table.Pivot(upiv,List.Distinct(upiv[Урок]),"Урок","Предмет"),    to = Table.AddColumn(piv,"sum",(x)=>f(List.Skip(Record.ToList(x)))) in    to

Исходные данные: именованный диапазон (A1:C39) с именем «data»

pq (на выходе столбец)
let    f=(x)=>((x)=>{List.Sum(List.Last(x))}&List.Skip(x{0}))(Table.ToColumns(x)),    from = Table.PromoteHeaders(Excel.CurrentWorkbook(){[Name="data"]}[Content]),    gt = Table.Group(from,"ЕГРН",{"tmp",f},0,(s,c)=>Number.From(c<>null)),    to = Table.FromColumns({List.Combine(gt[tmp])},{"Рын. стоим., руб."}) in    to

pq (на выходе таблица)
let    f=(x)=>List.Sum(Table.ToColumns(x){2}),g=(s,c)=>Number.From(c<>null),    from = Table.PromoteHeaders(Excel.CurrentWorkbook(){[Name="data"]}[Content]),    dict = (each Record.FromList([tmp],[ЕГРН]))(Table.Group(from,"ЕГРН",{"tmp",f},0,g)),    to = Table.AddColumn(from,"Рын. стоим., руб.",each Record.FieldOrDefault(dict,[ЕГРН]??"")) in    to

Для последних версий:
=ВЫБОРСТОЛБЦ(СОРТ(ГСТОЛБИК(СЛМАССИВ(49);ПОСЛЕД(49)));2)

Исходные данные: именованный диапазон (A4:J33) с именем «data»

pq
let    f=(x)=>x{0}&[7=Text.Combine(x[7],"#(lf)")]&[10=List.RemoveNulls(x[10]){0}?],    from = Table.PromoteHeaders(Excel.CurrentWorkbook(){[Name="data"]}[Content]),    gr = Table.Group(from,"1",{"tmp",f},0,(s,c)=>Number.From(c<>null)),    to = Table.FromRecords(gr[tmp]) in    to

pq (v2)
let    f={"tmp",each _{0}&[7=Text.Combine([7],"#(lf)")]&[10=List.Sum([10])]},    from = Table.PromoteHeaders(Excel.CurrentWorkbook(){[Name="data"]}[Content]),    to = Table.FromRecords(Table.Group(from,"1",f,0,(s,c)=>Number.From(c<>null))[tmp]) in    to

Power Query — некоторые справочные данные, приемы, примеры
Планета Excel — Power Query, Pivot, BI Power Query встроен в Excel начиная с версии 2016. Для 2010 и 2013 — Power Query - что такое и почему... Ссылки на каналы в Telegram: https://t.me/PQ_ru, https://t.me/pbi_pq_from_tank

Исходные данные — исходная таблица из файла с решением от Ma_Ri

pq
let    f=each Number.From(g(List.LastN(Text.Split([Name],""""),4))),    g=(x)=>if x{0}<>x{2}? and x{0}="-" then (x{2}) else null,    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],    to = Table.AddColumn(from,"new",f) in    to

Исходные данные: именованный диапазон (B2:F22) с именем «data»

pq
let    from = Table.PromoteHeaders(Excel.CurrentWorkbook(){[Name="data"]}[Content]),    ren = Table.Skip(Table.RenameColumns(from,{"QTY","No"})),    to = Table.UnpivotOtherColumns(ren,{"No"},"QTY","Value") in    to

Excel > Данные > Обновить все (или ПКМ по ячейке внутри итоговой таблицы > Обновить)

Это код запроса Power Query. Замените в расширенном редакторе ваш код на новый, замените в нем «--СВОЙ-ПУТЬ--» и «Item="таблица"» (название листа с исходными данными) при необходимости, закройте/сохраните, обновите запрос.