Note: The other languages of the website are Google-translated. Back to English

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

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

احذف الصف إذا كانت الخلية تحتوي على صفر مع وظيفة التصفية في Excel
احذف الصف إذا كانت الخلية تحتوي على صفر مع VBA في Excel
احذف الصف إذا كانت الخلية تحتوي على صفر مع كوتولس ل إكسيل


احذف الصف إذا كانت الخلية تحتوي على صفر مع وظيفة التصفية في Excel

يمكنك استخدام وظيفة التصفية لتصفية جميع الصفوف بناءً على القيم الصفرية في عمود معين ، ثم حذف جميع الصفوف المرئية لاحقًا. الرجاء القيام بما يلي.

1. حدد خلايا العمود التي تحتوي على القيم الصفرية التي تريد حذف الصفوف بأكملها بناءً عليها ، ثم انقر فوق البيانات > تصفية. انظر لقطة الشاشة:

2. ثم يتم عرض سهم القائمة المنسدلة في الخلية الأولى للعمود المحدد ، انقر فوق السهم ، ثم حدد مرشحات الرقم > يساوي من القائمة المنسدلة.

doc حذف إذا كان صفر 1

3. في ال تصفية تلقائية مخصصة مربع الحوار ، أدخل الرقم 0 في مربع النص كما هو موضح أدناه ، ثم انقر فوق OK .

doc حذف إذا كان صفر 1

4. ثم يتم تصفية جميع الخلايا ذات القيمة الصفرية في هذا العمود المحدد. يرجى تحديد جميع الخلايا المرئية في نطاق التصفية والنقر بزر الماوس الأيمن عليها واختيار حذف الصفوف من قائمة النقر بزر الماوس الأيمن. وفي مربع المطالبة المنبثق ، انقر فوق OK زر. انظر لقطة الشاشة:

doc حذف إذا كان صفر 1

5. الآن يتم حذف جميع الصفوف المرئية. يمكنك النقر فوق البيانات > تصفية مرة أخرى لإظهار كافة البيانات بدون خلايا ذات قيمة صفرية. انظر لقطة الشاشة:

doc حذف إذا كان صفر 1


احذف جميع الصفوف بسهولة في حالة وجود قيم صفرية في نطاق معين في Excel:

كوتولس ل إكسيل حدد خلايا معينة تساعدك الأداة المساعدة على تحديد الصفوف بأكملها بسهولة في حالة وجود قيم صفرية في نطاق معين ، وبعد ذلك يمكنك حذف جميع الصفوف المحددة يدويًا دون أي أخطاء.
قم بتنزيله وجربه الآن! (30- درب مجاني ليوم واحد)


احذف الصف إذا كانت الخلية تحتوي على صفر مع VBA في Excel

سيوضح لك هذا القسم طريقة VBA لحذف جميع الصفوف في حالة وجود قيم صفرية في عمود معين في Excel.

1. صحافة ALT + F11 في نفس الوقت لعرض ملفات ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

فبا: احذف الصفوف بأكملها في حالة وجود قيمة صفرية في نطاق أعمدة معين في ورقة عمل

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng كـ Range Dim WorkRng كنطاق عند الخطأ ، استئناف التالي xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range"، xTitleId، WorkRng.Address، Type: = 8 ) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("0"، LookIn: = xlValues) إذا لم يكن Rng شيئًا ، فإن Rng.EntireRow.Delete End إذا كان التكرار بينما لا يكون Rng تطبيقًا .creenUpdating = True End Sub

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

doc حذف إذا كان صفر 1

ثم يتم حذف جميع الصفوف المستندة إلى القيم الصفرية في نطاق العمود المحدد على الفور.

doc حذف إذا كان صفر 1


احذف الصف إذا كانت الخلية تحتوي على صفر مع كوتولس ل إكسيل

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

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

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

2. في ال حدد خلايا معينة الحوار ، تحتاج إلى:

(1) حدد ملف الصف بأكمله الخيار في نوع التحديد والقسم الخاص به.

(شنومكس) حدد يساوي في الاول نوع خاص أو معين القائمة المنسدلة ، ثم أدخل الرقم 0 في مربع النص.

(3) انقر فوق OK .

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

doc حذف إذا كان صفر 1

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

doc حذف إذا كان صفر 1

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


احذف الصف إذا كانت الخلية تحتوي على صفر مع كوتولس ل إكسيل


