كود حذف تنسيق الصفوف الاخيرة الفارغة

[Alaaq3]

كود حذف تنسيق الصفوف الاخيرة الفارغة

ClearFormats 
Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeBlanks).ClearFormats 

هذا الكود بحذف تنسيق الخلايا الفارغة اريد التعديل عليه ليقوم بحذف تنسيق الصفوف الفارغة بدل الخلايا الفارغة

[lionheart]

Sub Test()
    Dim m As Long
    m = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Rows(m & ":" & Rows.Count).Clear
End Sub

 

[Alaaq3]

احسنت اخي العزيز . جزاك الله الف خير