Удаление строк (по 3 подряд) макросом

makel_95 Пользователь Сообщений: 1 Регистрация: 02.10.2018	#1 02.10.2018 23:41:37 Добрый день, Подскажите, пожалуйста, как написать макрос на удаление строк 2-4,6-8,10-12,14-16 и так далее ( удаление трех последующих строк после 1). Количество строк 2476. Заранее благодарен!!!

Пользователь

Сообщений: 10514 Регистрация: 21.12.2012

03.10.2018 01:02:33

Код
Sub Rows_Delete() Dim i Application.ScreenUpdating = False For i = 2477 To 5 Step -4 Rows(i - 3 & ":" & i - 1).Delete Next Application.ScreenUpdating = True End Sub