Добрый день. Можно как-то так (копия лист1, фигура с побудительной надписью):
Скрытый текст
Код
Sub DataGrup()
Dim lngI As Long, lngJ As Long
For lngI = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(lngI, 1) <> "Не ограничен" Then
Rows(lngI).OutlineLevel = 2
End If
Next lngI
End Sub
Макрос делает следующее: 1. Определяет последнюю заполненную ячейку по столбцу А 2. От строки последней заполненной ячейки до 3 строки с шагом -1 (т.е. цикл задом-наперед), проверка - если в ячейке нет значения "Не обработано", то для строки такой ячейки значение OutlineLevel устанавливаем = 2.
Таким образом получаются нужные группировки (для примера).
Sub DataGrup()
Dim lngI As Long, lngJ As Long
For lngI = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(lngI, 1) <> "Íå îãðàíè÷åí" And Cells(lngI, 1).Font.Bold = False Then
Rows(lngI).OutlineLevel = 2
End If
Next lngI
End Sub
Встречный вопрос - а чего сразу не показывать пример на реальной структуре (ну, чтоб потом не спрашивать "... а чуть усложнить...?")?
Пытливый,Да думал куска хватит, для понимания сути, смотрите все таки чтобы групировка была универсальной (так как появилась необходимость остальные данные сгруппировать тоже подробнее в файле) нужно скрывать именно по содержимому то есть по названиям
Sub DataGrup()
Dim lngI As Long, lngJ As Long
For lngI = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(lngI, 1).Font.Bold = False Then
Rows(lngI).OutlineLevel = 2
End If
Next lngI
End Sub
У вас в файле границы для группировки полужирным шрифтом обозначены. Вот на него и ориентируйтесь - там где НЕ жирный шрифт - там делаем группировку, иначе - фиг. Или, как справедливо советуют камрады, ориентироваться можно по отступу в конкретной проверяемой ячейке (для группируемых данных он больше, чем для заголовков).
Пытливый,Хорошая идея у вас, макрос работает на ура, спасибо) Я вообще думал что нужно создать массив с названиями какие необходимо группировать, и макрос находя их группировал бы. Но так тоже подойдет) Просто например если делать сводную таблицу то там такой макрос работать уже не будет) А возможно вскоре потребуется группировать и в сводных