MyTetra Share
Делитесь знаниями!
Группировка: как узнать, что данная строка является "родителем" группы?
16.03.2019
23:22
Текстовые метки: Группировка,OutlineLeve
Раздел: !Закладки - MSO - Excel


Код

Sub GroupParent()

Dim lngI As Long

    For lngI = Cells(Rows.Count, 2).End(xlUp).Row To 6 Step -1

        If Rows(lngI).OutlineLevel > Rows(lngI - 1).OutlineLevel Then

            Cells(lngI - 1, 1).Interior.Color = vbMagenta

        End If

         

    Next lngI

End Sub


запустить на активном листе.

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования