Доброго дня,
Подскажите пожалуйста как добавить строку c шагом Step -1 в конкретном диапозоне (для всего диапозона B11:N161). Фаил прикреплен.
Вот таким кодом я пользуюсь что-бы добавить строку, только для всего листа.
Спасибо большое!
Подскажите пожалуйста как добавить строку c шагом Step -1 в конкретном диапозоне (для всего диапозона B11:N161). Фаил прикреплен.
Вот таким кодом я пользуюсь что-бы добавить строку, только для всего листа.
Спасибо большое!
Код |
---|
Sub add_row() Application.ScreenUpdating = 0 Dim i As Long For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1 Rows(i).Insert Next Application.ScreenUpdating = 1 End Sub |