разделить столбец по 8м пустых ячеек и комбинация 2х ячеек

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

разделить столбец по 8м пустых ячеек и комбинация 2х ячеек (Формулы/Formulas)

runa09

Дата: Воскресенье, 21.11.2021, 23:47 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Уважаемые Гуру ) доброго времени суток )
подскажите пожалуйста, как решить две задачи?

1я задача:
Есть один столбец с данными
1
2
3

нужен второй столбец с таким результатом:
1
тут 8 пустых ячеек
2
тут 8 пустых ячеек
3
т.е разделить 8ю пустыми ячейками между данными 1-го столбца

<<<_________________________________________________________________________________________ >>>

2я задача посложней )
есть 2 столбца

1
2
3

4
5
6
7
8
9
10
11

нужно соединить данные в третий столбец со следующим результатом:

1
14
15
16
17
18
19
110
111
2
24
25
26
27
итд

спасибо за помощь

Сообщение отредактировал runa09 - Воскресенье, 21.11.2021, 23:50

Ответить

Новичёк

Дата: Понедельник, 22.11.2021, 00:51 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 2 ±

Замечаний: 0% ±

По первой части вопроса:

К сообщению приложен файл: 4788702.xlsx (8.9 Kb)

Ответить

прохожий2019

Дата: Понедельник, 22.11.2021, 01:29 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 1408

Репутация: 365 ±

Замечаний: 0% ±

365 Beta Channel

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]