Ускорение макроса удаления ячеек - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый вечер! Очень нужна помощь. Подскажите,как ускорить макрос, который удаляет все неокрашенные ячейки из диапазона:

Решение задачи: «Ускорение макроса удаления ячеек»

textual
Листинг программы
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("A1:AT19933")
    If c.Interior.Color = 16777215 Then c.ClearContents
Next
Application.ScreenUpdating = True

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы