如何在excel vba中删除具有特定值的每个单元格？

Question

我想删除工作表中的每个零。

零在我的工作表中随机分布。

如何使用VBA轻松删除零个单元？

提前致谢！

Answer 1

这将全部替换所有零：

Sub ZeroToBlank()
ActiveSheet.UsedRange.Replace 0, "", lookat:=xlWhole
End Sub

根据Jeeped的评论更新。很好的抓住Jeeped。

Answer 2

你可以试试，

sub hide_Zeroes
    ActiveWindow.DisplayZeros = False
end sub

虽然这实际上没有清除零值，但它会从视图中删除它们。它还隐藏了由公式导致的零而不删除公式。

Answer 3

删除活动工作表中的零的代码：

Sub RemoveZeros()

Dim Rng As Range

For Each Rng In ActiveSheet.UsedRange
  If Rng.Value2 = 0 Then Rng.ClearContents
Next Rng

End Sub