كيفية حذف الصفوف الفارغة في Excel باستخدام VBA والصيغ و Power Query

  • شارك هذا
Michael Brown

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

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

    How NOT لإزالة الأسطر الفارغة في Excel

    هناك عدد قليل طرق مختلفة لحذف الأسطر الفارغة في Excel ، ولكن من المدهش أن العديد من الموارد عبر الإنترنت تلتزم بأكثرها خطورة ، وهي Find & amp؛ حدد & gt؛ انتقل إلى خاص & gt؛ الفراغات .

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

    تُظهر الصورة أدناه الجدول الأصلي على اليسار و الجدول الناتج على اليمين. وفي الجدول الناتج ، اختفت جميع الصفوف غير المكتملة ae ، حتى الصف 10 حيث كان التاريخ في العمود D مفقودًا فقط:

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

    مع إضافة Ultimate Suite إلى الشريط ، إليك كيف يمكنك حذف جميع الصفوف الفارغة في ورقة عمل:

    1. في علامة التبويب أدوات Ablebits ، في مجموعة تحويل ، انقر فوق حذف الفراغات & gt؛ صفوف فارغة :
    2. ستعلمك الوظيفة الإضافية أنه ستتم إزالة جميع الصفوف الفارغة من ورقة العمل النشطة وتطلب التأكيد. انقر فوق "موافق" ، وفي لحظة ، سيتم حذف جميع الصفوف الفارغة.

    كما هو موضح في لقطة الشاشة أدناه ، قمنا فقط بإزالة الأسطر الفارغة تمامًا التي لا تحتوي على خلية واحدة بها بيانات:

    للعثور على اكتشف المزيد من الميزات الرائعة المضمنة في Ultimate Suite for Excel ، فنحن نرحب بك لتنزيل إصدار تجريبي.

    أشكرك على القراءة وآمل أن أراك على مدونتنا الأسبوع المقبل!

    أدناه.

    كيفية إزالة الصفوف الفارغة في Excel باستخدام VBA

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

    ماكرو 1. احذف الأسطر الفارغة في نطاق محدد

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

    بخلاف الأسلوب السابق ، يحذف الماكرو سطرًا إذا كان الصف بأكمله فارغًا . يعتمد على دالة ورقة العمل CountA للحصول على عدد الخلايا غير الفارغة في كل سطر ، ثم يحذف الصفوف ذات العدد الصفري. التحديد إذا لم يكن (SourceRange لا شيء) ثم Application.ScreenUpdating = False For I = SourceRange.Rows.Count To 1 Step 1 Set EntireRow = SourceRange.Cells (I، 1) .EntireRow If Application.WorksheetFunction.CountA (EntireRow) = 0 ثم EntireRow.Delete End If Next Application.ScreenUpdating = True End If End Sub

    لمنح المستخدم فرصة حدد النطاق الهدف بعد تشغيل الماكرو ، استخدم هذا الرمز:

    عام Sub RemoveBlankLines () Dim SourceRange كنطاق خافت للصف بأكمله كنطاق عند الخطأ ، استئناف المجموعة التالية SourceRange = Application.InputBox (_"حدد نطاقًا:" ، "حذف الصفوف الفارغة" ، _ Application.Selection.Address ، النوع: = 8) إذا لم يكن (SourceRange لا شيء) ثم Application.ScreenUpdating = False For I = SourceRange.Rows.Count To 1 Step - 1 Set EntireRow = SourceRange.Cells (I، 1) .EntireRow If Application.WorksheetFunction.CountA (EntireRow) = 0 ثم EntireRow.Delete End If Next Application.ScreenUpdating = True End If End Sub

    عند التشغيل ، يظهر الماكرو في مربع الإدخال التالي ، حدد النطاق الهدف ، وانقر فوق موافق:

    في لحظة ، سيتم التخلص من جميع الأسطر الفارغة في النطاق المحدد وستتحول الأسطر المتبقية:

    ماكرو 2. احذف جميع الصفوف الفارغة في Excel

    لإزالة جميع الصفوف الفارغة في الورقة النشطة ، حدد الصف الأخير من النطاق المستخدم (أي الصف الذي يحتوي على الخلية الأخيرة مع البيانات) ، ثم انتقل لأعلى لحذف الأسطر التي يُرجع CountA صفرًا لها:

    Sub DeleteAllEmptyRows () Dim LastRowIndex As Integer Dim RowIndex As Integer Dim UsedRng as Range Set UsedRng = Activ eSheet.UsedRange LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count Application.ScreenUpdating = False For RowIndex = LastRowIndex To 1 Step -1 If Application.CountA (Rows (RowIndex)) = 0 ثم Rows (RowIndex). إذا كان Next RowIndex Application.ScreenUpdating = True End Sub

    الماكرو 3. احذف الصف إذا كانت الخلية فارغة

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

    يتحقق الرمز التالي العمود A من الفراغات. لحذف الصفوف بناءً على عمود آخر ، استبدل الحرف "A" بحرف مناسب.

    Sub DeleteRowIfCellBlank () On Error Resume Next Columns ("A") .SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub

    كـ a في الواقع ، يستخدم الماكرو ميزة الانتقال إلى خاص & gt ؛ الفراغات ، ويمكنك تحقيق نفس النتيجة عن طريق تنفيذ هذه الخطوات يدويًا.

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

    كيفية إزالة الأسطر الفارغة في Excel باستخدام VBA

    لحذف الصفوف الفارغة في Excel باستخدام ماكرو ، يمكنك إما إدراج رمز VBA في المصنف الخاص بك أو تشغيل ماكرو من نموذج المصنف الخاص بنا.

    إضافة ماكرو إلى المصنف الخاص بك

    لإدراج ماكرو في المصنف الخاص بك ، قم بتنفيذ الخطوات التالية:

    1. افتح ورقة العمل حيث تريد حذف الصفوف الفارغة.
    2. اضغط على Alt + F11 لفتح محرر Visual Basic.
    3. في الجزء الأيمن ، انقر بزر الماوس الأيمن ThisWorkbook ، ثم انقر فوق إدراج & gt؛ الوحدة النمطية .
    4. الصق الرمز في نافذة التعليمات البرمجية.
    5. اضغط F5 لتشغيل الماكرو.

    للحصول على إرشادات مفصلة خطوة بخطوة ، يرجى الاطلاع على كيفية إدراج واستخدام VBA في Excel.

    قم بتشغيل ماكرو من نموذج المصنف الخاص بنا

    تنزيل النموذج الخاص بنامصنف مع وحدات ماكرو لحذف صفوف فارغة وتشغيل أحد وحدات الماكرو التالية من هناك:

    DeleteBlankRows - يزيل الصفوف الفارغة في النطاق المحدد حاليًا.

    RemoveBlankLines - حذف الصفوف الفارغة والانتقال لأعلى في النطاق الذي تحدده بعد تشغيل الماكرو.

    DeleteAllEmptyRows - يحذف جميع الأسطر الفارغة على الورقة النشطة.

    DeleteRowIfCellBlank - حذف صف إذا كانت خلية في عمود معين فارغة.

    لتشغيل الماكرو في Excel ، قم بما يلي:

    1. افتح تم تنزيل المصنف وتمكين وحدات الماكرو إذا طُلب منك ذلك.
    2. افتح المصنف الخاص بك وانتقل إلى ورقة العمل التي تريدها.
    3. في ورقة العمل الخاصة بك ، اضغط على Alt + F8 ، وحدد الماكرو ، وانقر فوق تشغيل .

    صيغة لحذف الصفوف الفارغة في Excel

    في حالة رغبتك في رؤية ما تقوم بحذفه ، استخدم الصيغة التالية لتحديد الأسطر الفارغة:

    =IF(COUNTA(A2:D2)=0, "Blank", "Not blank")

    حيث A2 هو الأول و D2 آخر خلية مستخدمة من صف البيانات الأول.

    أدخل هذه الصيغة أ في E2 أو أي عمود فارغ آخر في الصف 2 ، واسحب مقبض التعبئة لنسخ الصيغة لأسفل.

    ونتيجة لذلك ، سيكون لديك "فارغ" في صفوف فارغة و "ليس فارغًا" في الصفوف التي تحتوي على خلية واحدة على الأقل تحتوي على بيانات:

    منطق الصيغة واضح: يمكنك عد الخلايا غير الفارغة بوظيفة COUNTA واستخدام العبارة IF لإرجاع "فارغ" للعدد الصفري ، و "ليس فارغًا" وإلا .

    فيفي الواقع ، يمكنك القيام بذلك بشكل جيد بدون IF:

    =COUNTA(A2:D2)=0

    في هذه الحالة ، سترجع الصيغة TRUE للأسطر الفارغة و FALSE للأسطر غير الفارغة.

    باستخدام الصيغة في مكانها ، قم بتنفيذ هذه الخطوات لحذف الأسطر الفارغة:

    1. حدد أي خلية في صف الرأس وانقر فوق Sort & amp؛ التصفية & gt؛ التصفية في علامة التبويب الصفحة الرئيسية ، في التنسيقات سيؤدي هذا إلى إضافة أسهم التصفية المنسدلة إلى جميع خلايا الرأس.
    2. انقر فوق السهم الموجود في رأس عمود الصيغة ، وقم بإلغاء تحديد (تحديد الكل) ، وحدد فارغ وانقر فوق موافق :
    3. حدد جميع الصفوف التي تمت تصفيتها . لهذا ، انقر فوق الخلية الأولى من الصف الأول الذي تمت تصفيته واضغط على Ctrl + Shift + End لتوسيع التحديد إلى الخلية الأخيرة من آخر صف تمت تصفيته.
    4. انقر بزر الماوس الأيمن فوق التحديد ، واختر احذف الصف من قائمة السياق ، ثم أكد أنك تريد حقًا حذف الصفوف بأكملها:
    5. قم بإزالة عامل التصفية بالضغط على Ctrl + Shift + L. أو انقر فوق الصفحة الرئيسية علامة التبويب & gt؛ فرز & amp؛ تصفية & gt؛ تصفية .
    6. احذف العمود الذي يحتوي على الصيغة لأنك لم تعد بحاجة إليه.

    هذا كل شيء! نتيجة لذلك ، لدينا جدول نظيف بدون أسطر فارغة ، ولكن تم الاحتفاظ بجميع المعلومات:

    نصيحة. بدلاً من حذف الأسطر الفارغة ، يمكنك نسخ الصفوف غير الفارغة إلى مكان آخر. للقيام بذلك ، قم بتصفية الصفوف "ليست فارغة" ، وحددها واضغط على Ctrl + C لنسخها. ثم قم بالتبديل إلىورقة أخرى ، حدد الخلية العلوية اليسرى من النطاق الوجهة واضغط على Ctrl + V للصق.

    كيفية إزالة الأسطر الفارغة في Excel باستخدام Power Query

    في Excel 2016 و Excel 2019 ، هناك طريقة أخرى لحذف الصفوف الفارغة - باستخدام ميزة Power Query. في Excel 2010 و Excel 2013 ، يمكن تنزيله كوظيفة إضافية.

    ملاحظة مهمة! تعمل هذه الطريقة مع التحذير التالي: يقوم Power Query بتحويل البيانات المصدر إلى جدول Excel وتغيير التنسيق مثل لون التعبئة والحدود وبعض تنسيقات الأرقام. إذا كان تنسيق بياناتك الأصلية مهمًا بالنسبة لك ، فمن الأفضل اختيار طريقة أخرى لإزالة الصفوف الفارغة في Excel.

    1. حدد النطاق الذي تريد حذف الأسطر الفارغة فيه.
    2. انتقل إلى علامة التبويب البيانات & gt؛ احصل على & amp؛ قم بتحويل مجموعة وانقر فوق من جدول / نطاق . سيؤدي هذا إلى تحميل الجدول الخاص بك إلى محرر Power Query.
    3. في علامة التبويب الصفحة الرئيسية في محرر Power Query ، انقر فوق إزالة الصفوف & gt؛ إزالة الصفوف الفارغة .
    4. انقر فوق إغلاق & amp؛ تحميل سيؤدي هذا إلى تحميل الجدول الناتج إلى ورقة عمل جديدة وإغلاق محرر الاستعلام.

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

    كيفية حذف الصفوف إذاخلية في عمود معين فارغة

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

    كمثال ، دعنا نزيل جميع الصفوف التي تكون فيها الخلية في العمود A فارغة :

    1. حدد عمود المفتاح ، العمود A في حالتنا.
    2. في علامة التبويب الصفحة الرئيسية ، انقر فوق Find & amp؛ حدد & gt؛ انتقل إلى خاص . أو اضغط على F5 وانقر فوق الزر خاص… .
    3. في مربع الحوار الانتقال إلى خاص ، حدد فراغات وانقر فوق موافق . سيؤدي هذا إلى تحديد الخلايا الفارغة في النطاق المستخدم في العمود A.
    4. انقر بزر الماوس الأيمن فوق أي خلية محددة واختر حذف ... من قائمة السياق.
    5. في مربع الحوار حذف ، اختر الصف بالكامل وانقر فوق موافق.

    تم! الصفوف التي لا تحتوي على قيمة في العمود A لم تعد موجودة:

    يمكن تحقيق نفس النتيجة عن طريق تصفية الفراغات في عمود المفتاح.

    كيفية إزالة الأسطر الإضافية الموجودة أسفل البيانات

    في بعض الأحيان ، قد تحتوي الصفوف التي تبدو فارغة تمامًا على بعض التنسيقات أو الأحرف غير القابلة للطباعة. للتحقق مما إذا كانت آخر خلية بها بيانات هي بالفعل آخر خلية مستخدمة في ورقة العمل ، اضغط على Ctrl + End. إذا أخذك هذا إلى صف فارغ بصريًا أسفل بياناتك ، من حيث Excel ، فهذا الصف ليس فارغًا. لإزالة مثل هذه الصفوف ، قم بعمل ملفالتالي:

    1. انقر فوق رأس أول صف فارغ أسفل بياناتك لتحديده.
    2. اضغط على Ctrl + Shift + End. سيؤدي هذا إلى تحديد جميع الأسطر التي تحتوي على أي شيء بما في ذلك التنسيقات والمسافات والأحرف غير المطبوعة.
    3. انقر بزر الماوس الأيمن فوق التحديد واختر حذف ... & gt؛ الصف بالكامل.

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

    1. حدد الصف الموجود أسفل الصف الأخير بالبيانات بالنقر فوق رأسه.
    2. اضغط على Ctrl + Shift + سهم لأسفل لتوسيع التحديد إلى الصف الأخير في الورقة .
    3. اضغط Ctrl + 9 لإخفاء الصفوف المحددة. أو انقر بزر الماوس الأيمن فوق التحديد ، ثم انقر فوق إخفاء .

    لإظهار الصفوف ، اضغط على Ctrl + A لتحديد الورقة بأكملها ، ثم اضغط على Ctrl + Shift + 9 لإظهار كل الخطوط مرة أخرى.

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

    أسرع طريقة لإزالة الصفوف الفارغة في Excel

    عند قراءة الأمثلة السابقة ، أليس كذلك أشعر وكأننا كنا نستخدم مطرقة لكسر الجوز؟ هنا ، في Ablebits ، نحن نفضل عدم القيام بذلك

    مايكل براون متحمس للتكنولوجيا ولديه شغف لتبسيط العمليات المعقدة باستخدام أدوات البرمجيات. مع أكثر من عشر سنوات من الخبرة في صناعة التكنولوجيا ، صقل مهاراته في Microsoft Excel و Outlook ، بالإضافة إلى جداول بيانات Google والمستندات. مدونة مايكل مكرسة لمشاركة معرفته وخبرته مع الآخرين ، وتقديم نصائح ودروس تعليمية سهلة المتابعة لتحسين الإنتاجية والكفاءة. سواء كنت محترفًا متمرسًا أو مبتدئًا ، تقدم مدونة مايكل رؤى قيمة ونصائح عملية للحصول على أقصى استفادة من أدوات البرامج الأساسية هذه.