كيف تطبع الصفوف أو الخلايا التي تحتوي على بيانات فقط في Excel؟

ستقدّم هذه الطريقة نصًّا برمجيًّا (VBA) يُمكّنك من طباعة الصفوف التي تحتوي على بيانات فقط ضمن نطاق معيّن في Excel بسرعة. يُرجى اتباع الخطوات التالية:

1. اضغط مفاتيحAlt + F11 في آنٍ واحد لفتح نافذة Microsoft Visual Basic for Applications.

2. انقرإدراج > وحدة نمطية (Module)، ثم انسخ والصق كود VBA التالي في نافذة الوحدة النمطية الجديدة المفتوحة.

VBA: طباعة الصفوف التي تحتوي على بيانات فقط في Excel

Sub PrintSummary()
Dim xRg As Range, xRg1 As Range, xCell As Range
Dim xSht As Worksheet
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range to print:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can't select multiple selections", , "Kutools for Excel"
Exit Sub
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set xSht = Worksheets.Add(After:=Sheets(Sheets.Count))
xRg.Copy xSht.Range("A1")
Set xRg1 = xSht.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg1.Columns(1).Cells
If Application.WorksheetFunction.CountA(xCell.EntireRow) = 0 Then
xCell.EntireRow.Hidden = True
End If
Next
xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
xSht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. اضغط مفتاحF5 أو انقر زرتشغيل (Run)لتشغيل هذا النص البرمجي (VBA).

4. في مربع حوار Kutools لـ Excel المفتوح، حدّد النطاق الذي تريد تجاهل الصفوف الفارغة فيه وطباعة الصفوف التي تحتوي على بيانات فقط، ثم انقر زرموافق (OK).

بعد ذلك، يُطبَع النطاق المحدد فورًا مع تجاهل جميع الصفوف الفارغة الموجودة فيه.

ملاحظة: لا يدعم هذا النص البرمجي (VBA) الطباعة الدفعية لعدة تحديدات مع تجاهل الصفوف الفارغة.

تقدم هذه الطريقة أداةحذف الصفوف الفارغةمن Kutools لـ Excel لحذف جميع الصفوف الفارغة في ورقة العمل النشطة أو في النطاق المحدد، ثم طباعة الصفوف التي تحتوي على بيانات فقط في Excel. يُرجى اتباع الخطوات التالية:

1. انتقل إلى ورقة العمل التي ستطبع منها الصفوف التي تحتوي على بيانات فقط، ثم انقرKutools > حذف (Delete) > حذف الصفوف الفارغة > ورقة العمل النشطة.

ملاحظة: لطباعة الصفوف التي تحتوي على بيانات فقط ضمن نطاق محدود، ابدأ بتحديد (يرجى التحديد) هذا النطاق، ثم انقرKutools > حذف (Delete) > حذف الصفوف الفارغة > النطاق المحدد.

2. سيظهر مربع حوار Kutools لـ Excel ويعرض عدد الصفوف الفارغة التي تم حذفها. انقر زرموافق (OK)لإغلاقه.

والآن سترى أن جميع الصفوف الفارغة قد حُذفت من ورقة العمل النشطة أو من النطاق المحدد. انظر لقطة الشاشة:

3. انقرملف (File)(أو)زر Office) > طباعة (Print)لطباعة الصفوف التي تحتوي على بيانات فقط في ورقة العمل النشطة أو تحديد النطاق.

قد ترغب أحيانًا في طباعة الخلايا التي تحتوي على بيانات فقط، مع تجاهل جميع الخلايا الفارغة في Excel. وتقدّم هذه الطريقة أداة Kutools لـ Excel تحديد الخلايا غير الفارغةوأداةمعالج طباعة مجموعات متعددةلطباعة الخلايا التي تحتوي على بيانات فقط ضمن نطاق معيّن في Excel.

1. حدد النطاق الذي تريد طباعة الخلايا التي تحتوي على بيانات منه فقط، ثم انقرKutools > تحديد (Select) > تحديد الخلايا غير الفارغة.

2. يظهر مربع حوار Kutools لـ Excel ويعرض عدد الخلايا التي تحتوي على بيانات والتي تم تحديدها. انقر زرموافق (OK)لإغلاقه.

3. استمر في تحديد هذه الخلايا غير الفارغة، ثم انقرEnterprise > الطباعة (Printing) > معالج طباعة مجموعات متعددة. انظر لقطة الشاشة:

4. في مربع حوار معالج طباعة مجموعات متعددة المفتوح، ستجد أن جميع الخلايا غير الفارغة المحددة قد أُدرجت بالفعل في قائمةالنطاقات المراد طباعتها (Ranges to print). يُرجى النقر على زرإنهاء (Finish).

5. الآن، تم نسخ جميع الخلايا المحددة غير الفارغة ولصقها كصور مرتبطة في ورقة عمل جديدة. يُرجى النقر علىملف (File)(أو)زر Office) > طباعة (Print)لطباعة هذه الخلايا التي تحتوي على بيانات.

طباعة كل صف/خلية في صفحة منفصلة في Excel

عرض منطقة الطباعة فقط في ورقة عمل في Excel

منطقة الطباعة، والتحديد، ومصنف Excel بالكامل