9-كود اظهار جميع الصفوف المخفية الذى تحتوى على بيانات فقط بضغط زر مع تثبيت الكود فى كل شيتات الاكسل.

[@QuantitiesSurveying]

الكود المستخدم فى الفيديو Sub UnhideRowsWithData() Dim ws As Worksheet Dim row As Long Dim lastCol As Long Set ws = ActiveSheet lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column For row = 1 To ws.Rows.Count If ws.Rows(row).Hidden = True Then If Application.WorksheetFunction.CountA(ws.Range(ws.Cells(row, 1), ws.Cells(row, lastCol))) > 0 Then ws.Rows(row).Hidden = False End If End If Next row End Sub