مقالات ذات صلة:


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (15)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان هذا منقذًا للحياة !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كود VB الخاص بك لا يعمل. يقوم بحذف جميع الصفوف ذات الصفر في موضع العشرات. آمل ألا يستخدم أحد هذا بالفعل لأنهم سيحذفون البيانات ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بتعديل الكود أعلاه للعمل من أجلي. أردت حذف كل صف يحتوي على "حذف" في الصف C. Sub Delete_DeleteRows () Set WorkRng = Range ("C2: C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("Delete"، LookIn: = xlValues) إذا لم يكن Rng شيئًا ، فحينئذٍ Rng.EntireRow.Delete End If Loop while Not Rng ليس شيئًا Application.ScreenUpdating = True End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بتعديل الكود أدناه للعمل من أجلي. أدى هذا إلى حذف كل صف في العمود C يحتوي على "حذف" في خلية العمود C. Sub Delete_DeleteRows () Set WorkRng = Range ("C2: C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("حذف" ، LookIn: = xlValues) إذا لم يكن Rng لا شيء ثم Rng.EntireRow.Delete End If Loop while Not Rng لا شيء تطبيق .creenUpdating = True End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على الرد ، عملت معي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
لقد نجحت معي ، شكرًا جزيلاً.
إذا كان لدي أوراق متعددة؟ كيف يمكنني تشغيل البرنامج النصي 1 مرة لجميع الأوراق؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تم تعديله لهدف - شكرًا لك على المساعدة: Sub DeleteZeroRow () Dim Rng As Range Dim WorkRng كنطاق عند الخطأ ، استئناف التالي xTitleId = "" Application.Calculation = xlManual MsgBox "عيّن النطاق الذي تريد إزالة الكمية 0 غير المستخدمة صفوف من "Set WorkRng = Application.InputBox (" Range "، xTitleId،" FG93: FG500 "، النوع: = 8) Application.ScreenUpdating = False Sheets (" ENTRY "). حدد Do Set Rng = WorkRng.Find (" 0 "، LookIn: = xlValues) إذا لم يكن Rng لا شيء ، ثم Rng.EntireRow.Delete End إذا كانت التكرار بينما ليس Rng لا شيء للتطبيق .creenUpdating = True Range (" FF92 "). حدد Selection.End (xlDown). حدد MsgBox" تمت إزالته 0's ROWS من العمود FG - جارٍ الحساب الآن - يرجى الانتظار "Application.Calculation = xlAutomatic End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا أعزائي ، أحتاج إلى رمز لإخفاء الصفوف التي لها القيمة = 0 في العمود "N" في الورقة 1. ستتغير قيمة العمود "N" عند تحديث التفاصيل على الورقة 2. وهذا هو الوقت المناسب بحاجة لإلغاء إخفاء الصف. هل من الممكن القيام بذلك باستخدام صيغة Excel (بدون ماكرو وفلاتر Excel).
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا لم يعمل بالنسبة لي. لقد غيرت جميع القيم في العمود الذي اخترته والعمود المجاور إلى الأصفار. لا بد لي من أن تفعل شيئا خاطئا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا شيري ،
الكود يعمل بشكل جيد في حالتي. ما هو Excel verson الذي تستخدمه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال. لقد نشرت هذا منذ عامين ، لذا أعتقد أنني اكتشفت ذلك. ولكن شكرا على الرد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أدخل هذا في وحدة جديدة VB.
هذا مع InputBox لحذف الصف الذي يحتوي على تلك الكلمة.

السمة VB_Name = "FindDelRowByWord"
FindDelRow فرعي ()
تحديث بحلول20140616
خافت Rng كمدى
خافت WorkRng كنطاق
خافت xRep كسلسلة
على خطأ استئناف التالي
xTitleId = "أدوات ZOK"
تعيين WorkRng = Application.Selection
تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 8)
xRep = Application.InputBox ("كلمة لحذف الصف:" ، "أدوات ZOK" ، ، ، ، ، ، 2)
Application.ScreenUpdating = خطأ
Do
تعيين Rng = WorkRng.Find (xRep، LookIn: = xlValues)
إذا لم يكن Rng لا شيء إذن
Rng.EnireRow.Delete
إنهاء حالة
حلقة بينما لا Rng لا شيء
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كان لديك ورقة كبيرة ، وهناك صفوف تريد الاحتفاظ بها ، وصفوف أخرى تحتوي على كلمات رئيسية معينة وقم بحذفها؟ تعمل kutools من أجلي ولكن بالنسبة لكلمة رئيسية واحدة تحتوي على هذه الكلمة الرئيسية في العديد من الصفوف ، تم حذف الصفوف ، أريد فقط أن يكون لدي عدة كلمات رئيسية لأفعل الشيء نفسه؟ هل هذا يعمل مع الكود أعلاه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
يمكن لـ Kutools التعامل مع كلمتين رئيسيتين في نفس الوقت. تحتاج إلى تمكين الشرط الثاني باستخدام "And" أو "Or". آمل أن أتمكن من المساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Despues de utilizar المجموع الفرعي Como hacer para removeinar las filas involucradas que en el sub total es igual a 0؟
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL