Доброго времени суток.
Написал макрос для группировки строк по условию: отсутствия цвета(от условного форматирования).
Но столкнулся с проблемой: столбцы в документе могут идти друг под другом(см. файл пример) и соответственно, макрос прерывается при пустой строке.
Кол-во строк между столбцами(выделено желтым) могут быть разными.
Пробывал добавить:
И повторить цикл, однако не работает.
Есть ли какой-либо путь, без перебора всего рабочего листа?
Буду благодарен за любые советы и рекомендации.
Написал макрос для группировки строк по условию: отсутствия цвета(от условного форматирования).
Код |
---|
Sub Sort() ' Сочетание клавиш: Ctrl+M(ь) Application.ScreenUpdating = False Dim a, b As Variant b = 1 Do Until IsEmpty(Cells(b, 1)) a = Cells(b, 1).DisplayFormat.Interior.Color If a = "16777215" Then Rows(b).Select Selection.Rows.Group b = b + 1 Else b = b + 1 End If Loop Cells(1, 1).Select ActiveSheet.Outline.ShowLevels RowLevels:=1 Application.ScreenUpdating = True End Sub |
Кол-во строк между столбцами(выделено желтым) могут быть разными.
Пробывал добавить:
Код |
---|
Selection.End(xlDown).Select |
Есть ли какой-либо путь, без перебора всего рабочего листа?
Буду благодарен за любые советы и рекомендации.