Закрасить диапазон от активной ячейки - VBA

Здравствуйте есть макрос который выделяет диапазон от активной ячейки до последней заполненной.

                    Листинг программы
                
Sub CtrlShiftRight()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

А как выделить и закрасить диапазон ячеек, вправо от активной ячейки до последней ячейки имеющую заливку цветом RGB(192, 192, 192)?

textual
                            Листинг программы 
                        
If Cells(i, j).Interior.Pattern <> xlNone  Then Exit For

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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