Развертывание только выбранных строк в Excel с помощью макросов VBA

если я правильно понял, вы должны быть в состоянии установить и снять ShowDetails свойство для разворачивания и сворачивания определенных строк сводки в структуре.

как показано ниже Showdetails - это свойство чтения / записи всей строки (или столбца) в структуре. Чтобы отобразить сведения для конкретной строки сводки, создайте ссылку на одну ячейку в этой строке, как показано в примере кода ниже. Excel вызовет ошибку при попытке задать для свойства значение True для уровня сводки, который уже расширенный. Если строка сводки не отображается, так как она свернута в большую группу,Showdetails (молча) не удастся развернуть строку.

Option Explicit

Sub Worksheet_Change(ByVal Target As Range)
    With ActiveSheet
        If .Range("E15").Value = "Yes" Then
            With .Range("A26").EntireRow
                If .ShowDetail = False Then
                    .ShowDetail = True
                End If
            End With
        ElseIf Range("E15").Value = "No" Then
            With .Range("A45").EntireRow
                If .ShowDetail = False Then
                    .ShowDetail = True
                End If
            End With
        End If
    End With
End Sub