Skip to main content

كيفية إزالة التكرارات مع الاحتفاظ بباقي قيم الصف في Excel؟

Author: Sun Last Modified: 2025-07-21

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

remove duplicates keep rest-sample1  remove duplicates keep rest-sample2

إزالة التكرارات مع الاحتفاظ بقيم الصف باستخدام الفلتر (3 خطوات)

إزالة التكرارات مع الاحتفاظ بقيم الصف باستخدام VBA (4 خطوات)

إزالة التكرارات مع الاحتفاظ بقيم الصف باستخدام Kutools لـ Excel (خطوتان)good idea3


إزالة التكرارات مع الاحتفاظ بقيم الصف باستخدام الفلتر

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

1. حدد خلية فارغة بجانب نطاق بياناتك (على سبيل المثال D2 إذا كانت بياناتك تبدأ من A2)، وأدخل الصيغة: =A3=A2. هذه الصيغة تقارن كل خلية مع الخلية التي فوقها لتمييز التكرارات. اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على باقي الصفوف حسب الحاجة. راجع لقطة الشاشة:
enter a formula and drag it to fill other cells

2. بعد ذلك، حدد نطاق البيانات بالكامل - بما في ذلك العمود الذي يحتوي على الصيغة الجديدة - واضغط على بيانات > تصفية لتفعيل وظيفة التصفية. هذا يسمح لك بتصفية تلك الصفوف التي تم تمييزها كتكرارات.
click Data > Filter to enable Filter feature

3. انقر فوق أيقونة أيقونة التصفية في عمود الصيغة (على سبيل المثال، العمود D)، ومن القائمة المنسدلة حدد فقط TRUEستظهر جميع الإدخالات المكررة (عدا الحدوث الأخير).
check TURE from the drop down list

4. بعد النقر موافقسيتم عرض جميع القيم المكررة المحددة. حدد هذه الخلايا المكررة واضغط على زر حذف لحذفها دون التأثير على الخلايا الأخرى في نفس الصفوف. سيتم الحفاظ على هيكل البيانات في الصفوف بينما تتم إزالة القيم المكررة فقط من العمود المحدد. راجع لقطة الشاشة أدناه:
select all of the duplicate values, press Delete key to remove them

نصيحة: كن حذرًا لتحديد الخلايا المكررة فقط - وليس الصف بأكمله - بحيث يتم إزالة القيم المستهدفة فقط.

5. لإعادة العرض إلى حالته الطبيعية، انقر بيانات > تصفية مرة أخرى لإلغاء تفعيل الفلتر. قم بإزالة أو مسح عمود الصيغة المساعد إذا لم تعد بحاجة إليه. الآن، تم إزالة التكرارات من العمود المحدد وبقيت جميع قيم الصف الأخرى سليمة.
Click Data > Filter to disable Filter

المزايا: لا حاجة لاستخدام VBA أو الإضافات؛ الخطوات واضحة ويمكن تصحيح الأخطاء اليدوية بسهولة.
العيوب: ليست آلية بالكامل - يتطلب التنظيف اليدوي؛ أقل كفاءة مع مجموعات البيانات الكبيرة جدًا.


إزالة التكرارات مع الاحتفاظ بقيم الصف باستخدام VBA

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

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

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

VBA: إزالة التكرارات مع الاحتفاظ بقيم الصف

Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918

    Dim xRow As Long
    Dim xCol As Long
    Dim xrg As Range
    Dim xl As Long
    On Error Resume Next
    Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

    xRow = xrg.Rows.Count + xrg.Row - 1
    xCol = xrg.Column
    'MsgBox xRow & ":" & xCol
    Application.ScreenUpdating = False
    For xl = xRow To 2 Step -1
        If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
            Cells(xl, xCol) = ""
        End If
    Next xl
    Application.ScreenUpdating = True
    
End Sub

copy and paste the code into the module

3. لتشغيل البرنامج النصي، اضغط على F5 أو انقر فوق الزر تشغيل ستظهر نافذة حوار تطلب منك تحديد النطاق حيث تريد إزالة القيم المكررة. ثم انقر موافق للتؤكد.
vba code to select a range to remove duplicate values from

4. ستقوم الماكرو بتنفيذ الأمر وإزالة القيم المكررة داخل النطاق المحدد، تاركة خلايا فارغة مكانها بينما يتم الاحتفاظ بجميع محتويات الصف الأخرى. وهذا يحافظ بفعالية على هيكل ورقة العمل.
the duplicate values have been removed from selection

