Всем доброго времени суток, возникла срочная необходимость в преобразовании ячеек с интервалов годом (например первая ячейка содержит текст "18-21") в список годов в него входящих (вторая ячейка на основе первой выдает "2018, 2019, 2020, 2021") Подскажите каким образом можно это реализовать, я так и не смог найти решение. Заранее спасибо!
Всем доброго времени суток, возникла срочная необходимость в преобразовании ячеек с интервалов годом (например первая ячейка содержит текст "18-21") в список годов в него входящих (вторая ячейка на основе первой выдает "2018, 2019, 2020, 2021") Подскажите каким образом можно это реализовать, я так и не смог найти решение. Заранее спасибо!antonpolyakov161
Средствами Excel можно реализовать, но это будет довольно громоздкая формула и результат будет не в одной ячейке (можно вторым этапом конкатенировать)
Здравствуйте
Средствами Excel можно реализовать, но это будет довольно громоздкая формула и результат будет не в одной ячейке (можно вторым этапом конкатенировать)Serge_007
Serge_007, а возможно ли как-то не сильно сложно (пусть и криво) это сделать если в этих интервалах будет не сильно много вариантов, допустим минимальный год в интервале 2010, максимальный 2021, может можно сделать 11 ячеек с годами и проверять есть ли в этих ячейках год из диапазона, и если есть добавлять его в ячейку с результатом(или каждый в новую, не важно)?
Serge_007, а возможно ли как-то не сильно сложно (пусть и криво) это сделать если в этих интервалах будет не сильно много вариантов, допустим минимальный год в интервале 2010, максимальный 2021, может можно сделать 11 ячеек с годами и проверять есть ли в этих ячейках год из диапазона, и если есть добавлять его в ячейку с результатом(или каждый в новую, не важно)?antonpolyakov161
let f=(x)=>Expression.Evaluate("{"&Text.Replace(x,"-","..")&"}"), g=(x)=>Text.Combine(List.Transform(f(x),(x)=>Text.From(x+2000)),";"), from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], to = Table.AddColumn(from,"to",each g([from])) in to
[/vba]
PQ [vba]
Код
let f=(x)=>Expression.Evaluate("{"&Text.Replace(x,"-","..")&"}"), g=(x)=>Text.Combine(List.Transform(f(x),(x)=>Text.From(x+2000)),";"), from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], to = Table.AddColumn(from,"to",each g([from])) in to