Группировка по родительским и дочерним отношениям по Excel VBA

Question

Предположим, что у моего проекта есть n элементов, и каждому элементу назначен один родительский элемент. Я хочу сгруппировать то же самое в соответствии с отношениями родителей и детей. На первом снимке экрана номер строки 769 имеет дочерний элемент от 770 до 896 . Поэтому я хочу, чтобы мой результат отображался как Снимок экрана 2: для какой группы строк от 770 до 896, под 769 Для примера требуется

Answer 1

Добавьте этот код в новый модуль ...

Public Sub PerformOutlineOnSelectedRows()
    Dim i As Long, lngLevel As Long

    Selection.Rows.ClearOutline

    For i = 1 To Selection.Rows.Count
        lngLevel = UBound(Split(Selection.Cells(i, 1), ".")) + 1

        If lngLevel > 8 Then lngLevel = 8

        Selection.Rows(i).EntireRow.OutlineLevel = lngLevel
    Next
End Sub

... затем выберите строки, которые вы хотите сгруппировать и наметить, а затем запустите макрос на вкладке Developer на ленте.

Следует учитывать только функциональность группы и структурыдоходит до 8 уровней, поэтому все, что ниже, не будет группироваться должным образом.

Дайте мне знать, если это работает или вам нужна дополнительная информация.