KillTwo secundário ()
Rng1 não ofuscante como a escala
lngRow não ofuscante como por muito tempo
Application.ScreenUpdating = falso
Ajustar rng1 = cruzam-se (ActiveSheet.UsedRange, fileiras (2))
Para o lngRow = o rng1.Columns.Count a 1 etapa -1
Se rng1.Cells (lngRow). Valor = “0” então rng1.Cells (lngRow) .EntireColumn.Delete
lngRow seguinte
Application.ScreenUpdating = retificam
Submarino da extremidade
|