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

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

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

我怎样才能轻松删除VBA零单元格？

提前致谢！

Answer 1

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

Sub RemoveZeros() Dim Rng As Range For Each Rng In ActiveSheet.UsedRange If Rng.Value2 = 0 Then Rng.ClearContents Next Rng End Sub 

Answer 2

这将全部replace为零：

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

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

Answer 3

你可以试试，

 sub hide_Zeroes ActiveWindow.DisplayZeros = False end sub 

虽然这实际上并没有清除零值，但它从视图中删除它们。 它也隐藏零公式的结果，而不是删除公式。