تصفية الحقل او الصف الذي يحتوي على صفر

[مصطفى العراقي1988]

 

السلام عليكم ورحمة الله وبركاته 

هل توجد طريقة لتصفية الصف الذي يحتوي على صفر 

بحيث يقوم بحذف الصف كامل القيم ويكتفي بالصف الذي يحتوي احد صفوفه على رقم صفر 

يوجد ملف مرفق ..

والسلام عليكم ورحمة الله وبركاته 

ملف.xlsx

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته  

ربما هدا ما تقصد 

Sub test()
  Dim i As Long, lRow As Long
  lRow = Cells(Rows.Count, "A").End(xlUp).Row
  With Application
  .ScreenUpdating = False
  For i = lRow To 2 Step -1
    If IsError(.Match(0, Range("A" & i & ":D" & i), 0)) Then
      Rows(i).EntireRow.Delete
    End If
  Next
  .ScreenUpdating = True
  End With
End Sub

 

ملف.xlsb

[مصطفى العراقي1988]

شكرا جزيلا لك استاذ