كيفية حذف الصفوف ذات القيم السالبة في Excel؟

لنفترض أن لديك النطاق التالي من البيانات، وتريد حذف الصفوف بالكامل إذا كان الرقم سالبًا في العمود B، هل هناك أي طرق جيدة لحل هذه المشكلة في Excel؟

حذف الصفوف ذات الأرقام السالبة باستخدام كود VBA حذف الصفوف ذات الأرقام السالبة باستخدام Kutools لـ Excel

حذف الصفوف ذات الأرقام السالبة باستخدام كود VBA

قد يساعدك الكود التالي لـ VBA على حذف الصفوف بالكامل إذا كانت هناك أرقام سالبة في عمود محدد، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: حذف الصفوف ذات الأرقام السالبة

Sub Deleter()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

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

4. ثم انقر فوق زر موافق، سيتم حذف الصفوف التي تحتوي على أرقام سالبة فورًا.

حذف الصفوف ذات الأرقام السالبة باستخدام Kutools لـ Excel

لحل هذه المهمة، يمكن أيضًا لميزة تحديد خلايا محددة في Kutools لـ Excel مساعدتك، باستخدام هذه الأداة، يمكنك تحديد الصفوف بأكملها التي تحتوي على القيم السالبة أولاً، ثم حذف الصفوف بأكملها حسب الحاجة.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد العمود الذي يحتوي على الأرقام السالبة التي تريد حذفها.

2. ثم انقر فوق Kutools > تحديد > تحديد خلايا محددة، انظر إلى الصورة التوضيحية:

3. في مربع الحوار تحديد خلايا محددة، حدد خيار الصف بأكمله في نوع التحديد، ثم اختر أقل من من تحديد النوع وأدخل 0 في مربع النص بجانب المعايير، انظر إلى الصورة التوضيحية:

4. ثم انقر فوق موافق، سيتم تحديد الصفوف التي تحتوي على أرقام سالبة فورًا، وبعد ذلك انقر فوق الصفحة الرئيسية > حذف > حذف صفوف ورقة العمل لحذف الصفوف المحددة حسب الحاجة، انظر إلى الصور التوضيحية:

نصائح: يمكنك أيضًا النقر بزر الماوس الأيمن لتحديد حذف من قائمة السياق لحذف الصفوف المحددة.