let
    f1 = (t as table,nrows as number)=> let
        OldNames   = Table.Transpose(Table.FirstN(t,nrows)),
        TmpCols    = List.Transform({1..nrows},each "Column"&Text.From(_)),
        Operations = List.Zip({TmpCols,List.Repeat({each Text.Clean(Text.Trim(Text.From(_)))},nrows)}),
        TrimClean  = List.Buffer(Table.ToRows(Table.TransformColumns(OldNames,Operations))),
        NewNames   = List.Generate(()=>
            [ i = 0,
              r = List.RemoveLastN(TrimClean{i},each _=null),
              v = r ],
            each [i]<List.Count(TrimClean),
            each [
                i = [i]+1,
                r = List.RemoveLastN(TrimClean{i},each _=null),
                v = 
                    let 
                        prev=[v] 
                    in 
                        List.Generate(()=>
                            [ i = 0,
                              s = if r{i}=null then prev{i} else  r{i}], 
                            each [i]<List.Count(r),
                            each [ i = [i]+1,
                                   s = if r{i}=null then prev{i} else r{i}], 
                            each [s]
                        )
            ],
            each Text.Combine([v],"|")
        ),
        HeadreRow  = Record.FromList(NewNames,Table.ColumnNames(t))
    in Table.PromoteHeaders(Table.InsertRows(Table.Skip(t,nrows),0,{HeadreRow})),
    f2 = (t,columns)=> let
        Unpivot  = Table.UnpivotOtherColumns(t,List.Select(Table.ColumnNames(t),each not Text.Contains(_,"|")),"Атрибут","Значение"),
        Split    = Table.SplitColumn(Unpivot, "Атрибут",each Text.Split(_,"|"),columns),
        Pivot    = Table.Pivot(Split, List.Distinct(Split[Атрибут]), "Атрибут", "Значение"),
        WeekDays = List.Transform({1..14},each Text.Proper(Date.ToText(#date(1,1,_),"ddd"&(if _>7 then "d" else ""),"ru-ru"))),
        Replace  = Table.ReplaceValue(Pivot,0,0,(a,b,c)=>Number.Mod(List.PositionOf(WeekDays,a),7)+1,{"День"})
    in Replace,
    f3 = (tbl as table)=> let
        NewHeaders = Table.FillDown(f1(Table.Skip(tbl,each [Column1]<>"День"),2),{"День"}),
        Group      = Table.Group(
            NewHeaders, 
            {"День", "#"}, 
            List.Transform(
                List.Skip(Table.ColumnNames(NewHeaders),2),
                each let s = _
                     in {s,(t)=>Replacer.ReplaceValue(List.RemoveNulls(Table.Column(t,s)),{},null)}
            ),
            0,
            (a,b)=>Number.From(b[#"#"]<>null)
        )
    in Table.ExpandListColumn(Table.ExpandListColumn(f2(Group,{"Класс","Атрибут"}), "Предмет"), "Каб."),
    Source          = Excel.Workbook(File.Contents("C:\TEMP\Расписание классов 0112.xlsx"), null, true)[[Data]],
    Source2         = Excel.Workbook(File.Contents("C:\TEMP\Расписание учителей 0112.xlsx"), null, true)[Data]{1},
    ClassSchedule   = Table.ExpandTableColumn(Table.TransformColumns(Source,{{"Data",f3}}), "Data", {"День", "#", "Класс", "Предмет", "Каб."}),
    TeacherSchedule = Table.TransformColumnTypes(f2(f1(Table.Skip(Source2,each [Column1]<>"#"),3),{"День", "Урок", "Атрибут"}),{{"Урок",type number}}),
    Nested          = Table.ExpandTableColumn(Table.NestedJoin(TeacherSchedule,{"День","Урок","Класс","Каб."},ClassSchedule,{"День","#","Класс","Каб."},""), "", {"Предмет"}),
    Sorted          = Table.Sort(Nested,{{"#", Order.Ascending}, {"День", Order.Ascending}, {"Урок", Order.Ascending}})
in
    Sorted

let
    f1 = (t as table,nrows as number)=> let
        t          = Table.Buffer(t),
        OldNames   = Table.Transpose(Table.FirstN(t,nrows)),
        TmpCols    = List.Transform({1..nrows},each "Column"&Text.From(_)),
        Operations = List.Zip({TmpCols,List.Repeat({each Text.Clean(Text.Trim(Text.From(_)))},nrows)}),
        TrimClean  = List.Buffer(Table.ToRows(Table.TransformColumns(OldNames,Operations))),
        NewNames   = List.Generate(()=>
            [ i = 0,
              r = List.RemoveLastN(TrimClean{i},each _=null),
              v = r ],
            each [i]<List.Count(TrimClean),
            each [
                i = [i]+1,
                r = List.RemoveLastN(TrimClean{i},each _=null),
                v = 
                    let 
                        prev=[v] 
                    in 
                        List.Generate(()=>
                            [ i = 0,
                              s = if r{i}=null then prev{i} else  r{i}], 
                            each [i]<List.Count(r),
                            each [ i = [i]+1,
                                   s = if r{i}=null then prev{i} else r{i}], 
                            each [s]
                        )
            ],
            each Text.Combine([v],"|")
        ),
        HeadreRow  = Record.FromList(NewNames,Table.ColumnNames(t))
    in Table.PromoteHeaders(Table.InsertRows(Table.Skip(t,nrows),0,{HeadreRow})),
    f2 = (t,columns)=> let  
        t        = Table.Buffer(t),
        l        = List.Select(Table.ColumnNames(t),each not Text.Contains(_,"|")),
        t1       = Table.SelectColumns(Table.Distinct(t,l),l),
        Unpivot  = Table.UnpivotOtherColumns(t,List.Select(Table.ColumnNames(t),each not Text.Contains(_,"|")),"Атрибут","Значение"),
        Nested   = Table.ExpandTableColumn(Table.NestedJoin(t1,l,Unpivot,l,""),"",{"Атрибут","Значение"}),
        Split    = Table.SplitColumn(Nested, "Атрибут",each Text.Split(if _=null then "" else _,"|"),columns),
        Pivot    = Table.Pivot(Split, List.RemoveNulls(List.Distinct(Split[Атрибут])), "Атрибут", "Значение"),
        WeekDays = List.Transform({1..14},each Text.Proper(Date.ToText(#date(1,1,_),"ddd"&(if _>7 then "d" else ""),"ru-ru"))),
        Replace  = Table.ReplaceValue(Pivot,0,0,(a,b,c)=>Number.Mod(List.PositionOf(WeekDays,a),7)+1,{"День"})
    in Replace,
    f3 = (tbl as table)=> let
        NewHeaders = Table.FillDown(f1(Table.Skip(tbl,each [Column1]<>"День"),2),{"День"}),
        Group      = Table.Group(
            NewHeaders, 
            {"День", "#"}, 
            List.Transform(
                List.Skip(Table.ColumnNames(NewHeaders),2),
                each let s = _
                     in {s,(t)=>Replacer.ReplaceValue(List.RemoveNulls(Table.Column(t,s)),{},null)}
            ),
            0,
            (a,b)=>Number.From(b[#"#"]<>null)
        )
    in Table.ExpandListColumn(Table.ExpandListColumn(f2(Group,{"Класс","Атрибут"}), "Предмет"), "Каб."),
    Source          = Excel.Workbook(File.Contents("C:\TEMP\Расписание классов 0112.xlsx"), null, true)[[Data]],
    Source2         = Excel.Workbook(File.Contents("C:\TEMP\Расписание учителей 0112.xlsx"), null, true)[Data]{1},
    ClassSchedule   = Table.ExpandTableColumn(Table.TransformColumns(Source,{{"Data",f3}}), "Data", {"День", "#", "Класс", "Предмет", "Каб."}),
    TeacherSchedule = Table.TransformColumnTypes(f2(f1(Table.RemoveLastN(Table.Skip(Source2,each [Column1]<>"#"),each [Column1]=null),3),{"День", "Урок", "Атрибут"}),{{"Урок",type number}}),
    Nested          = Table.ExpandTableColumn(Table.NestedJoin(TeacherSchedule,{"День","Урок","Класс","Каб."},ClassSchedule,{"День","#","Класс","Каб."},""), "", {"Предмет"}),
    Sort          = Table.Sort(Nested,{{"#", Order.Ascending}, {"День", Order.Ascending}, {"Урок", Order.Ascending}})
in
    Sort