BajanPaul secundário ()
lastRow não ofuscante tão por muito tempo, i quanto por muito tempo
Application.ScreenUpdating = falso
lastRow = ActiveSheet.UsedRange.Rows.Count
Para i = lastRow 6 a etapa -1
Se não IsNull (fileiras (i). Texto) e IsNull (fileiras (i - 1). Texto) e não IsNull (fileiras (i - 2). Texto) e _
Não IsNull (fileiras (i - 3). Texto) e não IsNull (fileiras (i - 4). Texto) e não IsNull (fileiras (i - 5). Texto) então
Escala (fileiras (i - 5), fileiras (i)). Supressão
i = i - 5
Terminar se
Em seguida
Application.ScreenUpdating = retificam
Submarino da extremidade
|