كيفية حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة في 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. انقر بزر الماوس الأيمن على أحد الصفوف المحددة، ثم انقر فوق حذف من قائمة النقر بزر الماوس الأيمن. وسيتم حذف جميع الصفوف المحددة.

حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة باستخدام Kutoos لـ Excel

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

1. حدد رأس العمود، ثم انقر فوق البيانات > تصفية. شاهد الصورة:

2. انقر فوق السهم المنسدل في العمود الذي سيتم حذف الصفوف بناءً عليه، ثم انقر فوق تصفية الأرقام > أكبر من أو أقل من كما هو موضح في الصورة أدناه:

3. في مربع الحوار تصفية السيارات المخصصة، أدخل الرقم المحدد بعد مربع أكبر من أو أقل من، وبعد ذلك انقر على زر موافق.

4. ثم يتم تصفيه جميع الصفوف التي تحتوي على خلايا معينة أكبر أو أقل من قيمة معينة في العمود D. يمكنك حذف جميع الصفوف المصفاة عن طريق تحديد البيانات المصفاة ثم النقر فوق Kutools > حذف > حذف الصفوف والأعمدة المخفية (المرئية). شاهد الصورة:

5. في مربع حوار حذف الصفوف والأعمدة المخفية (المرئية)، تأكد من تحديد الخيار في النطاق المحدد في قائمة البحث المنسدلة، حدد صفوف في قسم نوع الحذف، حدد خيار الصفوف المرئية في قسم النوع المفصل، وأخيرًا انقر على زر موافق.

6. ثم يتم حذف جميع الصفوف المرئية في النطاق المحدد فوراً، يمكنك إلغاء التصفية بالنقر فوق البيانات > تصفية.

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

• كيفية حذف جميع الصفوف أسفل صف معين أو الخلية النشطة في Excel؟
• كيفية حذف جميع الصفوف باستثناء صف العنوان الأول في Excel؟