Страницы: 1
RSS
Вставить и сгруппировать пустые строки
 
Привет! есть макрос, который добавляет пустые строки по определенному условию, подскажите код, который позволит сразу эти пустые вставленные строки сгруппировать?
Код
Sub вставка_строк_в_рсз()
Dim i As Integer
Sheets("РСЗ (1)").Select
For i = 17 To 743
If Cells(i, 97) = 1 Then
 Rows(i + 1).Resize(Cells(i, 3)).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 End If
 Next i
End Sub
Изменено: nikita49 - 12.11.2019 20:35:20
 
Здарова. По идее, нужно вставленным строкам установить соответствующий OutlineLevel (уровень группировки)
Например, так.
Код
Rows(I+1).EntireRow.OutlineLevel = 2

Наверное :)
Кому решение нужно - тот пример и рисует.
 
а ты можешь показать как это будет выглядеть в моем коде, а то я не совсем понял куда вставить твою строку?)
 
Ну... если хочется сгруппировать ВСТАВЛЕННУЮ строку, то, скорее всего, это надо делать ПОСЛЕ того, как ее вставишь. :)
Ну и еще - так цикл вставки строк будет работать плохо практически во всех случаях, кроме как если в таблице только одна ячейка в 97 столбце с значением 1. Если их будет 2 - то цикл так не сработает, его надо запускать задом наперед от 743 до 17 с шагом -1.
Кому решение нужно - тот пример и рисует.
Страницы: 1
Наверх