let d=Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
  L=List.Buffer(Table.ToList(d,(x)=>x),
  a=List.Transform(L,(x)=> List.Skip(L,(i)=>i{0}<>x{0})),
  b=List.Transform(a,(x)=>List.Distinct(x,(y)=>x{1})),
  с=List.Transform(b,(x)=>{x{0}{0},x{6}?{0}?,x{6}?{0}?-x{0}(0}}),
  s=List.Select(c,(x)=>x{1}<>null),
  t=#table({"start","end","td"},List.MinN(s,1,(x)=>x{2})
in t

let
    s = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    t=List.Buffer(s[Время]),
    p=List.Buffer(s[Место]),
    f=(imin,imax)=> if imax=List.Count(p)-1 then {[a=imin,b=imax,d=1]} else
                    if List.Count(List.Distinct(List.Range(p,imin,imax-imin+1)))=7 
                    then {[a=imin,b=imax,d=t{imax}-t{imin}]} & @f(imin+1, imax)
                    else {[a=imin-1,b=imax+1,d=1]} & @f(imin, imax+1),
    a=f(1,0),
    tmin=List.Min(Table.FromRecords(a)[d]),
    out=List.Select(a,(x)=> x[d]=tmin),
    tab=Table.FromRecords(out)
in
  tab

let
    s = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    t=List.Buffer(s[Время]),
    p=List.Buffer(s[Место]),
    g=List.Generate(
        ()=> 7,
        (x)=> List.Count(List.Distinct(List.Range(p,0,x)))<7,
        (x)=>x+1
    ),
    istart=List.Last(g),
    g2=List.Generate(
        ()=> [imin=0,imax=istart],
        each [imax]<List.Count(p),
        each [
            imax=[imax]+1,
            g3=List.Generate(
                ()=> [imin]+1,
                (x)=> List.Count(List.Distinct(List.Range(p,x,imax-x)))=7,
                (x)=> x+1),
            imin=if List.IsEmpty(g3) then [imin] else List.Last(g3)-1
        ], each [imin=[imin]+1, imax=[imax]-1,dt=t{[imax]-1}-t{[imin]+1}]),
        tmin=List.Min(Table.FromRecords(g2)[dt]),
        out=List.Select(g2,(x)=> x[dt]=tmin),
        tab=Table.FromRecords(out)
in
   tab