المزايا: فعالة للغاية لمجموعات البيانات الكبيرة أو المتكررة؛ تقلل من العمل اليدوي.
العيوب: يتطلب تفعيل الماكرو وفهمًا أساسيًا لـ VBA؛ غالبًا لا يمكن التراجع عن التعديلات لذلك يُوصى بالعمل على نسخة احتياطية.


إزالة التكرارات مع الاحتفاظ بقيم الصف باستخدام Kutools لـ Excel

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

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

بعد تثبيت Kutools لـ Excel، يمكنك استخدام أي من الطريقتين التاليتين حسب بياناتك وحسب تفضيلاتك:

الطريقة الأولى: دمج الخلايا المتشابهة (خطوتان)

1. حدد القيم المكررة التي ترغب في إزالتها. ثم انتقل إلى Kutools > دمج وتقسيم > دمج الخلايا المتشابهة. سيقوم هذا بدمج القيم المكررة المتتالية في خلية واحدة، مما يجعل من السهل مسح الكل ما عدا الحدوث الأول.
click Merge Same Cells feature of kutools

2. بعد الدمج، حدد الخلايا المدمجة، اذهب إلى الرئيسية > دمج وتوسيط > فك دمج الخلايا لإعادتها إلى خلايا قياسية. ستظهر التكرارات الآن كخلايا فارغة، وسيبقى القيمة الفريدة لكل مجموعة.
click Home > Merge & Center > Unmerge Cells to split them

ستبدو النتيجة مشابهة للمثال أدناه، حيث تم إزالة التكرارات وبقيت قيم الصف الأخرى سليمة:
get the result

 

الطريقة الثانية: تحديد التكرارات والخلايا الفريدة (4 خطوات)

1. حدد القائمة الكاملة أو النطاق الذي تريد إزالة القيم المكررة منه. انقر Kutools > تحديد > تحديد التكرارات والخلايا الفريدة.
click Select Duplicate & Unique Cells feature of kutools

2. في تحديد التكرارات والخلايا الفريدة نافذة الحوار، اختر التكرارات (عدا الأول منها) في القاعدة القسم. سيقوم هذا بتمييز جميع حالات التكرار بعد الحدوث الأول.
check Duplicates (Except1st one) option in the Rule section

3. انقر موافق. ستظهر رسالة تخبرك بعدد الخلايا المكررة التي تم تحديدها. أكد بالنقر على موافق.
a dialog pops out to remind you how many duplicates have been selected

4. ببساطة اضغط على زر Delete لحذف هذه القيم المكررة المحددة، تاركاً باقي بيانات الصف كما هي.

press Delete key to remove the selected duplicate values

المزايا: لا حاجة لصيغ أو برمجة؛ سريع جدًا وسهل الاستخدام؛ يدعم العمليات الجماعية.
العيوب: يتطلب تثبيت إضافي.


الملخص واستكشاف الأخطاء: كل حل من الحلول أعلاه يقدم نهجًا عمليًا لإزالة القيم المكررة مع الحفاظ على باقي بيانات الصف في Excel. طرق الفلتر والصيغ مناسبة للمعالجة اليدوية الواضحة خطوة بخطوة؛ VBA ذو قيمة للتنظيف الجماعي أو المتكرر؛ وKutools توفر عمليات مريحة ومُيسرة للمستخدمين المنتظمين. تحقق دائمًا من النطاقات المحددة، اصنع نسخة احتياطية قبل العمليات الجماعية، واختر الحل الذي يتناسب مع سير عملك ومستوى راحتك مع الصيغ أو البرمجة. إذا واجهت مشاكل مثل التكرارات المفقودة أو فقدان البيانات العرضي، فراجع أعمدة المساعدة الخاصة بك للتأكد من الدقة، تحقق من الفرز، وتأكد من أن اختياراتك صحيحة قبل الحذف.

أفضل أدوات الإنتاجية لمكتب العمل

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات من خلال: التنفيذ الذكي |توليد الشيفرة |إنشاء الصيغ المخصصة |تحليل البيانات وتوليد الرسوم البيانية |استدعاء الوظائف المحسنة
الميزات الشائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو العنوان دون فقدان البيانات | تقريب ...
بحث متقدم: بحث V متعدد المعايير | بحث V متعدد القيم | بحث في عدة ورقات | مطابقة غامضة ....
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة تابعة | قائمة منسدلة متعددة الاختيار ....
إدارة الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاق والأعمدة ...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | أدوات المصنف & أدوات الورقة العمل | مكتبة النص التلقائي (Auto Text) | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب القائمة | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع من الرسوم البيانية (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد

عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

  • تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
  • افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
  • يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!