MyTetra Share
Делитесь знаниями!
Группировка: как узнать, что данная строка является "родителем" группы?
Время создания: 16.03.2019 23:22
Текстовые метки: Группировка, OutlineLeve
Раздел: !Закладки - MSO - Excel
Запись: xintrea/mytetra_db_adgaver_new/master/base/151313604468mko3g4ke/text.html на raw.githubusercontent.com


Код

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.59
Яндекс индекс цитирования