清除0值单元格

​Sub 清除零值()

Application.ScreenUpdating = False

For Each cel In ActiveSheet.UsedRange

If cel = 0 Then cel.ClearContents

Next

Application.ScreenUpdating = True

End Sub