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

قد لا يكون حذف الصفوف التي لا تطابق المعايير في نفس الورقة أمرًا صعبًا، ولكن هل تعرف طريقةً فعّالة لحذف الصفوف غير المطابقة للمعايير في ورقة أخرى كما هو موضح أدناه؟ إليك الآن طريقتين تساعدانك على إنجاز هذه المهمة بسرعة!

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

حذف الصفوف التي لا تطابق المعايير في ورقة أخرى مع Kutools لـ Excel

المعايير (في ورقة 2)	قبل (ورقة 1)		بعد (ورقة1)

---

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

يوجد كود VBA يساعدك في حذف الصفوف التي لا تتوافق مع المعايير المحددة في ورقة أخرى.

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

2. في النافذة، انقرإدراج > وحدة نمطيةلعرض نافذة وحدة نمطية جديدة، ثم انسخ كود VBA التالي إلى نافذة الوحدة النمطية.

VBA: احذف الصفوف التي لا تستوفي المعايير المحددة في ورقة أخرى بـ Excel.

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3. انقرتشغيل،KutoolsforExcelتظهر نافذة حوار تتيح لك تحديد النطاق الذي تريد حذف الصفوف منه والتي لا تستوفي المعايير. انظر لقطة الشاشة:

4. انقرموافق، وستظهر نافذة حوار أخرى لاختيار المعايير في ورقة مختلفة. راجع لقطة الشاشة التالية:

5. الآن، تم حذف جميع الصفوف التي لا تتوافق مع المعايير في الورقة الأخرى.

---

حذف الصفوف التي لا تطابق المعايير في ورقة أخرى مع Kutools لـ Excel

إذا وجدتَ كود VBA немного صعبًا، جرّب ميزة «مقارنة النطاقات» من Kutools لـ Excel!

Kutools لـ Excelتضم أكثر من 300 أداة مفيدة لبرنامج Excel. جرّبها مجانًا دون أي قيود لمدة 30 يومًا! احصل عليها الآن

1. حدد الورقة التي تريد حذف الصفوف منها والتي لا تطابق المعايير، ثم انقرKutools > نطاق > مقارنة الخلايا. انظر لقطة الشاشة:

2. في نافذةمقارنة الخلايا، انقر الزر الموجود فيالنطاق B، ثم حدد النطاق المطلوب للمعايير. انظر لقطة الشاشة:

 

3. بعد ذلك، انقرموافق، ثم عُد إلى نافذةمقارنة النطاقات، وفعّل الخيارينقيمة مختلفةوتحديد الصف بالكامل. انظر لقطة الشاشة:

4. انقرموافق، ثم أغلق نافذةمقارنة النطاقات. بعد ذلك، سترى أن صفوف القيم المختلفة عن المعايير قد تم تحديدها.

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

انقر هنا لمعرفة المزيد عن ميزة «مقارنة النطاقات» من Kutools لـ Excel.

---

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

• حذف الصفوف لا تحتوي على نص معين في Excel

---