Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автозаполнение таблицы на отдельном листе почти в "шахматном порядке"
 
#1
11.12.2018 10:54:26

Добрый день.

Я добросовестно попыталась воспользоваться поиском, но найденные мною примеры направлены на решение несколько иных задач. Возможно ли сделать так, чтобы при создании новой таблицы на отдельном листе с данными из таблицы имеющейся на другом листе, но с чтобы ячейки новой таблицы копировались следующим образом:

Столбец А – в отдельную ячейку(строку), а столбцы B,C и D в ячейки строки под строкой с данными из столбца А

…с помощью автозаполнения копируется через одну.

В приложении к этой теме находится файл с
примером.  
 
 
 
#2
11.12.2018 11:13:59
=ИНДЕКС($A$2:$D$8;ОТБР((СТРОКА()-1)/2;0)+1;ОСТАТ(СТРОКА()-1;2)+1)
=ЕСЛИ(ОСТАТ(СТРОКА()-1;2);ИНДЕКС($A$2:$D$8;ОТБР((СТРОКА()-1)/2;0)+1;ОСТАТ(СТРОКА()-1;2)+2);"")
=ЕСЛИ(ОСТАТ(СТРОКА()-1;2);ИНДЕКС($A$2:$D$8;ОТБР((СТРОКА()-1)/2;0)+1;ОСТАТ(СТРОКА()-1;2)+3);"")

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
11.12.2018 11:32:52
Можно с помощью "Сводной таблицы"...
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
#4
11.12.2018 11:49:32
JayBhagavan, Михаил Лебедев Спасибо огромное!
Первый вариант для моего уровня  :oops:  более понятен и применим. А второй... красиво, нет слов! Еще раз спасибо огромное!
 
 
 
#5
11.12.2018 12:07:33
Вариант на PQ
В жизни нет ничего невозможного! Есть только недостаток знаний и умений.
 
 
 
#6
11.12.2018 15:35:37
Александр,  а зачем так сложно, да и получилось не то, что требовалось
гораздо проще:
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Объединенные столбцы" = Table.CombineColumns(Источник,{"Столбец1", "Столбец2"},Combiner.CombineTextByDelimiter(";", QuoteStyle.None),"Сведено"),
    #"Объединенные столбцы1" = Table.CombineColumns(#"Объединенные столбцы",{"Сведено", "Столбец3", "Столбец4"},Combiner.CombineTextByDelimiter("++", QuoteStyle.None),"Сведено.1"),
    #"Разделить столбец по разделителю2" = Table.ExpandListColumn(Table.TransformColumns(#"Объединенные столбцы1", {{"Сведено.1", Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Сведено.1"),
    #"Разделить столбец по разделителю" = Table.SplitColumn(#"Разделить столбец по разделителю2", "Сведено.1", Splitter.SplitTextByDelimiter("++", QuoteStyle.Csv), {"Сведено.1.1", "Сведено.1.2", "Сведено.1.3"})
in
    #"Разделить столбец по разделителю"
 
 
 
Страницы: 1
Наверх