Sub BajanPaul ()
Тусклое lastRow как длиной, I как длиной
Application.ScreenUpdating = ложно
lastRow = ActiveSheet.UsedRange.Rows.Count
Для I = lastRow к 6 разделу -1
Если не IsNull, то (рядки (I). Текст) и IsNull (рядки (I - 1).Text) и не IsNull (рядки (I - 2).Text) и _
Не IsNull (рядки (I - 3).Text) и не IsNull (рядки (I - 4).Text) и не IsNull (рядки (I - 5).Text) после этого
Ряд (рядки (I - 5), рядки (I)). Delete
iий = I - 5
Закончитесь если
Затем
Application.ScreenUpdating = True
Подводная лодка конца
|