Ускорение макроса удаления ячеек - 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