Sub BajanPaul ()
Schemerige lastRow zoals lang, I zoals lang
Application.ScreenUpdating = Vals
lastRow = ActiveSheet.UsedRange.Rows.Count
Voor I = lastRow aan 6 Stap -1
Als niet IsNull (Rijen (I). Tekst) en IsNull (Rijen (I - 1). Tekst) en niet IsNull (Rijen (I - 2). Tekst) en _
Niet IsNull (Rijen (I - 3). Tekst) en niet IsNull (Rijen (I - 4). Tekst) en niet IsNull (Rijen (I - 5). Tekst) toen
Waaier (Rijen (I - 5), Rijen (I)). Schrap
i = I - 5
Eind als
Daarna
Application.ScreenUpdating = Waar
Sub van het eind
|