كيفية حذف الصفوف التي تحتوي على قيم مفقودة/فارغة في أعمدة معينة في Excel؟

في Excel، يمكن أن يكون التعامل مع القيم المفقودة أو الفارغة ضروريًا لتنظيف البيانات والتحليل. يوضح هذا الدليل كيفية حذف الصفوف بالكامل إذا تم العثور على خلايا فارغة في أعمدة محددة باستخدام برنامج نصي VBA.

حذف الصفوف التي تحتوي على قيم مفقودة/فارغة في أعمدة معينة باستخدام كود VBA

حذف الصفوف التي تحتوي على قيم مفقودة/فارغة في أعمدة معينة باستخدام كود VBA

لنفترض أنك تريد حذف الصفوف إذا كانت هناك قيمة مفقودة في الأعمدة B أو D، كما هو موضح في لقطة الشاشة أدناه. يمكنك تشغيل الكود التالي لـ VBA لتحقيق ذلك.

1. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم انسخ والصق الكود التالي لـ VBA في نافذة الكود.

كود VBA: حذف الصفوف التي تحتوي على قيم مفقودة/فارغة في أعمدة معينة

Sub DeleteRows()
    Dim I As Integer
    Dim xCount As Integer
    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 Then
        MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xCount = xRg.Rows.Count
    For I = xCount To 1 Step -1
        If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
            xRg.Rows(I).EntireRow.Delete
        End If
    Next
End Sub

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

بعد النقر على زر موافق، سيتم حذف جميع الصفوف التي تحتوي على قيم مفقودة في الأعمدة B أو D على الفور. انظر لقطة الشاشة:

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

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

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