كيفية إزالة الصفوف بناءً على قيمة الخلية في إكسيل؟
لحذف صفوف متعددة أو إزالتها بسرعة استنادًا إلى قيمة الخلية في Excel ، قد تحتاج إلى تحديد تلك الصفوف بأكملها التي تحتوي على قيمة خلية محددة أولاً ، ثم الانتقال لإزالتها. يبدو أنه لا توجد طريقة سريعة لحذف الصفوف بناءً على قيمة الخلية ولكن باستخدام رمز VBA. فيما يلي بعض الحيل السريعة لمساعدتك.
- قم بإزالة الصفوف بناءً على قيمة خلية واحدة باستخدام وظيفة البحث والاستبدال
- قم بإزالة الصفوف بناءً على قيمة خلية واحدة برمز VBA
- قم بإزالة الصفوف بناءً على قيمة خلية واحدة أو اثنتين
- قم بإزالة الصفوف بناءً على قيم خلايا متعددة
قم بإزالة الصفوف بناءً على قيمة الخلية باستخدام ميزة البحث والاستبدال
في Excel ، يمكنك تطبيق ميزة البحث والاستبدال القوية لإزالة الصفوف بناءً على قيمة خلية معينة بسهولة. الرجاء القيام بما يلي:
1. حدد النطاق الذي ستزيل فيه الصفوف بناءً على قيمة خلية معينة ، وافتح مربع الحوار "بحث واستبدال" بالضغط على Ctrl + F مفاتيح في نفس الوقت.
2. في مربع الحوار Find and Replace ، يرجى كتابة قيمة خلية معينة (في حالتنا ، نقوم بإدخال سو) داخل ال Find what مربع ، وانقر فوق Find All زر. انظر لقطة الشاشة الأولى أدناه:
3. حدد جميع نتائج البحث أسفل مربع الحوار "بحث واستبدال" ، وأغلق مربع الحوار هذا. (ملاحظات: يمكنك تحديد إحدى نتائج البحث ، ثم Ctrl + A مفاتيح لتحديد جميع النتائج التي تم العثور عليها. انظر لقطة الشاشة الثانية أعلاه).
وبعد ذلك يمكنك أن ترى تم تحديد جميع الخلايا التي تحتوي على قيمة معينة.
4. انتقل إلى النقر بزر الماوس الأيمن فوق الخلايا المحددة وحدد ملف Delete من قائمة النقر بزر الماوس الأيمن. ثم تحقق من ملف Entire row الخيار في مربع الحوار المنبثق حذف ، وانقر فوق OK زر. سترى الآن إزالة جميع الخلايا التي تحتوي على قيمة معينة. انظر لقطات أدناه:
وبعد ذلك تم حذف صفوف كاملة بناءً على قيمة معينة بالفعل.
قم بإزالة الصفوف بناءً على قيمة الخلية برمز VBA
باستخدام رمز فبا التالي ، يمكنك حذف الصفوف ذات قيمة خلية معينة بسرعة ، يرجى اتباع الخطوات التالية:
1. اضغط على Alt + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic for applications نافذة او شباك،
2. انقر Insert > Module، وأدخل الكود التالي في الوحدة النمطية:
فبا: قم بإزالة الصفوف بأكملها بناءً على قيمة الخلية
Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
If rng.Value = DeleteStr Then
If DeleteRng Is Nothing Then
Set DeleteRng = rng
Else
Set DeleteRng = Application.Union(DeleteRng, rng)
Set DeleteRng = DeleteRng.EntireRow
End If
End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
Set DeleteRng = xWSh.Range(xArr(xF))
DeleteRng.Delete
Next
End Sub
3. ثم انقر فوق Run زر لتشغيل الكود.
4. في مربع الحوار المنبثق ، يرجى تحديد النطاق الذي ستزيل فيه الصفوف بناءً على قيمة معينة ، وانقر فوق OK .
5. في مربع حوار آخر ، يرجى كتابة القيمة المعينة التي ستزيل الصفوف بناءً عليها ، والنقر فوق OK زر. انظر لقطة الشاشة:
وبعد ذلك سترى تم حذف صفوف كاملة بناءً على القيمة المحددة بالفعل.
قم بإزالة الصفوف بناءً على قيمة خلية واحدة أو اثنتين باستخدام Kutools for Excel
إذا كنت قد قمت بتثبيت Kutools for Excel، في Select Specific Cells يمكن أن تساعدك الميزة في حذف الصفوف ذات القيمة المحددة بسرعة. الرجاء القيام بما يلي:
كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن
1. حدد النطاق الذي ستقوم بإزالة الصفوف بناءً على قيمة معينة ، وانقر فوق Kutools > Select > Select Specific Cells. انظر لقطة الشاشة:
2. في مربع حوار فتح الخلايا المحددة ، يرجى التحقق Entire row الخيار، حدد Contains تبدأ من Specific type القائمة المنسدلة ، أدخل القيمة المحددة في المربع الأيمن ، وانقر فوق Ok زر (انظر الصورة أعلاه).
بعد تطبيق هذه الميزة ، سيظهر مربع حوار ويظهر لك عدد الخلايا التي تم العثور عليها بناءً على المعايير المحددة. الرجاء الضغط على OK زر لإغلاقه.
3. الآن يتم تحديد صفوف كاملة بقيمة معينة. يرجى النقر بزر الماوس الأيمن فوق الصفوف المحددة ، والنقر فوق Delete من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة أدناه:
ملاحظات: هذا Select Specific Cells تدعم الميزة حذف الصفوف بواحدة أو قيمتين معينتين. لحذف الصفوف بناءً على قيمتين محددتين ، يرجى تحديد قيمة أخرى في Specific type قسم من مربع الحوار Select Specific Cells كما هو موضح في لقطة الشاشة التالية:
كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن
قم بإزالة الصفوف بناءً على قيم خلايا متعددة باستخدام Kutools for Excel
في بعض الحالات ، قد تحتاج إلى إزالة الصفوف بناءً على قيم خلايا متعددة من عمود / قائمة أخرى في Excel. هنا سوف أعرض Kutools for Excel's Select Same & Different Cells ميزة لحلها بسرعة وسهولة.
كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن
1. انقر Kutools > Select > Select Same & Different Cells لفتح مربع الحوار Select Same & Different Cells.
2. في الافتتاح Select Same & Different Cells مربع الحوار ، يرجى القيام بما يلي (انظر لقطة الشاشة):
(1) في Find values in مربع ، الرجاء تحديد العمود حيث ستجد قيم معينة ؛
(2) في According to مربع ، يرجى تحديد العمود / القائمة ذات القيم المتعددة التي ستحذف الصفوف بناءً عليها ؛
(3) في Based on القسم ، يرجى التحقق من Each row الخيار.
(4) في Find القسم ، يرجى التحقق من Same Values الخيار.
(5) تحقق من Select entire rows الخيار في الجزء السفلي من فتح مربع الحوار.
ملاحظات: إذا احتوى عمودان محددان على نفس الرأس ، فيرجى التحقق من My data has headers الخيار.
3. انقر على Ok زر لتطبيق هذه الأداة. ثم يظهر مربع حوار ويظهر عدد الصفوف التي تم تحديدها. فقط انقر فوق ملف OK زر لإغلاقه.
وبعد ذلك تم تحديد جميع الصفوف التي تحتوي على قيم من بين القائمة المحددة.
4. انقر Home > Delete > Delete Sheet Rows لحذف كل الصفوف المختارة.
عرض توضيحي: قم بإزالة الصفوف بناءً على قيمة خلية واحدة أو عدة قيم في Excel
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!