当值为0时，Excel VBA清除格式

Question

我创建了一个报告，其中有一些单元格具有空值。当我的代码将数字格式应用于空单元格时，它会显示为空白值的0%。我添加了一个代码，然后删除显示为0%的任何值和格式，但它需要很长时间才能运行（30秒左右），有时会崩溃Excel。

码：

Application.ScreenUpdating = False

Dim cell As Range
For Each cell In Range("v11:ay9000")
    If cell = 0 Then cell.ClearFormats
Next cell

Application.ScreenUpdating = True

我很感激任何有关代码速度的帮助。

Answer 1

你有一个XY problem。

您正在尝试缩短修复初始问题所需的时间。相反，您应该首先设置正确的数字格式。

Range("v11:ay9000").numberformat = "0%;-0%;;"