4 طرق سهلة لإزالة صفوف متعددة فارغة أو خالية بسرعة في Excel

إزالة الصفوف الفارغة المتعددة في Excel أمر ضروري عند تنظيف البيانات قبل التحليل أو التقارير أو العرض. يمكن أن تؤدي الصفوف الفارغة إلى تعطيل سلامة البيانات، وتعقيد الحسابات، وإخفاء الأفكار المهمة. يقدم هذا الدليل أربع طرق مباشرة للتخلص من هذه المساحات الفارغة بكفاءة، مما يضمن استمرارية بياناتك وسهولة إدارتها.

• إزالة الصفوف الفارغة باستخدام أمر الانتقال إلى الخاص (4 خطوات)
• إزالة الصفوف الفارغة بسهولة في النطاق/ورقة العمل/المصنف باستخدام Kutools (خطوة واحدة)
• إزالة الصفوف الفارغة باستخدام كود VBA (4 خطوات)
• إزالة الصفوف الفارغة باستخدام عمود المساعدة ووظيفة التصفية (7 خطوات)
• تحميل ملف العينة

الآن يرجى اتباع الخطوات أدناه لإزالة الصفوف الفارغة باستخدام ميزة "الانتقال إلى الخاص":

1. حدد النطاق الذي تريد إزالة الصفوف الفارغة منه، انقر فوق علامة التبويب "الرئيسية"، ثم في مجموعة "تحرير"، انقر فوق "بحث واختيار" > "الانتقال إلى الخاص".

2. في مربع الحوار "الانتقال إلى الخاص"، قم بتحديد خيار "الخلايا الفارغة".

3. انقر فوق "موافق"، الآن تم تحديد جميع الخلايا الفارغة في التحديد.

4. انقر فوق علامة التبويب "الرئيسية"، في مجموعة "الخلايا"، انقر فوق "حذف" > "حذف صفوف الورقة".

الآن تم إزالة الصفوف التي تحتوي على خلايا فارغة.

إذا كنت بحاجة إلى طريقة سريعة وخالية من الأخطاء لإزالة جميع الصفوف الفارغة من نطاق محدد، ورقة العمل النشطة، ورقة العمل المحددة، أو المصنف بالكامل، ففكر في استخدام أداة "حذف الصفوف الفارغة" من "Kutools لـ Excel". تبسط هذه الأداة المهمة، مما يتيح لك التخلص من الصفوف الفارغة بنقرة واحدة فقط، وبالتالي تجنب استخدام أساليب أكثر تعقيدًا.

انقر فوق "Kutools" > "حذف" > "حذف الصفوف الفارغة"، ثم في القائمة الفرعية المنسدلة، اختر العملية التي تحتاجها.

1. اضغط على مفتاح "Alt" + "F11" لتمكين نافذة "Microsoft Visual Basic for Applications".

2. انقر فوق "إدراج" > "وحدة" لإنشاء نص "وحدة" جديد، انسخ والصق الكود أدناه في البرنامج النصي.

VBA: إزالة الصفوف الفارغة

Sub DeleteBlankRows()
'Update 20190107
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRows = WorkRng.Rows.Count
Application.ScreenUpdating = False
For I = xRows To 1 Step -1
    If Application.WorksheetFunction.CountA(WorkRng.Rows(I)) = 0 Then
        WorkRng.Rows(I).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
    End If
Next
Application.ScreenUpdating = True
End Sub

3. اضغط على مفتاح "F5" لتشغيل الكود، ثم حدد النطاق الذي تستخدمه لإزالة الصفوف الفارغة في مربع الحوار المنبثق "KutoolsforExcel".

4. انقر فوق "موافق". الآن تم إزالة الصفوف الفارغة في التحديد.

1. أدخل عمودًا واحدًا قبل نطاق بياناتك، خذ إدراج العمود A كمثال، ثم اكتب الصيغة التالية في A3 لدمج البيانات في الصف الثالث، انظر لقطة الشاشة:

=B3&C3&D3

تلميح: إذا كانت بياناتك تمتد عبر العمود B3 إلى العمود N، قم بتعديل الصيغة إلى =B3&C3&D3&E3&…&N3.

2. ثم املأ الصيغة في الخلايا عن طريق سحب مقبض التعبئة التلقائية لأسفل.

3. ثم انقر فوق "بيانات" > "تصفية".

4. ثم انقر فوق "رمز التصفية" في عمود المساعدة، وتحقق من خيار "فارغ" فقط في القائمة المنسدلة. انظر لقطة الشاشة:

5. انقر فوق "موافق"، تم تصفيّة جميع الصفوف الفارغة.

6. حدد الصفوف المصفاة، انقر فوق "الرئيسية" > "حذف" > "حذف صفوف الورقة" لإزالة الصفوف الفارغة.

7. ثم انقر فوق "بيانات" > "تصفية" مرة أخرى لإلغاء تفعيل وظيفة "تصفية".

انقر لتنزيل ملف العينة