ПавелW, и то верно, лучший результат )
Приходим к варианту — отсортировать диапазон от А до Я.

Еще вариант PQ:

pq
let    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],    to = Table.Sort(from,each Text.Remove([Было],"-")) in    to

Msi2102, и вправду )) Исправляюсь...

pq
let    f=(x)=>{{null,Table.FirstValue(x)}}&Table.ToList(x,(i)=>{null}&List.Skip(i)),    from = Excel.CurrentWorkbook(){[Name="Сумма_спец4"]}[Content],    lst = List.Combine(Table.Group(from,"Позиция",{"tmp",f})[tmp]),    to = Table.FromList(lst,(x)=>x,Value.Type(from)) in    to

Ваш файл, в котором происходят описанные аномалии, давно бы позволил решить проблему. Выложить его (подготовить, при необходимости) в ваших интересах.

Диспетчер имен (Ctrl + F3).

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

pq

let    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],    sort = Table.Sort(from,{"Column3",Order.Descending}),    sub = Number.RoundUp(Table.RowCount(from)/5),    num = List.Buffer(List.Zip({{1..5}})),    lst = List.Zip(List.Split(Table.ToList(sort,List.Skip),sub)),    tr = List.Transform(lst,(x)=>List.Zip({num,x})&{{}}),    to = Table.FromList(List.Combine(tr),List.Combine,{"N","ФИО","val"}) in    to

Добавил выше 3 вариант, даже чуть шустрее стало (на 0,5 млн строк — 2,5 сек).

В текущем варианте значения в вычисляемом столбце не появятся, если нет совпадения, как указали изначально. Нужно приводить в соответствие или придумывать и реализовывать логику, как должно вестись сопоставление.

Наверное что-то не так делаете, в моем варианте столбец был бы пустой, так как на данный момент в этих двух таблицах нет ни одного совпадения.

У вас две таблицы, загруженные и преобразованные с помощью Power Query. Выше код запроса Power Query (PQ), который берет эти таблицы в качестве исходных данных и выдает третью таблицу, в которой есть запрошенный вами вычисляемый столбец. Применение: нужно создать новый пустой запрос PQ, зайти в Расширенный редактор, заменить там все на код запроса выше, выйти/сохранить/выгрузить новую таблицу на лист. В идеале, наверное, нужно объединить это все в одном запросе и выгружать на лист одну единственную таблицу.

Предлагаю название темы: Сопоставление двух таблиц и вычисление дополнительного столбца

pq
let    f=(x)=>[a=Record.FieldOrDefault(dict,x{0}),            b=if a is number then Date.AddMonths(x{4},a) else a][b],    from = Excel.CurrentWorkbook(){[Name="СПИСАНИЕ"]}[Content],    spis = Excel.CurrentWorkbook(){[Name="Сроки_списания"]}[Content],    dict = ((x)=>Record.FromList(x{2},x{1}))(Table.ToColumns(spis)),    to = Table.AddColumn(from,"tmp", (x)=>f(Record.ToList(x))) in    to

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

pq (v1)
let    f=(x)=>Text.Combine(List.FirstN(List.Zip(x){0},11)," / "),    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],    to = Table.ToList(from,(x)=>f(List.Split(List.Skip(x,6),4))) in    to

pq (v2)
let    g=(x)=>Text.Combine(List.FirstN(List.Alternate(x,3,1),11)," / "),    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],    to = Table.ToList(from,(x)=>g(List.Skip(x,3))) in    to

pq
let    f=each if [Столбец2]="Нет" then (1+[Столбец3]/100)*[Столбец1] else [Столбец1],    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],    to = Table.AddColumn(from,"Пользовательский",f) in    to

Нужно зайти в Расширенный редактор, чтобы увидеть и проанализировать код запроса.

pq
let    f=each [Сумм=List.Sum([Вес])]&Record.FromList([Вес],[Магазины]),    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],    nms = {"Сумм"}&List.Sort(List.Distinct(from[Магазины])),    gr = Table.Group(from,"Продукт",{"tmp",f}),    to = Table.ExpandRecordColumn(gr,"tmp",nms) in    to

Для таблицы включить «Строка итогов».

Закрывать ненужно, только сохранять, и то, если переименовываете или создаете листы, иначе просто обновить запросы.

Или сохраняйте файл перед обновлением или чуть иначе:

pq
let    N = 2, //Порядковый номер листа    path = "C:--СВОЙ-ПУТЬ--\Вывести таблицу.xlsm",    from = Excel.CurrentWorkbook(){[Name="Табл"]}[Content],    lst = Excel.Workbook(File.Contents(path),true,null)[Name],    to = Table.SelectRows(from,each[Название]=lst{N-1})[[Овощи]] in    to

Но если корректируете листы (переименование, создание...), все равно перед обновлением сохранить файл.

Ни в какой, PQ подключается к файлу docx (в вашем случае), преобразует его содержимое до желаемого вида (при необходимости) и выводит результат в таблицу в Excel.

Еще вариант...

pq
let    f=(x)=>{{x[Категория]{0}}}&Table.ToList(x,(x)=>{x{2},null,x{3}}),    g=(x)=>{{x[Магазины]{0}}}&List.Combine(x[tmp])&{{}},    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],    gr = Table.Group(from,{"Магазины","Категория"},{"tmp",f}),    lst = List.Combine(Table.Group(gr,"Магазины",{"tmp",g})[tmp]),    to = Table.FromList(lst,(x)=>x,3) in    to