KillTwo secundario ()
Rng1 dévil como gama
lngRow dévil como de largo
Application.ScreenUpdating = falso
Fijar rng1 = se intersecan (ActiveSheet.UsedRange, las filas (2))
Para el lngRow = rng1.Columns.Count a 1 paso -1
Si rng1.Cells (lngRow). Valor = “0” entonces rng1.Cells (lngRow) .EntireColumn.Delete
lngRow siguiente
Application.ScreenUpdating = verdad
Submarino del extremo
|