Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос добаления в умную таблицу пустых строк, Макрос добаления в умную таблицу пустых строк
 
#1
09.12.2021 11:02:18
Ну чтож такое... Второй раз так получается, вроде всё прикрепил, всё описал, опять пусто...
Вообщем, добрый день всем, прошу помочь, обычно сам всё нахожу по форуму но тут не смог найти нечего такого, у самого не получается сделать через запись макросов, нужен макрос который бы добавлял в умную таблицу по +4 пустых строки после каждой третей (на примере показано). Таблица умная, тянет данные через PQ с другого файла соотвественно размер постоянно меняется. Прошу пожалуйста помочь т.к. силами самого PQ я также не смог это решить...
Изменено: Артур Эдуардович - 09.12.2021 11:03:02
 
 
 
#2
09.12.2021 12:52:32
Артур Эдуардович, бех обращения к умной
Код
Sub mrshkei2()
Application.ScreenUpdating = False
Dim i As Long, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = lr - 2 To 6 Step -3
    Rows(i & ":" & i + 3).EntireRow.Insert
Next i
Application.ScreenUpdating = True
End Sub
Изменено: Mershik - 09.12.2021 12:52:44
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
10.12.2021 13:19:26
Костыльный вариант PQ
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Добыча_СКВ"]}[Content],
    Индекс = Table.AddIndexColumn(Источник, "Индекс", 0, 1),
    Деление = Table.TransformColumns(Индекс, {{"Индекс", each Number.IntegerDivide(_, 3), Int64.Type}}),
    Группа = Table.Group(Деление, {"Индекс"}, {{"Количество", each Table.InsertRows(_, Table.RowCount(_), {[],[],[],[]})}}),
    Развернуть = Table.ExpandTableColumn(Группа, "Количество", Table.ColumnNames(Источник), Table.ColumnNames(Источник)),
    Ошибки = Table.ReplaceErrorValues(Развернуть, List.Zip({List.Skip(Table.ColumnNames(Развернуть),1), {}})),
    Удалить = Table.RemoveColumns(Ошибки,{"Индекс"})
in
    Удалить

Сильно не пинайте, как смог  :D
 
 
 
Страницы: 1
Наверх