Oops, spiacente, anziché la radura, dovreste mettere ClearContents, potreste vederli dalla vostra domanda.
DeleteRows secondario ()
La LR fioca, i come lungamente
La WS fioca come manuale
Regolar la WS = ThisWorkbook.Worksheets (“TaskTracker„)
la LR = la WS. Gamma (“A65536„). Estremità (xlUp). Fila
Per i = la LR - 1 12 a punto -1
la WS. Cellule (i, 1).EntireRow.Delete
Dopo i
Per i = 11 7 a punto -1
la WS. Cellule (i, 1).EntireRow.ClearContents
Dopo i
Sommergibile dell'estremità