السلام عليكم
تفضل أخي المرفق والكود
طارق
Sub Button1_Click()
a = Selection.Columns.Count
b = Selection.Rows.Count
ActiveCell.Select
For j = 1 To b
x = 0
For i = 1 To a
If ActiveCell.Interior.Pattern = xlNone Then x = x + 1
ActiveCell.Offset(0, 1).Select
Next i
If x = a Then ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(1, -a).Select
Next j
End Sub
Filter_01.rar