إخفاء كل الصفوف والأعمدة الفارغة Hide All Empty Rows And Columns

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

أقدم لكم كود يقوم بإخفاء كافة الصفوف والأعمدة الفارغة.

بفرض أن لدينا في ورقة العمل أعمدة وصفوف فارغة وهذا أمر وارد ، وأردت إخفاء كل الصفوف والأعمدة بأسرع وقت ، وهذه صورة من الملف المرفق توضح وجود بعض الأعمدة والصفوف الفارغة في النطاق المستخدم ، كما يتم إخفاء الصفوف والأعمدة خارج النطاق المستخدم أيضاً.

إليكم الكود الذي يؤدي المهمة المطلوبة في لمح البصر :

Sub HideEmptyRowsAndColumns()
    Dim X As Long, LR As Long
    
    With Application
        .ScreenUpdating = False
            Columns.Hidden = False: Columns.Hidden = True

            For X = 1 To Columns.Count
                If .WorksheetFunction.CountA(Columns(X)) > 0 Then Columns(X).Hidden = False
            Next X
            
            LR = Cells.SpecialCells(xlCellTypeLastCell).Row
            Rows(LR + 1 & ":" & Rows.Count).Hidden = True
            
            For X = 1 To LR
                If .WorksheetFunction.CountA(Rows(X)) = 0 Then Rows(X).Hidden = True
            Next X
            
            Application.Goto Range("A1"), True
        .ScreenUpdating = True
    End With
End Sub

لتنفيذ الكود قم بالضغط على Alt + F8 من لوحة المفاتيح ثم اختر الإجراء الفرعي المسمى HideEmptyRowsAndColumns ثم انقر الأمر Run.

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء