let
a = Excel.Workbook(Web.Contents("https://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=537996&action=download")){[Item="исх.",Kind="Sheet"]}[Data],
b = Table.PromoteHeaders(Table.Skip(a,17)),
c = Table.Skip(b,2),
d = Table.FirstN(c,12),
e = Table.SelectColumns(d, {"Column3"} & List.Select(Table.ColumnNames(d), (x)=> try Number.From(x) is number otherwise false)),
g = Table.SplitColumn(e, "Column3", (x)=> List.Transform(Splitter.SplitTextByEachDelimiter({"("}, QuoteStyle.Csv, true)(x), (q)=> Text.Remove(q, ")")), {"q", "w"}),
h = Table.TransformColumns(g, {}, (x)=> x??""),
k = List.Split(Table.ToRows(h), 2),
l = List.Transform(k, (x)=> List.Transform(List.Zip({x{0}, x{1}}) , (q)=> Text.Combine({q{1} & q{0}}))),
m = List.Transform(List.Split(l, 2), (x)=> List.RemoveLastN(x{0}, 1) & List.Skip(x{1}, 2)),
n = Table.FromList(m, (x)=> x, {"фио"} & {"долж"} & List.Transform({1..31}, Text.From))
in
n |