Добрый день! Есть таблица, в ней список имейлов, написанных в одной ячейке через альт+энтер (каретка переноса строки). Надо разбить каждый имейл в отдельную ячейку. Образец таблицы прикрепляю. Заранее от всей души благодарю, вы сэкономите мне кучу личного времени (не рабочее которое).
Добрый день! Есть таблица, в ней список имейлов, написанных в одной ячейке через альт+энтер (каретка переноса строки). Надо разбить каждый имейл в отдельную ячейку. Образец таблицы прикрепляю. Заранее от всей души благодарю, вы сэкономите мне кучу личного времени (не рабочее которое).kangovince
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], f=(x)=>Text.Split(x{1},"#(lf)"), g=(x,y)=>{x{0},y}, lst = List.TransformMany(Table.ToList(from,(x)=>x),f,g), to = Table.FromList(lst,(x)=>x,Table.ColumnNames(from)) in to
[/vba]
например pq[vba]
Код
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], f=(x)=>Text.Split(x{1},"#(lf)"), g=(x,y)=>{x{0},y}, lst = List.TransformMany(Table.ToList(from,(x)=>x),f,g), to = Table.FromList(lst,(x)=>x,Table.ColumnNames(from)) in to