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