Поиск и удаление значений ячеек заданного цвета - VBA

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

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

Sub Del_Grey_Rows_Value()
   Dim i As Variant
   Dim rRange As Excel.Range
    Set rRange = Selection
  For Each i In rRange
    If i.Interior.Color = 12835293 Then
       i.ClearContents
  Next i
  End Sub

Решение задачи: «Поиск и удаление значений ячеек заданного цвета»

textual
                            Листинг программы 
                        

                            Sub Del_Grey_Rows_Value()
   Dim i As Variant
   Dim rRange As Excel.Range
    Set rRange = Selection
    For Each i In rRange
       If i.Interior.Color = 12835293 Then i.ClearContents
    Next i
  End Sub
                        

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

12 голосов , оценка 4.333 из 5

Похожие ответы