Ускорение макроса удаления ячеек - VBA
Формулировка задачи:
Добрый вечер! Очень нужна помощь. Подскажите,как ускорить макрос, который удаляет все неокрашенные ячейки из диапазона:
Листинг программы
- Dim c As Range
- For Each c In [A1:AT19933]
- If c.Interior.Color = RGB(255, 255, 255) Then c.ClearContents
- Next
Решение задачи: «Ускорение макроса удаления ячеек»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
