BajanPaul secondario ()
lastRow fioco lungamente, i quanto lungamente
Application.ScreenUpdating = falso
lastRow = ActiveSheet.UsedRange.Rows.Count
Per i = lastRow 6 a punto -1
Se non IsNull (file (i). Testo) e IsNull (file (i - 1).Text) e non IsNull (file (i - 2).Text) e _
Non IsNull (file (i - 3).Text) e non IsNull (file (i - 4).Text) e non IsNull (file (i - 5).Text) allora
Gamma (file (i - 5), file (i)). Cancellazione
i = i - 5
Concluder se
Dopo
Application.ScreenUpdating = allineano
Sommergibile dell'estremità
|