كيفية حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة في Excel؟
قد تحتاج أحيانًا إلى حذف الصفوف إذا كانت الخلايا في عمود محدد أكبر أو أقل من قيمة معينة في Excel. سيوصي هذا المقال بعدة طرق للتعامل مع هذه المشكلة.
حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة باستخدام كود VBA
حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة باستخدام Kutools لـ Excel
حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة باستخدام Kutoos لـ Excel
حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة باستخدام كود VBA
لنفترض أنك تريد حذف الصفوف بالكامل إذا كانت الخلية في العمود D أكبر أو أقل من قيمة معينة في Excel. يمكنك تشغيل الكود التالي لـ VBA لتحقيق ذلك.
1. اضغط على مفاتيح Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.
2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم قم بنسخ ولصق الكود التالي لـ VBA في نافذة الكود.
كود VBA: حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة في Excel
Public Sub ProcessData()
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
Exit Sub
End If
xRg.Range("A1").EntireRow.Insert
Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
xRg.Range("A1") = "Temp"
xRg.AutoFilter 1, ">30000"
Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
On Error GoTo 0
If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Subملاحظة: في الكود أعلاه، >30000 يعني أنك ستحذف الصفوف إذا كانت الخلايا أكبر من 30000 في عمود محدد. إذا كنت ترغب في حذف الصفوف إذا كانت الخلايا أقل من قيمة معينة، يرجى تغيير العلامة > إلى < ثم حدد القيمة الخاصة بك.
3. اضغط على مفتاح F5 لتشغيل الكود، في نافذة Kutools لـ Excel التي ستظهر، حدد النطاق (عمود واحد) الذي ستجد فيه إذا كانت الخلايا في هذا العمود أكبر أو أقل من قيمة معينة. وبعد ذلك انقر على زر موافق. شاهد الصورة:
ثم يتم حذف جميع الصفوف ذات القيم الأكبر من 30000 في العمود D فوراً.
حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة باستخدام Kutools لـ Excel
يمكن أن تساعدك أداة تحديد الخلايا المحددة من Kutools لـ Excel في تحديد جميع الصفوف التي تحتوي خلاياها على قيم أكبر أو أقل من قيمة معينة في عمود محدد، وبعد ذلك يمكنك حذف جميع الصفوف المحددة يدويًا دفعة واحدة.
1. حدد العمود الذي تريد حذف الصفوف بناءً عليه، ثم انقر فوق Kutools > تحديد > تحديد الخلايا المحددة. شاهد الصورة:
2. في مربع حوار تحديد الخلايا المحددة، يرجى تحديد الصف بأكمله في قسم نوع التحديد. في قسم تحديد النوع، حدد أكبر من أو أقل من من القائمة المنسدلة الأولى، وأدخل القيمة المحددة في مربع النص التالي، وبعد ذلك انقر على زر موافق.
3. ثم يظهر مربع حوار ينبهك إلى عدد الصفوف المحددة، يرجى النقر على زر موافق. ويمكنك رؤية جميع الصفوف ذات القيم الأكبر من 30000 في العمود D يتم تحديدها فوراً.
4. انقر بزر الماوس الأيمن على أحد الصفوف المحددة، ثم انقر فوق حذف من قائمة النقر بزر الماوس الأيمن. وسيتم حذف جميع الصفوف المحددة.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.
حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة باستخدام Kutoos لـ Excel
بالإضافة إلى الطريقتين السابقتين، يمكنك تصفيه جميع الصفوف التي تحتوي خلاياها على قيم أكبر أو أقل من قيمة معينة في عمود محدد، وبعد ذلك يمكنك حذف جميع الصفوف المصفاة باستخدام أداة حذف الصفوف والأعمدة المخفية (المرئية) من Kutools لـ Excel.
1. حدد رأس العمود، ثم انقر فوق البيانات > تصفية. شاهد الصورة:
2. انقر فوق السهم المنسدل في العمود الذي سيتم حذف الصفوف بناءً عليه، ثم انقر فوق تصفية الأرقام > أكبر من أو أقل من كما هو موضح في الصورة أدناه:
3. في مربع الحوار تصفية السيارات المخصصة، أدخل الرقم المحدد بعد مربع أكبر من أو أقل من، وبعد ذلك انقر على زر موافق.
4. ثم يتم تصفيه جميع الصفوف التي تحتوي على خلايا معينة أكبر أو أقل من قيمة معينة في العمود D. يمكنك حذف جميع الصفوف المصفاة عن طريق تحديد البيانات المصفاة ثم النقر فوق Kutools > حذف > حذف الصفوف والأعمدة المخفية (المرئية). شاهد الصورة:
5. في مربع حوار حذف الصفوف والأعمدة المخفية (المرئية)، تأكد من تحديد الخيار في النطاق المحدد في قائمة البحث المنسدلة، حدد صفوف في قسم نوع الحذف، حدد خيار الصفوف المرئية في قسم النوع المفصل، وأخيرًا انقر على زر موافق.
6. ثم يتم حذف جميع الصفوف المرئية في النطاق المحدد فوراً، يمكنك إلغاء التصفية بالنقر فوق البيانات > تصفية.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.
مقالات ذات صلة:
- كيفية حذف جميع الصفوف أسفل صف معين أو الخلية النشطة في Excel؟
- كيفية حذف جميع الصفوف باستثناء صف العنوان الأول في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد