Código:
Sub OcultarCeros()
Dim celda As Range
For Each celda In Selection
If celda.Value = 0 Then
celda.EntireRow.Hidden = True
End If
Next celda
End Sub
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos