A sütununda dolhu rengi olamayn satırı silmek

[unur]

Günaydın Arkadaşlar;
A8 ile A9800 arasında dolgu rengi olmayan satırı silmek istiyorum. Böyle bir şeyi yapabilirmiyiz acaba.
Yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub DolguYoksasil()
    
    Dim i As Integer
    
    Application.ScreenUpdating = False
    
    For i = 9800 To 8 Step -1
        If Cells(i, "A").Interior.ColorIndex = xlNone Then Rows(i).Delete
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamam...", vbInformation, "EXCELWEBTR"
    
End Sub