حذف جميع الصفوف مع الأصفار في إكسيل: طرق فعالة

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

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

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

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

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

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

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

1. الطريقة 1: تصفية البيانات
2. الطريقة 2: باستخدام وظيفة الحذف
3. الطريقة 3: استخدام وحدات الماكرو فبا

الطريقة 1: تصفية البيانات

للقيام بذلك:

1. حدد جميع البيانات في الجدول الذي تريد حذف الصفوف التي تحتوي على أصفار.
2. على شريط الأدوات ، حدد قسم" البيانات "وانقر على زر" تصفية".
3. سيظهر سهم في رأس كل عمود. انقر فوق السهم الموجود في العمود الذي يحتوي على البيانات وحدد "تصفية حسب القيمة".
4. في النافذة التي تظهر ، حدد "يساوي" ، ثم أدخل القيمة"0".
5. انقر فوق الزر" موافق " وسيتم إخفاء جميع الأسطر التي تكون فيها جميع القيم صفرا.

لحذف الخطوط المخفية ، تحتاج إلى:

1. حدد العمود الذي يحتوي على البيانات وحدد" رأس " من قائمة السياق.
2. على شريط الأدوات ، حدد" البيانات "، ثم" تصفية "ومرة أخرى"تصفية واضحة".
3. سيتم حذف الصفوف المخفية وسيتم تحديث الجدول.

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

الطريقة 2: استخدام وظيفة الحذف

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

= إذا (أ1 = 0 ، صواب ، خطأ)

بعد إضافة عمود مساعد ، يمكنك تطبيق عامل تصفية على عمود بقيم صواب/خطأ وترك الصفوف فقط بالقيمة خطأ ، أي الصفوف التي لا تحتوي على أصفار.

الآن حدد نطاق البيانات بالكامل ، بما في ذلك العمود الإضافي ، وانقر بزر الماوس الأيمن. في قائمة السياق ، حدد خيار" حذف "ثم"قص الخطوط".

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

بعد اكتمال الحذف ، يمكنك حذف العمود الإضافي إذا لم تعد هناك حاجة إليه.

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

الطريقة 3: استخدام وحدات الماكرو فبا

لحذف خطوط مع الأصفار باستخدام وحدات الماكرو فبا:

1. افتح ملف إكسيل الذي تريد حذف الصفوف مع الأصفار.
2. Нажмите ALT + F11 — это откроет редактор VBA.
3. Выберите корневой проект VBA (Microsoft Excel Objects) в окне «Project Explorer».
4. Щелкните правой кнопкой мыши на нем и выберите «Вставить» -> «Модуль».
5. В открытом окне кода VBA вставьте следующий код:

Sub DeleteRowsWithZeros()

Dim rng As Range, cell As Range, delRange As Range

Set rng = ThisWorkbook.ActiveSheet.UsedRange

For Each cell In rng