انتقل إلى المحتوى الرئيسي

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

في بعض الأحيان ، تريد حذف الصف بأكمله إذا كانت الخلية تحتوي على صفر في 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
Hi Sheri,
The code works well in my case. Which Excel verson do you use?
This comment was minimized by the moderator on the site
Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
This comment was minimized by the moderator on the site
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).
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Hi,
its worked for me, thanks a lot.
if I have multiple sheets? how i can run the script 1 time for all the sheets?
This comment was minimized by the moderator on the site
thanks for the response, worked for me
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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...
This comment was minimized by the moderator on the site
This was a life saver!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations