Добрый день.
Есть набор строк, с различными отступами (форматирование ячейки) . Отступ в каждой строке задан числовым значением в отдельном столбце. Код выглядит так:
Подскажите пожалуйста, как изменить код чтобы после установки отступов, происходила группировка строк, для каждой иерархии новый уровень.
Файл примера по вложении. Заранее спасибо.
Есть набор строк, с различными отступами (форматирование ячейки) . Отступ в каждой строке задан числовым значением в отдельном столбце. Код выглядит так:
Код |
---|
Sub qq() Dim cell As Range For Each cell In [A5:A14] cell.IndentLevel = cell.Offset(, 2).Value Next End Sub |
Подскажите пожалуйста, как изменить код чтобы после установки отступов, происходила группировка строк, для каждой иерархии новый уровень.
Файл примера по вложении. Заранее спасибо.