نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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

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


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

قوي> Kutools ل Excel حدد خلايا محددة تساعدك الأداة المساعدة على تحديد الصفوف بأكملها بسهولة إذا كانت القيم الصفرية موجودة في نطاق معين ، ثم يمكنك حذف جميع الصفوف المحددة يدويًا دون أي أخطاء. قم بتنزيل الدرب المجاني الكامل ل 60-day من Kutools for Excel الآن!

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تنزيل النسخة التجريبية المجانية الآن!

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

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

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

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

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

دوك حذف إذا صفر زنومكس

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

دوك حذف إذا صفر زنومكس

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

دوك حذف إذا صفر زنومكس

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

دوك حذف إذا صفر زنومكس


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

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

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

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

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

سوبليبيكسنومكس () 'أوبديتبيسنومكس ديم رنغ كما رانج ديم رنغ كما رانج أون إرور ريسوم التالي زتيتليد = "كوتولزفوريكسيل" تعيين وركرنغ = Application.Selection تعيين وركرنغ = Application.InputBox ("رانج"، زتيتليد، WorkRng.Address، تايب: = شنومك ) application.ScreenUpdating = كاذبة هل مجموعة رنغ = وركنغ. فيند ("شنومك"، لوكين: = زلفالويس) إذا لم رنغ هو لا شيء ثم Rng.EntireRow.Delete نهاية إذا حلقة بينما لا رنغ لا شيء application.ScreenUpdating = صحيح نهاية الفرعية

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

دوك حذف إذا صفر زنومكس

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

دوك حذف إذا صفر زنومكس


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

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

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

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

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

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

(شنومكس) انقر فوق OK .

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

دوك حذف إذا صفر زنومكس

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

دوك حذف إذا صفر زنومكس

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


تبويب أوفيس - الاستعراض المبوب ، وتحرير ، وإدارة المصنفات في Excel:

يقوم Office Tab بدمج الواجهة المبوبة كما تظهر في متصفحات الويب مثل Google Chrome والإصدارات الجديدة من Internet Explorer و Firefox إلى Microsoft Excel. وستكون أداة لتوفير الوقت ولا يمكن استبدالها في عملك. انظر أدناه العرض التوضيحي:

انقر على نسخة تجريبية مجانية من تبويب أوفيس!

تبويب Office لـ Excel


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

كوتولس ل إكسيل يتضمن أكثر من أدوات إكسوم إكسيل مفيد. مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تنزيل النسخة التجريبية المجانية الآن!


المواد النسبية:


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 8 months ago
    Insert this in VB new module.
    This is with InputBox to delete row which contains that word.

    Attribute VB_Name = "FindDelRowByWord"
    Sub FindDelRow()
    'Updateby20140616
    Dim Rng As Range
    Dim WorkRng As Range
    Dim xRep As String
    On Error Resume Next
    xTitleId = "ZOK Tools"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    xRep = Application.InputBox("word to delete Row:", "ZOK Tools", , , , , 2)
    Application.ScreenUpdating = False
    Do
    Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
    If Not Rng Is Nothing Then
    Rng.EntireRow.Delete
    End If
    Loop While Not Rng Is Nothing
    Application.ScreenUpdating = True
    End Sub
    • To post as a guest, your comment is unpublished.
      AndrewRosales · 8 months ago
      WHAT IF you have a big sheet, and there are rows you want to keep, and others rows that contain certain key words and delete those? the kutools work for me but for one key word that many rows have that key word, the rows were deleted, i just want to have multiple key words to do the same? does this work for the code above?
      • To post as a guest, your comment is unpublished.
        crystal · 8 months ago
        Good Day,
        Kutools can deal with two key words at the same time. You need to enable its second condition with "And" or "Or". Hope I can help.
  • To post as a guest, your comment is unpublished.
    Sheri · 2 years ago
    This didn't work for me. It changed all values in my chosen column and the adjacent column to zeros. I must be doing something wrong!
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Hi Sheri,
      The code works well in my case. Which Excel verson do you use?
      • To post as a guest, your comment is unpublished.
        Sheri Dohm · 8 months ago
        Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
  • To post as a guest, your comment is unpublished.
    R. Arunkumar · 3 years ago
    Hi dears ,

    I need a code to hide the rows which have the value=0 on the column "N" in the sheet 1. The value of the column "N" will change when update the details on the Sheet 2.
    that's the time need to un-hide the row. is this possible to do this with Excel formula(without macro and Excel Filters).
  • To post as a guest, your comment is unpublished.
    J Murphy · 3 years ago
    modified for my purpose--thank you for your help:
    Sub DeleteZeroRow()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = ""
    Application.Calculation = xlManual
    MsgBox "Set the range you want to remove the unused 0 quantity rows from"
    Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8)
    Application.ScreenUpdating = False
    Sheets("ENTRY").Select
    Do
    Set Rng = WorkRng.Find("0", LookIn:=xlValues)
    If Not Rng Is Nothing Then
    Rng.EntireRow.Delete
    End If
    Loop While Not Rng Is Nothing
    Application.ScreenUpdating = True
    Range("FF92").Select
    Selection.End(xlDown).Select
    MsgBox "Removed 0's ROWS from column FG--calculating now--please wait"
    Application.Calculation = xlAutomatic
    End Sub
  • To post as a guest, your comment is unpublished.
    Andrew · 4 years ago
    I modified the below code to work for me. This deleted every row in column C that had "Delete" in the cell of column C.

    Sub Delete_DeleteRows()

    Set WorkRng = Range("C2:C12000")

    Application.ScreenUpdating = False

    Do

    Set Rng = WorkRng.Find("Delete", LookIn:=xlValues)
    If Not Rng Is Nothing Then
    Rng.EntireRow.Delete
    End If

    Loop While Not Rng Is Nothing
    Application.ScreenUpdating = True

    End Sub
  • To post as a guest, your comment is unpublished.
    Andrew · 4 years ago
    I modified the above code to work for me. I wanted to delete every row that had "Delete" in row C.

    Sub Delete_DeleteRows()

    Set WorkRng = Range("C2:C12000")

    Application.ScreenUpdating = False

    Do

    Set Rng = WorkRng.Find("Delete", LookIn:=xlValues)
    If Not Rng Is Nothing Then
    Rng.EntireRow.Delete
    End If

    Loop While Not Rng Is Nothing
    Application.ScreenUpdating = True

    End Sub
  • To post as a guest, your comment is unpublished.
    Scott · 4 years ago
    Your VB code doesn't work. It deletes all rows with a Zero in the 10s position. I hope no one actually uses this as they will delete data...
  • To post as a guest, your comment is unpublished.
    Tom B · 4 years ago
    This was a life saver!!