Excel VBA Очистить форматы при значении 0

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 проблема .

Вы пытаетесь сократить время, необходимое для устранения вашей первоначальной проблемы. Вместо этого вы должны просто установить правильный числовой формат.

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