هناك مشكلة فى تحميل الملف
ممكن تجرب هذا الكود
Option Explicit
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