PQ
[vba]Код
let
from = Excel.CurrentWorkbook(){[Name="TData1"]}[Content][Column1],
trnsf = List.Transform(from,(x)=>{x}&List.Repeat({null},8)),
to = List.Combine(trnsf)
in
to
[/vba]
[vba]Код
let
from = Excel.CurrentWorkbook(){[Name="TData1"]}[Content][Column1],
add = Excel.CurrentWorkbook(){[Name="TData2"]}[Content][Column1],
trnsf = List.Transform(from,(x)=>{x}&List.Transform(add,(y)=>Text.From(x)&Text.From(y))),
to = List.Combine(trnsf)
in
to
[/vba]
[p.s.]а вновой эксельке можно и так [vba]Код
=MAKEARRAY(СЧЁТ(D1:D3)*9;1;LAMBDA(r;c;ЕСЛИ(ОСТАТ(r-1;9);"";ИНДЕКС(D1:D3;r/9+1))))
[/vba]