Vba: كيفية إزالة القيم المكررة

يمكنك استخدام الطرق التالية لإزالة القيم المكررة في VBA:

الطريقة الأولى: إزالة القيم المكررة بناءً على عمود

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

يزيل هذا المثال المحدد الصفوف المكررة في النطاق A1:C11 بناءً على القيم المكررة في العمود الأول من النطاق.

تحدد الوسيطة Header:=xlYes أن السطر الأول في النطاق هو سطر رأس ولا يجب أخذه في الاعتبار عند التحقق من التكرارات.

الطريقة الثانية: إزالة القيم المكررة بناءً على أعمدة متعددة

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

يزيل هذا المثال المحدد الصفوف المكررة في النطاق A1:C11 بناءً على القيم المكررة في العمودين الأولين من النطاق.

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا مع مجموعة البيانات التالية في Excel:

مثال 1: إزالة القيم المكررة بناءً على عمود

يمكننا إنشاء الماكرو التالي لإزالة الصفوف التي تحتوي على قيم مكررة في العمود الأول:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أنه تمت إزالة كل صف يحتوي على قيمة مكررة في العمود الأول من مجموعة البيانات.

المثال 2: إزالة القيم المكررة بناءً على أعمدة متعددة

يمكننا إنشاء الماكرو التالي لإزالة الصفوف التي تحتوي على قيم مكررة في العمودين الأولين:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أنه تمت إزالة كل صف يحتوي على قيم مكررة في العمودين الأولين من مجموعة البيانات.

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب VBA RemoveDuplicates هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية إضافة القيم في النطاق
فبا: كيفية حساب متوسط قيمة النطاق
VBA: كيفية حساب القيم الفريدة في النطاق