Vango Otra

Encontré en el siguiente macro Sub EliminaCeros() ''Modificada por FSerrano en 120620 ''Para efuks en TodoExpertos.com For i = 1 To Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row If Cells(i, 1).Value = 0 Then Cells(i, 1).ClearContents Next End Sub...