كيف حذف الصفوف الملونة بألوان محددة

[القول المأثور]

السلام عليكم

أريد كود يقوم بحذف الصفوف حسب لون محدد..

رقم اللون المراد حذفه محدد على الرقم RGP (225 225 225) , Hex (#E1E1E1) 

وكذلك اللون المراد حذفه محدد على الرقم RGP (192 192 192) , Hex (#C0C0C0)

وأي صف فارغ لا يوجد به بيانات يحذف

 

مرفق ملف الأكسل للتوضيح أكثر

حذف الألوان والصفوف الفارغة.xlsx

تم تعديل ديسمبر 3, 2021 بواسطه القول المأثور

[lionheart]

Please be precise when posting a question as the rgb values should be 225 not 255

Sub Test()
    Dim r As Long, m As Long, cnt As Long
    Application.ScreenUpdating = False
    m = Cells(Rows.Count, 1).End(xlUp).Row
    For r = m To 2 Step -1
        If Cells(r, 1).Interior.Color = RGB(225, 225, 225) Or Cells(r, 1).Interior.Color = RGB(192, 192, 192) Or (Cells(r, 1).Value = "" And Cells(r, 2).Value = "") Then
            Cells(r, 1).Resize(1, 2).Delete Shift:=xlUp
            cnt = cnt + 1
        End If
    Next r
    Application.ScreenUpdating = True
    MsgBox "There Are " & cnt & " Rows Deleted", 64
End Sub

 

[القول المأثور]

جزيت خيراً أخي lionheart 

نعم اعتذر كتب الرقم بالخطأ، تم تعديله.

الكود يعمل بشكل صحيح، وعند تجربته لبيانات بها مئات الصفوف يعمل الكود ببطئ ويتطلب وقت أطول بكثيير ، هل يمكن تسريعه؟ في حالة كانت البيانات أكثر من ألف صف؟

[lionheart]

Maybe you can store the desired ranges to delete into one variable using union then at last delete the rows in one shot