// Выборка (2)
let
    DateFrom = Date.From(Excel.CurrentWorkbook(){[Name="DateFrom"]}[Content][Column1]{0}),  
    DateTo = Date.From(Excel.CurrentWorkbook(){[Name="DateTo"]}[Content][Column1]{0}),  

    Источник = Table.SelectRows(Подкл_БД_Водитель, each [Дата получения] <= DateTo and ([Дата списания с водителя] >= DateFrom or [Дата списания с водителя] = null)),
    Слияние = Table.NestedJoin(Источник,{"Номер РО"},Подкл_БД_СМНач,{"Номер РО"},"Подкл_БД_СМНач",JoinKind.LeftOuter),
    #"Expanded {0}1" = Table.ExpandTableColumn(Слияние, "Подкл_БД_СМНач", {"ФИО"}, {"ФИО"}),
    sub = Table.Group(#"Expanded {0}1", {"ФИО водителя", "ФИО"}, {{"a", (sub)=>   let
    #"На начало" = let a=Table.SelectRows(sub, each   [Дата получения]<DateFrom), d=List.Count(a[Номер РО]), q=Text.Combine(a[Номер РО],", ") in [b=d,p=q],
    #"Приход начсмены" = let a=Table.SelectRows(sub, each  [Дата получения]>=DateFrom and [От кого получено] = "Сменный начальник"), d=List.Count(a[Номер РО]), q=Text.Combine(a[Номер РО],", ") in [b=d,p=q],
    #"Приход водила" = let a=Table.SelectRows(sub, each   [Дата получения]>=DateFrom and [От кого получено] = "Другой водитель"), d=List.Count(a[Номер РО]), q=Text.Combine(a[Номер РО],", ") in [b=d,p=q],
    #"Расход заправка" = let a=Table.SelectRows(sub, each  [Дата списания с водителя]<=DateTo and [Основание списания] = "Заправка"), d=List.Count(a[Номер РО]), q=Text.Combine(a[Номер РО],", ") in [b=d,p=q],
    Порча = let a=Table.SelectRows(sub, each   [Дата списания с водителя]<=DateTo and [Основание списания] = "Порча"), d=List.Count(a[Номер РО]), q=Text.Combine(a[Номер РО],", ") in [b=d,p=q],
    Утеря = let a=Table.SelectRows(sub, each   [Дата списания с водителя]<=DateTo and [Основание списания] = "Утеря"), d=List.Count(a[Номер РО]), q=Text.Combine(a[Номер РО],", ") in [b=d,p=q],
    #"Расход водила" = let a=Table.SelectRows(sub, each  [Дата списания с водителя]<=DateTo and [Основание списания] = "Передача другому водителю"), d=List.Count(a[Номер РО]), q=Text.Combine(a[Номер РО],", ") in [b=d,p=q],
    Возврат = let a=Table.SelectRows(sub, each   [Дата списания с водителя]<=DateTo and [Основание списания] = "Возврат"), d=List.Count(a[Номер РО]), q=Text.Combine(a[Номер РО],", ") in [b=d,p=q],
    #"На конец" = let a=Table.SelectRows(sub, each   [Дата списания с водителя]>DateTo or [Дата списания с водителя] = null ), d=List.Count(a[Номер РО]), q=Text.Combine(a[Номер РО],", ") in [b=d,p=q]
    in #table(18,{{#"На начало"[b],#"На начало"[p],#"Приход начсмены"[b],#"Приход начсмены"[p],#"Приход водила"[b],#"Приход водила"[p],#"Расход заправка"[b],#"Расход заправка"[p],#"Порча"[b],#"Порча"[p],#"Утеря"[b],#"Утеря"[p],#"Расход водила"[b],#"Расход водила"[p],#"Возврат"[b],#"Возврат"[p],#"На конец"[b],#"На конец"[p]}}), type table}}),
    #"Expanded {0}" = Table.ExpandTableColumn(sub, "a", {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9", "Column10", "Column11", "Column12", "Column13", "Column14", "Column15", "Column16", "Column17", "Column18"})

in
    #"Expanded {0}"

let
    DateFrom = Date.From(Excel.CurrentWorkbook(){[Name="DateFrom"]}[Content][Column1]{0}),  
    DateTo = Date.From(Excel.CurrentWorkbook(){[Name="DateTo"]}[Content][Column1]{0}),  
    ii = (items) => let
        addLocalId = Table.AddIndexColumn(Table.FromColumns({items}), "local"),
        addDiff = Table.AddColumn(addLocalId, "dif", each [Column1] - [local]),
        grouped = Table.Group(addDiff, {"dif"}, {"temp", (sub) => 
            if Table.RowCount(sub) > 2 
            then Text.From(List.First(sub[Column1]))  & "-" & Text.From(List.Last(sub[Column1]))
            else Text.Combine(List.Transform(sub[Column1], Text.From), ",")})
        in Text.Combine(grouped[temp], ","),
    i = (abc)=> let d=List.Count(abc[Номер РО]), q=ii(Table.Sort(abc,{{"Номер РО", Order.Ascending}})[Номер РО]) in [b=if 0=d then null else d,p=q],
   
    Источник = Table.SelectRows(Подкл_БД_Водитель, each [Дата получения] <= DateTo and ([Дата списания с водителя] >= DateFrom or [Дата списания с водителя] = null)),
    Слияние = Table.NestedJoin(Источник,{"Номер РО"},Подкл_БД_СМНач,{"Номер РО"},"Подкл_БД_СМНач",JoinKind.LeftOuter),
    #"Expanded {0}1" = Table.ExpandTableColumn(Слияние, "Подкл_БД_СМНач", {"ФИО"}, {"ФИО"}),
    sub = Table.Group(#"Expanded {0}1", {"ФИО водителя", "ФИО"}, {{"a", (sub)=>   let
    a = i(Table.SelectRows(sub, each  [Дата получения]<DateFrom)),
    b = i(Table.SelectRows(sub, each  [Дата получения]>=DateFrom and [От кого получено] = "Сменный начальник")),
    c = i(Table.SelectRows(sub, each  [Дата получения]>=DateFrom and [От кого получено] = "Другой водитель")),
    d = i(Table.SelectRows(sub, each  [Дата списания с водителя]<=DateTo and [Основание списания] = "Заправка")),
    e = i(Table.SelectRows(sub, each  [Дата списания с водителя]<=DateTo and [Основание списания] = "Порча")),
    f = i(Table.SelectRows(sub, each  [Дата списания с водителя]<=DateTo and [Основание списания] = "Утеря")),
    g = i(Table.SelectRows(sub, each  [Дата списания с водителя]<=DateTo and [Основание списания] = "Передача другому водителю")),
    h = i(Table.SelectRows(sub, each  [Дата списания с водителя]<=DateTo and [Основание списания] = "Возврат")),
    j = i(Table.SelectRows(sub, each  [Дата списания с водителя]>DateTo or [Дата списания с водителя] = null ))
    in #table({"a".."r"},{{a[b],a[p],b[b],b[p],c[b],c[p],d[b],d[p],e[b],e[p],f[b],f[p],g[b],g[p],h[b],h[p],j[b],j[p]}})}}),
    #"Expanded {0}" = Table.ExpandTableColumn(sub, "a", {"a".."r"})
in
    #"Expanded {0}"